Transférer un tableau excel vers access avec VBA (bug)
Bonjour tout le monde,
J'utilise ce code :
Code:
1
2
3
4
5
6
7
8
9
10
11
| '------------------------------------------------------------
' Import_Fichier_Excel___Access
'
'------------------------------------------------------------
Function Import_Fichier_Excel___Access()
'il faut changer le nom de la table de destination juste après 8, et le nom du fichier a importer
'il faut aussi créer une plage nommée, c'est cela qui sera transféré dans la table (toImport)
DoCmd.TransferSpreadsheet acImport, 8, "NomDeLaNouvelleTable", "Z:\NomDuFichier.xls", True, "import"
End Function |
Qui fonctionne bien une fois sur deux.
Je dois juste donner un nom à une nouvelle table (à la place de NomDeLaNouvelleTable) et donner le chemin du fichier à importer dans cette table (à la place de NomDuFichier.xls).
import est le nom de la zone qui doit être importée.
Quand ça ne fonctionne pas, j'obtiens ce message d'erreur :
Citation:
La clé de recherche n'a été trouvée dans aucun enregistrement
Et voici ce que dit l'aide de VBA Access :
Citation:
La clé de recherche n'a été trouvée dans aucun enregistrement. (Erreur 3709)
Cette erreur se produit lorsque ISAM SEEK est exécuté et qu'il n'y a pas de valeur correspondante dansl’index.
Est-ce que quelqu'un pourrait m'expliquer ce que je dois faire pour que cela fonctionne ?
Merci d'avance pour votre aide.
beegees
