Bonjour tout le monde,
J'utilise ce code :
Qui fonctionne bien une fois sur deux.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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 :
Et voici ce que dit l'aide de VBA Access :La clé de recherche n'a été trouvée dans aucun enregistrement
Est-ce que quelqu'un pourrait m'expliquer ce que je dois faire pour que cela fonctionne ?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.
Merci d'avance pour votre aide.
beegees
Partager