Bonjour tout le monde,

J'utilise ce code :

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
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 :

La clé de recherche n'a été trouvée dans aucun enregistrement
Et voici ce que dit l'aide de VBA Access :

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