renommage de feuille excel Fermé

Question

Bonjour, 

bonjour, je debute totalement dans le vba mais j ai une petite question
j ai codé ceci , mais le probleme c'est que effectivement sur ma 1ere feuille le nom de la feuille correspond bien à ma cellule G6 mais impossible de passer sur une autre feuille, comment je peux faire?

Option Explicit
Sub Macro1()

Dim pt As PivotTable

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ActiveSheet.Name = Range("g6").Value

Next ws

End Sub 

Configuration: Windows 7 / Firefox 32.0

pijaku · Answer

Bonjour,

Remplacer ActiveSheet (feuille active) par ws (feuille référencée dans la boucle) :
 
Option Explicit
Sub Macro1()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    ws.Name = ws.Range("G6").Value 'les noms sont placés, dans chaque feuille, en G6
Next ws
End Sub

Renommage de feuille excel

1 réponse

Discussions similaires