Discussion :

[Tharka]

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 :

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

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

[BenjGe]

Code :

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

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.

[Tharka]

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"

[keygen08]

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

Code :

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

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

[Tharka]

Super merci beaucoup,

Problème résolu!