Variable MsgBox fichier et onglet

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:

---

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...

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:

---

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

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

Code:

---

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.

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

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

Code:

---

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

---

Merci, et donc

Code:

---

"=VLOOKUP('octobre modifié'!RC[-8],'table titul_contract'!C[-38]:C[-37],2,FALSE)"

---

Je le remplace par

Code:

---

1 2	"=VLOOKUP('Lenomdetanouvellefeuille .RANGE("A3")'!RC[-8],'table titul_contract'!C[-38]:C[-37],2,FALSE)"

---

On dirait que tu fais exprès....

J'en sais rien ce qu'il y a dans ton classeur. Si tu veux mettre une variable tu le mets en variable.. Si tu veux du fixe tu mets du fixe. Si tu veux mettre le contenu d'une cellule dans une de tes formule tu dois utiliser ton range.value... Sinon pas.

J'en reste là.

J'ai une erreur de syntaxe pour ce code cela me marque incompatibilité de type

Code:

---

Windows(Sheets("REFERENCE").Range("B2")).Activate

---

Code:

---

Sheets("REFERENCE").Range("B2")

---

y'a quoi là dedans ?

Dans ma feuille REFERENCE il y a
le nom du fichier de travail B2
le nom du fichier ou estraire les valeurs B3
l'onglet ou effectué les modification B4
Ainsi que sur ce code cela me marque erreur de synthaxe

Code:

---

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

---

Code:

---

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

---

Je suis tellement sur des langages différents que je n'avais même pas remarqué les guillemets ce problème est résolu.

Incompatibilité de type pour:

Code:

---

Windows(Sheets("REFERENCE").Range("B3")).Activate

---

Si le nom est bon en B2 et que le fichier est ouvert alors aucune raison que ça ne fonctionne pas.

Code:

---

Windows(Sheets("REFERENCE").Range("B2").value).Activate

---

Nouveau probleme..
L'indice n'appartient pas a la sélection

Code:

---

1 2	ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-23],'[" & Sheets("Lenomdetanouvellefeuille").Range("A2").Value & "]Feuil1'!R1:R3074,7,FALSE)"

---

Merci engue de ton aide, je te dit a demain. Là j'en peu plus de voir ces lignes ...
Bonjour, alors je retente aujourd'hui.

Incompatibilité de type pour:

Code:

---

Windows(Sheets("reference").Range("A2")).Activate

---

L'indice n'appartient pas a la selection

Code:

---

Windows(Sheets("reference").Range("A1")).Activate

---

Avec ce code il me demande de sélectionner un fichier alors que c'est une feuille

Code:

---

1 2	ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-23],'[" & Sheets("reference").Range("A3").Value & "]'!R1:R3074,7,FALSE)"

---