Discussion :

[xeron33]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

Salut,

quelle est la valeur exacte de ta concaténation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Zekraoui_Jakani]

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

[xeron33]

Salut,

quelle est la valeur exacte de ta concaténation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+