Discussion :

[volubiliss]

Bonjour

J'ai 40 feuilles xls auxquelles j'aimerai donner a chacune un nom inclus dans la cellule B3 de chaque feuille
j'ai essayé cette procédure itérative mais cela ne marche pas pourriez vous m'orientez?

Code :

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

1
2
3
4
5
6
7
Dim i As String
Dim ws As Sheets
For ws = 1 To 40
Do
i = activeworksheet.Name = Range("B3").Value
 
Next ws

merci d'avance

[JPierreM]

Bonjour

Code :

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

1
2
3
4
5
Sub sc()
For i = 1 To 40
Worksheets(i).Name = Worksheets(i).Range("B3").Value
Next i
End Sub

[volubiliss]

merci JPIERRE
ca fonctionne parfaitement