FileCopy VBA problème

Bonjour à tous,
J'ai besoin de copier en automatique un fichier excel(.xlsx) qui se trouve sur mon disque :

Code:

---

1 2	FileCopy "N:\Insertions\Reconditionnement\" & DMStr, "N:\Insertions\Reconditionnement\Tests\ " & DMStr

---

Le code fonctionne et me fait la copie sauf que quand je veux lire ce fichier depuis Access :

Code:

---

1 2 3

Set xlApp = CreateObject("Excel.Application") Set oWkb = xlApp.Workbooks.Open(DLookup("[Chemin_Fichier_Export]", "TAB_PARAMETRE") & DLookup("[Nom_Fichier_Export]", "TAB_PARAMETRE"))

---

il ne le trouve pas et j'ai l'erreur -2147023170, quand je le copie manuellement le programme fonctionne.
Si quelqu'un a une idée
MERCI

Salut,

quelle est la valeur exacte de ta concaténation

Code:

---

DLookup("[Chemin_Fichier_Export]", "TAB_PARAMETRE") & DLookup("[Nom_Fichier_Export]", "TAB_PARAMETRE")

---

Pour lire un fichier XL depuis Access, il suffit d'attacher le fichier en question pour l'ouvrir sous forme de table Access:
Dans le menu Access, on a "External Data" (ou donnée externes)
On clique sur "Linked Table Manager" (gestionnaire des tables attachées)
et on suit les instructions sur écran

Citation:

---

Envoyé par Jean-Philippe André

Salut,

quelle est la valeur exacte de ta concaténation

Code:

---

DLookup("[Chemin_Fichier_Export]", "TAB_PARAMETRE") & DLookup("[Nom_Fichier_Export]", "TAB_PARAMETRE")

---

---

*************************************************
Merci pour vos réponses, erreur de ma part dans le code :

Code:

---

1 2 3 4 5

If FileName1 = "" Then DMStr = "Export.xlsx" FileCopy "N:\Insertions\Reconditionnement\" & DMStr, "N:\Insertions\Reconditionnement\Tests\" & DMStr End If

---

Là ça marche
A+