Ouvrir un fichier dont le nom est dans une cellule.
Fermé
DanDiFalca
Messages postés
4
Date d'inscription
vendredi 24 juin 2022
Statut
Membre
Dernière intervention
24 juin 2022
-
24 juin 2022 à 11:54
DanDiFalca Messages postés 4 Date d'inscription vendredi 24 juin 2022 Statut Membre Dernière intervention 24 juin 2022 - 24 juin 2022 à 18:20
DanDiFalca Messages postés 4 Date d'inscription vendredi 24 juin 2022 Statut Membre Dernière intervention 24 juin 2022 - 24 juin 2022 à 18:20
A voir également:
- Ouvrir un fichier dont le nom est dans une cellule.
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Fichier rar - Guide
- Comment ouvrir un fichier docx ? - Guide
- Fichier host - Guide
5 réponses
T3chN0g3n
Messages postés
4970
Date d'inscription
samedi 16 février 2019
Statut
Membre
Dernière intervention
12 avril 2024
1 095
Modifié le 24 juin 2022 à 12:06
Modifié le 24 juin 2022 à 12:06
Bonjour,
En partant du principe que la cellule contient le chemin d'accès complet, essaye un truc du genre:
Sinon tu doit pouvoir concaténer genre
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.
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 genre
Filename:= "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.
DanDiFalca
Messages postés
4
Date d'inscription
vendredi 24 juin 2022
Statut
Membre
Dernière intervention
24 juin 2022
24 juin 2022 à 12:09
24 juin 2022 à 12:09
Merci, je essayer.
DanDiFalca
Messages postés
4
Date d'inscription
vendredi 24 juin 2022
Statut
Membre
Dernière intervention
24 juin 2022
24 juin 2022 à 12:34
24 juin 2022 à 12:34
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
Sub FichierClient()
Workbooks.Open Filename:="D:\Données\Documents\Gestions\Devis-Fact 2022\" & Sheets("Sheet1").Range("D3").Value
End Sub
T3chN0g3n
Messages postés
4970
Date d'inscription
samedi 16 février 2019
Statut
Membre
Dernière intervention
12 avril 2024
1 095
24 juin 2022 à 13:12
24 juin 2022 à 13:12
Vous avez laissé Sheet1 ? Il faut mettre le nom de votre onglet (type Feuil1 ou autre)
via55
Messages postés
14401
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
17 avril 2024
2 701
24 juin 2022 à 13:06
24 juin 2022 à 13:06
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
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
DanDiFalca
Messages postés
4
Date d'inscription
vendredi 24 juin 2022
Statut
Membre
Dernière intervention
24 juin 2022
24 juin 2022 à 18:20
24 juin 2022 à 18:20
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
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
