Discussion :

[niKgir]

Bonjour tout le monde,



Je me suis inspiré de ce qui est dit dans cette discussion mais je souhaite industrialiser le processus d'import. voici mon code :

Module Import :

Code :

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

1
2
3
4
5
Sub ImportFichierExcel(ByVal nomFichier As String, ByVal nomTable As String)

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel3, nomTable, "C:\Users\giraudn\Desktop\Recette magister\Données\" & nomFichier & ".xlsx", True

End Sub

Module Main :

Code :

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

1
2
3
4
5
6
7
8
Sub Main()
 
Dim db As DAO.Database
Set db = CurrentDb
 
Import.ImportFichierExcel(XXXX_XX_XXXX, Test)
 
End Sub

Je ne comprends pas pourquoi le code de fonctionne pas... J'ai un message erreur de compilation (syntaxe). Désolé je suis novice... Pouvez-vous m'aider ?

En vous remerciant par avance.

[GreatTeacherOnizuka]

Bonjour,

Je ne comprends pas trop ta fonction main d'où sort le import. , je ne suis pas spécialiste non plus.

Essaye en mettant:

Code :

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

Call ImportFichierExcel(XXXX_XX_XXXX, Test)

Au lieu de:

Code :

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

Import.ImportFichierExcel(XXXX_XX_XXXX, Test)