Macro qui s'éxécute dans tous les classeurs ouverts

Bonjour,

Je souhaite éxécuter une macro qui renomme une feuille dans tous les classeurs ouverts. Le nom de la feuille est toujours le même.

Code:

---

1 2 3 4 5 6 7

Sub nomdefeuilles() Dim Wb As Workbook For Each Wb In Workbooks Sheets("A").Select ActiveSheet.Name = "B" Next Wb End Sub

---

Le problème c'est que la macro ne change pas de Workbook, elle reste sur le même, et ne trouvant plus de feuille "A", elle affiche une erreur.

Merci pour votre aide,

Tharka

Code:

---

1 2 3 4 5 6 7 8

Sub nomdefeuilles() Dim Wb As Workbook For Each Wb In Workbooks wb.Sheets("A").Select ActiveSheet.Name = "B" Next Wb End Sub

---

sheet("A").select est en fait équivalent à activeworkbook.sheets("a").select
et le changement de classeur dans la boucle n'active pas de classeur, donc activeworkbook ne change jamais.

Merci,

Mais il me met un message d'erreur "1004"; Select method of worksheet class failed
Apparemment il n'arrive pas à sélectionner la feuille "A"

Bonjour
Ce p'tit bout de code permet de boucler sur tout les classeurs

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro1() Dim Cls As Integer ' pour passer au classeur suivant si A pas trouver On Error Resume Next For Cls = 1 To Windows.Application.Workbooks.Count Application.Workbooks(Cls).Sheets("A").Name = "B" Next Cls   End Sub

---

For each Wb in application aurait été plus proche de la réalité puisque un workbook contient des feuilles et une application(excel) contient des workbooks

Super merci beaucoup,

Problème résolu!