Bonjour,
Je fais une intégration de fichier Excel dans Access dans la procédure ci-dessous. Cette procédure est appelée plusieurs fois pour charger chacun des onglets du classeur Excel qui m'intéresse. A chaque tour de boucle je supprime la table d'import pour pouvoir importer à nouveau dans cette table qui est créee à la volée viaet qui porte comme nom :DoCmd.TransferSpreadsheetJe précise que je donne bien le nom d'onglet du fichier Excel dans la variable Onglet"New_Data_Glemea_" & Nom_fichier
Sauf que lors de l'import du deuxieme onglet je tombe en erreurVoici le codeObjet Requis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub InterrogerBase_Cisco_SQL(Onglet As String, NumOnglet As Integer, Type_Integration As String, Nom_fichier As String) ' == on importe le fichier Cisco en SQL == Dim Nom_fichier_complet As String On Error GoTo trt_Erreur_Import_fichier Nom_fichier_complet = [Forms]![Integration Cisco V2]![Le_Classeur_Chemin].Value & "/" & Nom_fichier If Type_Integration = "Glemea" Then DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "New_Data_Glemea_" & Nom_fichier,Nom_fichier_complet,True,Onglet End If Exit Sub trt_Erreur_Import_fichier: MsgBox Description.Err End Sub
Merci d'avance de vos idées.
Partager