Microsoft 365 format de date vba renommer feuille

fanfan38 à dit:

Bonjour et bienvenu sur le forum
Ci joint ma solution

A+ François

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Patrice,
Un essai en PJ avec :

VB:

Sub RenommerFeuille()
    On Error GoTo ErrNom
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("F5").Value <> "" Then ActiveSheet.Name = Format(wh.Range("F5"), "dd-mm-yy")
    wh.Activate
Exit Sub
ErrNom:
    MsgBox "Ce nom de feuille existe déjà."
End Sub

Cliquez pour agrandir...