Discussion :

[dvdhag123]

Bonjour,
Alors je vous expose mon problème, j'ai plusieurs macro différent (1 jusque 8) et dans ces macros il y a des nom de fichiers ou d'onglet. Mais ces fichier change en fonction du mois.

ex:

Code :

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

1
2
3
Windows("Masse salariale 2013 mois par mois PC.xlsm").Activate
Windows("suividep 102013.xls").Activate
Worksheets("octobre modifié")

Ces fichiers ou onglet change chaque mois c'est pour cela que j'avais pensé à créer des variables.
Et pour entrer le nouveau nom j'avais pensé à faire une sorte de MsgBox qui demande d'entrer le nom de fichier 1,2 ou 3 et qui change le nom dans toutes les macros, mais je ne sait pas comment faire...

[EngueEngue]

Le plus simple:

Tu crées un feuille qui s'appellera dans mon exemple "Lenomdetanouvellefeuille" ou tu vas mettre en A1 A2 et A3 des classeurs, puis dans tes macros tu vas mettre

A1=Masse salariale 2013 mois par mois PC.xlsm
A2=suividep 102013.xls
A3=octobre modifié

Code :

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

1
2
3
Windows(Sheets("Lenomdetanouvellefeuille").range("A1")).Activate
Windows(Sheets("Lenomdetanouvellefeuille").range("A2")).Activate
Worksheets(Sheets("Lenomdetanouvellefeuille").range("A3"))

Il te suffira de changer les noms dans tes cases

[dvdhag123]

Merci.
J'ai une question car j'ai une macro qui fait des recherches:
exemples:

Code :

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

1
2
3
 
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-23],'[suividep 102013.xls]Feuil1'!R1:R3074,7,FALSE)"

Le "suividep 102013.xls" je le remplace par "B3" ou par Windows(Sheets "référence").range(“B3”).Activate

Je précise "suividep 102013.xls" est une source extérieur.

[EngueEngue]

Tu le remplaces par le value du range ou tu mets ta variable.

[dvdhag123]

Donc par "Lenomdetanouvellefeuille!A2"
ou .Range("A2")

[EngueEngue]

Code :

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

"=VLOOKUP(RC[-23],'[ & " Sheets("Lenomdetanouvellefeuille").range("A2") & "]Feuil1'!R1:R3074,7,FALSE)"