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

[ouskel'n'or]

Essai ça

Code :

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

1
2
3
4
5
6
7
8
For Each LeClasseur In Workbooks
     For Each LaFeuille In LeClasseur.Worksheets
           If instr(Lcase(LaFeuille.Name), "projet avec roi 5 ans (2)") <> 0 Then
                Workbooks(LeClasseur.name).Sheets(LaFeuille.Name).Select
           End If
     Next LaFeuille
Next LeClasseur
End Sub

lcase est là pour que la casse du nom de la feuille soit identique au nom testé
Mais il faut que tu indiques le CLASSEUR sans quoi VBA il sait pas

[conconbrr]

Essaie ça, ça marche chez moi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub yui()
 
Dim LeClasseur, LaFeuille As Variant
 
For Each LeClasseur In Workbooks
     For Each LaFeuille In LeClasseur.Worksheets
           If LaFeuille.Name = "Feuil1" And LeClasseur.Name <> "Classeur1" Then
                LeClasseur.Activate
                Sheets("Feuil1").Select
           End If
     Next LaFeuille
Next LeClasseur
 
End Sub

N'oublie pas de préciser la condition leclasseur.name<>"Premier classeur" sinon la condition sera vérifiée pour tes deux classeurs...

[derf3183]

Nickel
ca a lair de bien marcher

Merci beaucoup à tous les deux