nom d'une feuille

Bonjour Hammock, le Forum


UNe première approche avec l'Index Number (L'index est le numéro de Feuille en partant de la Gauche des Onglets, attention aux Index des Feuilles cachées au cas où)

Sub ReNameWorkSheet()
Dim NewName As String

NewName = Worksheets(1).Range('A1')

On Error GoTo Out
Worksheets(2).Name = NewName

Exit Sub
Out:
    If Err = 1004 Then
        MsgBox 'Impossibilité de renommer la Feuille, vérifier si doublon de nom, ou caractère interdit'
    Else
        MsgBox 'Erreur Non Gérée', vbCritical
    End If
End Sub

Cliquez pour agrandir...

Ici donc la Cellule 'A1' de La Feuille Index 1 donnera le nom de La Feuille Index 2 ...

Bon Dimanche
[ol]@+Thierry[/ol]

Merci beaucoup _Thierry B) :lol: :woohoo: