Discussion :

[borislotte]

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

[m-mas]

ramène tes données MSDE dans ta base Access (requête création de table par exemple) ensuite utilise le TransferSpreadSheet !

[borislotte]

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

[m-mas]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[borislotte]

merci de ta reponse

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

encore merci