Discussion :

[derf3183]

Bonjour,

Dans un premier temps ma macro va déplacer une feuille dans un nouveau classeur (donc le nom changera à chaque fois): jusque là ca va

Je voudrais ensuite revenir sur la feuille principale dont le nom ne changera pas pour faire des modifs (protéger le classeur en fait)

Pb: il faut que je retourne sur la feuille déplacée pour la fin de ma macro et le problème c'est que le nom du classeur sera différent à chaque fois

Est-il possible de rechercher une feuille dans plusieurs classeurs à partir de son nom qui lui sera identique ???

Voila le début de ma macro:

Code :

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

1
2
    Sheets("projet avec ROI 5 ans (2)").Select
    Sheets("projet avec ROI 5 ans (2)").Move

La feuille se nommera tjs projet avec roi 5 ans, je change le nom plus tard.
Je sais que c un peu bizarre mais je suis obligé de faire la macro dans cet ordre à cause de la protection du classeur.

Merci

[ouskel'n'or]

Je réponds à cette question :

Est-il possible de rechercher une feuille dans plusieurs classeurs à partir de son nom qui lui sera identique ???

Oui ! Tu peux.

Code :

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

1
2
3
4
5
For Each LeClasseur In Workbooks
     For Each LaFeuille In LeClasseur.Worksheets
           MsgBox "Classeur " & LeClasseur.Name & vbCr & "Feuille " & LaFeuille.Name
     Next LaFeuille
Next LeClasseur

Tu fais un test sur le nom (LaFeuille.name) et tu as ta feuille

[derf3183]

Je suis désolé je suis pas très très fort avec des macros compliqués

J'ai essayé de faire ce que tu m'as dit mais j'ai pas compris à quel endroit je dois lui dire de checher la feuille projet avec roi 5 ans (2)

En gros j'ai pas compris ce que ca voulais dire de faire le test sur LaFeuille.Name.....

Merci

[derf3183]

De plus sommes nous obligés de passer par une MsgBox car moi je voudrais que cela se fasse automatiquement sans boite de dialogue

merci

[conconbrr]

Je pense que ouskel'n'or t'as donné une méthode pour avoir le nom du classeur et de chaque page du classeur tu dois donc juste modifier le code et remplacer le msgbox par une condition.

Code :

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

1
2
3
4
5
6
7
For Each LeClasseur In Workbooks
     For Each LaFeuille In LeClasseur.Worksheets
           if lafeuille.name="projet avec roi 5 ans" and leclasseur.name<> "Nom de ton premier classeur" then
                TON CODE
           endif
     Next LaFeuille
Next LeClasseur

[derf3183]

Salut,
j'ai donc essayé de faire ce que tu m'as dit c'est à dire que je lui demande si il y a une feuille projet avec roi 5 ans de la sélectionner

Je suppose que c'est ceal que tu veux dire par ton code

Mais ca marche pas ca met débogage

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
For Each LeClasseur In Workbooks
     For Each LaFeuille In LeClasseur.Worksheets
           If LaFeuille.Name = "projet avec roi 5 ans (2)" Then
                Sheets("projet avec roi 5 ans (2)").Select
           End If
     Next LaFeuille
Next LeClasseur
End Sub

Merci