RENOMMER UN ONGLET PAR LA VALEUR D'UNE CELLULE

Bonsoir

A mettre par ALT F11 (VBA) dans le ThisWorkbook

A chaque lancement du classeur les onglets se mettent à jour si la cellule VA de l'onglet n'est pas vide

Private Sub Workbook_Open()

  Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Sheets

      If ws.Name <> "" Then

        ws.Name = Format(ws.Range("V3").Value, "dd mmm")

      End If

  Next

End Sub

Merci ca fonctionne

Martin

Bonjour Martin,

J'ai suivi tes diverses demandes depuis notre (très) long débat sur ton application.

J'ai vu, notamment que tu avais demandé de nommer l'onglet "Recto" avec la date se trouvant en V3.  Donc cela devait, en principe, avoir une certaine utilité pour toi.

Je constate que la proposition qui t'a été faite est revenue à la solution initiale càd laisser Recto comme nom de ton onglet.  C'est peut-être suffisant pour toi puisque tu dis que cela fonctionne.

Toutefois je t'ai préparé une solution qui effectue le changement de nom de l'onglet tout en permettant de continuer de changer la date et d'adapter à chaque fois le nom de l'onglet.

A toi de voir si cela t'intéresse.

https://www.cjoint.com/c/GLxqVYydgwo

A+

Chris

Oui ca m'interesse

C'est exactement ce que je voulais

merci encore