Bonjour,
j'ai essayé ce code mais il ne fonctionne pas
je ne pense pas être très loin
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
Sub rojh()
 
 
'Declaration de la valeur répertoire
Dim répertoire As String
'Recuperation de la liste des fichiers
répertoire = Dir("C:\Users\9305743N\Desktop\programme\dataessai\*.xls", vbDirectory)
'On passe d'un fichier excel a l'autre
Do While répertoire <> ""
'import des donnees du fichier excel dans Access
 
 DoCmd.TransferSpreadsheet , acSpreadsheetTypeExcel12, "Ma_Table", répertoire, True
 
      répertoire = Dir
Loop
End Sub
il me dit qu'il n'a pas trouvé mon fichier, que le chemin est inexistant
merci d'avance