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)"

[dvdhag123]

Merci, et donc

Code :

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

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

Je le remplace par

Code :

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

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

[EngueEngue]

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

[dvdhag123]

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

Code :

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

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

[EngueEngue]

Code :

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

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

y'a quoi là dedans ?

[dvdhag123]

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 :

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

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

[EngueEngue]

Code :

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

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

[dvdhag123]

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 :

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

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

[EngueEngue]

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

Code :

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

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

[dvdhag123]

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

Code :

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

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

[dvdhag123]

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 :

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

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

L'indice n'appartient pas a la selection

Code :

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

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

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

Code :

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

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