[VBA_E] Récupérer le chemin d'un fichier ouvert

Bonjour à tous

je voudrais savoir comment récuperer le chemin d'un fichier qui est déjà ouvert dans excel.

J'ai fait différente recherche sur Path, getfile, getfileopen mais je n'arrive pas à recoler les morceaux pour que ça fonctionne.

Si quelqu'un peut m'aiguiller.

Merci d'avance

ben de quel fichier parle-tu et comment est-t'il ouvert..?

Bonjour bbil

Mon fichier est ouvert par appel de la boite de dialogue ouvrir avec le code suivant:

Code:

---

1 2 3

filetoopen = Application _ .GetOpenFilename("Fichiers excel (*.xls), *.xls")

---

Et je voudrais récupérer le chemin pour enregistrer un autre fichier et le sauvegarder dans le même repertoire.

ce code n'ouvre pas un fichier mais permet juste d'en récupérer le chemin+nom... il n'y as pas une suite.. du style WorkBooks.open(FiletoOpen...)..

Si voilà le code complet

Code:

---

1 2 3 4 5 6 7

filetoopen = Application _ .GetOpenFilename("Fichiers excel (*.xls), *.xls") Stop If filetoopen <> False Then Workbooks.Open (filetoopen) End If

---

Autant pour moi.

ben défini une variable de type workbook ... qui te permettra de récupérer le chemin et aussi d'agir sur ce classeur sans avoir besoin d'avoir à jongler avec les activate et select...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

dim wk as workbook   filetoopen = Application _ .GetOpenFilename("Fichiers excel (*.xls), *.xls") Stop If filetoopen <> False Then set wk = Workbooks.Open (filetoopen) msgbox "le chemin : " & wk.path   msgbox wk.sheets(1).name     End If

---

Merci bbil

c'est exactement ce que je cherchais.

Donc le plus simple est de passer par une variable, ce qui permet d'utiliser la propriete path.

Est on obligé de passer par une variable et/ou est ce toujours préférable de le faire ?

ben le passage par une variable ... te permet ensuite d'agir plus facilement sur le classeur...

Ok merci bbil :)

Toute connaissance est bonne à prendre et j'en ai beaucoup encore à découvrir.

Merci encore.