macro qui tient compte du nom de fichier

[gourdin]

Bonjour,

Je souhaite savoir s'il est possible qu'un code macro prenne en compte le nom du fichier contenant la macro même si ce nom de fichier change.

Exemple :

Windows("toto.xls").Activate
Sheets("feuil1").Select

Sachant que le fichier contenant ce code macro est "toto.xls"

Si ce fichier change de nom en "tata.xls", je souhaite sans modifier le code que la macro devienne :

Windows("tata.xls").Activate
Sheets("feuil1").Select

Bref un code qui prenne toujours en référence le nom du fichier contenant ce code sans avoir à modifier le code.

Merci

 

[Efgé]

Re : macro qui tient compte du nom de fichier

Bonjour gourdin,
Une proposition:

[COLOR=blue]Sub[/COLOR] Nom_Classeur_actif()
[COLOR=blue]Dim[/COLOR] Classeur [COLOR=blue]As String[/COLOR]
Classeur = ActiveWorkbook.Name
[COLOR=green]'Etc...[/COLOR]
Windows(Classeur).Activate
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[Pierrot93]

Re : macro qui tient compte du nom de fichier

Bonjour Gourdin, fg

pour se référer au classeur dans lequel se trouve le code, tu peux utiliser la propriété "ThisWorkbook", renvoie l'objet "workbook" représentant le classeur en question, exemple :

ThisWorkbook.Activate

bonne journée
@+

 

[gourdin]

Re : macro qui tient compte du nom de fichier

Parfait !

Merci et bonne journée !