itération de nom de fichier

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:

---

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

Bonjour

Code:

---

1 2 3 4 5

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

---

merci JPIERRE
ca fonctionne parfaitement :ccool: