[XL-2002] Récupérer nom fichier ouvert à partir d'une macro XLA

[johan89]

Bonjour,

J'ai crée un bouton dans mon logiciel Exel 2002, qui est associé à une macro .xla.
Dans cette macro, j'ai besoin de récupérer le nom du fichier ouvert dans Excel.

Scénario : "J'ouvre toto.xls, je clique sur le bouton qui appelle macro.xla. Cette dernière doit récupérer dans une variable toto.xls".

J'ai testé ce code :

Code :

1
2
3
Dim nom_fichier_source
nom_fichier_source = ThisWorkbook.Name
Windows(nom_fichier_source).Activate

Le soucis est que nom_fichier_source contient le nom de ma macro .xla et non le nom de mon fichier .xls.

Est-ce faisable, à partir d'une macro .xla de récupérer le nom de n'importe quel fichier ouvert dans Excel ?

[Qwazerty]

Salut
En partant du principe que la macro doit effectué son affaire sur la fenêtre active

Code :

PathStr = ActiveWindow.ActiveSheet.Parent.Path

On peut même se passer de ActiveWindow sans trop de risque je pense.

++
Qwaz