Ouvrir un fichier dont le nom est dans une cellule.
DanDiFalca
Messages postés
4
Statut
Membre
-
DanDiFalca Messages postés 4 Statut Membre -
DanDiFalca Messages postés 4 Statut Membre -
Bonjour,
De mon fichier principal je voudrais ouvrir, au moyen d’une macro, le fichier de mon client dont le nom se trouve dans la cellule « D3 ».
Les fichiers de tous mes clients se trouvent dans un autre répertoire que celui de mon fichier principal.
Comment puis-je formuler cela dans ma macro ?
Pouvez-vous m’aider SVP.
Bonne journée.
Configuration: Windows / Chrome 102.0.0.0
De mon fichier principal je voudrais ouvrir, au moyen d’une macro, le fichier de mon client dont le nom se trouve dans la cellule « D3 ».
Les fichiers de tous mes clients se trouvent dans un autre répertoire que celui de mon fichier principal.
Comment puis-je formuler cela dans ma macro ?
Pouvez-vous m’aider SVP.
Bonne journée.
Configuration: Windows / Chrome 102.0.0.0
5 réponses
-
Bonjour,
En partant du principe que la cellule contient le chemin d'accès complet, essaye un truc du genre:Workbooks.Open (Filename:=Sheets("Sheet1").Range("D3").Value)
Sinon tu doit pouvoir concaténer genreFilename:= "C:\Users\Toto\Documents\" & Sheets("Sheet1").Range("D3").Value
La doc de Microsoft est pas trop mal faite, il y'a un exemple en bas:
https://docs.microsoft.com/fr-fr/office/vba/api/excel.workbooks.open
Cdlt. -
-
Cela ne fonctionne pas. Voila ce que j'ai écrit :
Sub FichierClient()
Workbooks.Open Filename:="D:\Données\Documents\Gestions\Devis-Fact 2022\" & Sheets("Sheet1").Range("D3").Value
End Sub -
Bonjour
Peut être parce qu'il manque l'extension !
Essaye quelque chose comme Workbooks.Open Filename:="D:\Données\Documents\Gestions\Devis-Fact 2022\" & Sheets("Sheet1").Range("D3").Value &".xlsx"
Cdlmnt
Via
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
J'ai tout essayé et cela ne marche pas.
Puis j'ai pris une ancienne macro que j'ai modifiée et cela fonctionne.
Voilà ce que j'ai mis :
ChDir _
"D:\Données\Documents\Gestion 2022\Devis-Fact 2022"
Workbooks.Open Filename:=Sheets("Facture").Range("D3").Value & ".xlsm"
Je vous remercie tous pour votre aide.
Cordialement.
Dan
