Discussion :

[SpaceX]

Bonjour,

Dans mon programme j'utilise la fonction FileFromBrowser() qui me permet de sélectionner des fichiers quelconque et la fonction Workbooks.Open Filename:= pour ouvrir un fichier.

Voici la ligne que j'utilise dans mon programme :

Code :

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

1
2
 
Workbooks.Open FileName:="D:\Users\toto\Desktop\test.xlsx"

Est-ce que je dois à chaque fois renommer le chemin du fichier si je décide d'ouvrir un fichier avec un chemin de répertoire différent ?

[parmi]

Bonjour,

Peux-tu expliquer un peu plus parce que ça ne semble pas vraiment clair (?!)

Est-ce que je dois à chaque fois renommer le chemin du fichier si je décide d'ouvrir un fichier avec un chemin de répertoire différent ?

De ce que je comprends, c'est certain que tu doives changer le chemin s'il est différent...

[SpaceX]

Justement je ne veux pas modifier le chemin du fichier par moi-même, j'aimerai que cela s'effectue automatiquement si je sélectionne un autre fichier. En VBA il doit surement y avoir un moyen de stocker le chemin d'un fichier non ?

L'utilisation de cette instruction Workbooks.Open FileName:="D:\Users\toto\Desktop\test.xlsx" est statique, si je sélectionne un fichier excel autre que test.xlsx ma macro ne fonctionnera pas.

Désolé si je ne suis pas explicite.

[halaster08]

Bonjour,

Essaye ceci:

Code :

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

Workbooks.Open (Application.GetOpenFilename)

[SpaceX]

Salut, merci pour ton aide.

La ligne de code que tu m'a filé permet uniquement d'ouvrir une boite de dialogue afin de sélectionner un fichier. Moi je souhaite une ligne de code qui récupère le chemin du fichier et qu'elle peut être ensuite associé à Workbooks.Open FileName

Exemple :

Code :

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

1
2
3
4
Chemin = FileFromBrowser(ThisWorkbook.Path & "\Fichier\", "Fichier de mesures *.xlsx,*.xlsx")
Sheets("feuil1").Select
Range("G1").Value = Chemin
Workbooks.Open FileName:="G1"

Mais ça m'affiche l'erreur 1004 :

G1.xlsx introuvable vérifiez l'orthographe du nom de classeur

[halaster08]

La ligne de code que tu m'a filé permet uniquement d'ouvrir une boite de dialogue afin de sélectionner un fichier. Moi je souhaite une ligne de code qui récupère le chemin du fichier et qu'elle peut être ensuite associé à Workbooks.Open FileName

Code :

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

Application.GetOpenFilename

Permet uniquement d'ouvrir une boite de dialogue afin de sélectionner un fichier.

Code :

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

Workbooks.Open (Application.GetOpenFilename)

Ouvre le fichier que tu as sélectionné. C'est tiré d'une macro que j'utilise tous les mois, ça fonctionne.

edit: et sinon pour ton code

Code :

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

1
2
 
Workbooks.Open FileName:="G1"

Ce serait plutôt

Code :

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

Workbooks.Open FileName:=range("G1")

mais je ne vois pas pourquoi tu passe par une cellule, utilise directement ta variable:

Code :

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

Workbooks.Open FileName:=chemin