Discussion :

[kaynan]

bonjour,

j'ai 16 fichiers *.xls de même format 'nom,prénom,sexe' mais de nom différents.

je voulais les importer sur ma table Access via un macro.

Pouvez vous m'aider a élaborer la fonction en vb pour l'import automatique par bouton de tous ces fichiers.

le chemin des fichiers: c:\bande\input.
ma table ''crat''.

merci beaucoup de votre aide

[Chtulus]

Bonjour,

Pouvez vous m'aider a élaborer la fonction en vb pour l'import automatique par bouton de tous ces fichiers.

Vous voulez dire VBA ?

Avez vous commencé quelque chose ?

[kaynan]

bonjour

c'est ca en vba

[Robert1957]

Bonjour kaynan, Chtulus,

kaynan je crois que ceci ferait ton affaire:

Code :

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

1
2
3
4
5
6
7
Dim strFichier As String
 
    strFichier = Dir("C:\bande\input\*.xlsx")
    Do Until strFichier = ""
        DoCmd.TransferSpreadsheet acImport, "TableDestination", "c:\bande\input\" & strFichier
        strFichier = Dir
    Loop

Bonne journée