Nom de feuille dans macro

[Darnel]

Bonjour à tous

Voilà mon problème :

J'ai un classeur contenant une macro qui va me chercher une info sur un autre classeur que l'utilisateur choisi lui même. (cf lien
La macro donc fait un copier coller, et colle les infos dans le classeur qui contient la macro

comment nommer ce classeur dans la macro pour que, quelque soit le nom de celui ci, le code fonctionne
exemple :

    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Windows("comparateur résultats.xls").Activate
    Application.Goto Sheets("donnéesN").Range("A2")
    ActiveSheet.Paste

remplacé par :

    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Windows("classeur contenant la macro.xls").Activate
    Application.Goto Sheets("donnéesN").Range("A2")
    ActiveSheet.Paste

merci à vous

 

[pierrejean]

Re : Nom de feuille dans macro

bonjour Darnel

voici ce que je ferais

en debut de macro
lefichier=Thisworkbook.Name
ensuite
Windows(lefichier).Activate

mais bien difficile a tester

 

[Darnel]

Re : Nom de feuille dans macro

Bonjour pierrejean


Je teste ça et je t'en donne des nouvelles
Merci

 

[Darnel]

Re : Nom de feuille dans macro

Re


Bon et bien Merci beaucoup, cela a l'air de parfaitement fonctionner.

bonne fin de journée

A+