export de donne

Version imprimable

16/02/2006, 12h24
borislotte

export de donne

bonjour

je travail dans un environnement Access MSDE et VBA.

je vourdrais pouvoir exporter les donner d'une vue via du code vba / t-sql
car la fonction docmd.TransferSpreadsheet ne fonctionne pas avec les vues MSDE.

export au format Excel ou txt

il est possible que des reponses soit mise sur les forums mais j'avous etre pris par le temps

je vous remercie de votre aide
16/02/2006, 12h29
m-mas

ramène tes données MSDE dans ta base Access (requête création de table par exemple) ensuite utilise le TransferSpreadSheet !
16/02/2006, 13h22
borislotte

il n'y aurai pas une autre solution???
je cherche justement a eviter la creation de table

ramener les données par requêtes SQL, ouvrir Excel et coller les données.

mais je te conseille de créer une table quit à la supprimer aprés export (par code VBA)

exemple de code pour coller des données dans Excel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
  '--créer le fichier Excel
    Set APP = CreateObject("Excel.application")
    APP.Workbooks.Open Excel_OP, , False
 
    Set rcd_data = CurrentDb.OpenRecordset(Ma_Requete)
    '--compter le nombre de lignes
    rcd_data.MoveLast
    rcd_data.MoveFirst
    MaxLigneRcd = rcd_data.RecordCount
    MaxColonneRcd = rcd_data.Fields.Count
 
    '--Parcours de la requête ligne par ligne
    'APP.Visible = True
 
    APP.Sheets(Nom_Onglet).Select
 
    '--Insérer données à partir de la ligne 11 (exemple)...
    With APP.Worksheets(Nom_Onglet)
        For NumLigne = 11 To 10 + MaxLigneRcd
                    On Error GoTo erreur:
                    .Cells(NumLigne, 4) = rcd_data(0).Value  
                    .Cells(NumLigne, 5) = rcd_data(1).Value 
                    Nb_Lignes = Nb_Lignes + 1
 
            On Error GoTo erreur:
            rcd_data.MoveNext
        Next NumLigne
    End With

16/02/2006, 15h09
borislotte

merci de ta reponse

effectivement je pense que je vais creer une table.
ce sera plus rapide

encore merci