Erreur sur l'import dans une table précédemment supprimée

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 via

Citation:

---

DoCmd.TransferSpreadsheet

---

et qui porte comme nom :

Citation:

---

"New_Data_Glemea_" & Nom_fichier

---

Je précise que je donne bien le nom d'onglet du fichier Excel dans la variable Onglet

Sauf que lors de l'import du deuxieme onglet je tombe en erreur

Citation:

---

Objet Requis

---

Voici le code

Code:

---

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.

Salut,

pour savoir à coup sûr que c'est bien la ligne à laquelle tu penses qui plante, enlève ton On Error GoTo et regarde si c'est cette ligne qui pose problème !

L'utilisation de cette syntaxe t'empêche de comprendre d'où peut venir l'erreur, je te recommande de ne l'utiliser qu'une fois que ton code aura été correctement rédigé ;)

On met toujours un traitement d'erreur. C'est bien comme cela qu'il faut procéder. C'est comme cela que je l'enseigne. Je mets un zéro à ceux qui l'oublient... ( moi mon truc c'est plutôt sur C / Unix )

On n'a pas la même approche, mais ici du coup c'est à quelle ligne ton erreur exactement, on ne sait toujours pas ;)

Bien sûr, 1000 excuses, c'est lors de l'import TransferSpreadsheet que ca ne rentre pas, et que cela génère l'erreur.

Citation:

---

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "New_Data_Glemea_" & Nom_fichier,Nom_fichier_complet,True,Onglet

---

Curieusement lorsque j'importe un classeur Excel différent je n'ai pas de bug. Le bug provient lorsque je suis sur le même classeur mais sur un onglet différent.

Au pire il faudrait que je transferts mon onglet dans un autre classeur indépendant, mais autant savoir pourquoi ca bugue. (de plus mon interface est concue avec la liste des onglets à intégrer)

J'ai le sentiment qu'il faudrait que je ferme mon classeur. Mais en même temps je ne l'ai pas explicitement ouvert. Seulement la fonction TransfertSpreadsheet devrait faire le boulot (ouvrir/refermer)

Ta variable onglet contient quoi exactement ?

l'extension du fichier est la bonne ?

Ma variable Onglet contient le nom de l'onglet, et l'extension est correcte, l'import se fait bien avec le premier onglet du classeur et automatiquement le deuxieme onglet est pris dans la liste des onglets du classeur que je veux intégrer.

Ton nomOnglet est bien du type "FeuilX!" ou "A1:G5" ?

C'est bien le nom de l'onglet du genre FeuilX!