Microsoft 365 format de date vba renommer feuille

[tahon.patrice]

Bonjour à tous,
je me creuse la tête pour une chose qui doit paraître évidente à plus d'un d'entre vous
j'aimerai pouvoir renommer une feuill de classeur sous le format moi année = ex : mai 2023 ou 4/2023 sous vba à partir d'une cellule (f5)
quelqu'un peut il m'aider ?
merci

 

[fanfan38]

Bonjour et bienvenu sur le forum
Ci joint ma solution

A+ François

 

[Eric KERGRESSE]

Bonjour,
Une autre proposition . Il suffit de changer la date.

 

[sylvanu]

Bonjour Patrice,
Un essai en PJ avec :

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

 

[tahon.patrice]

Bonjour et bienvenu sur le forum
Ci joint ma solution

A+ François

merci Francois

 

[tahon.patrice]

Bonjour Patrice,
Un essai en PJ avec :

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

Génial merci Sylvanu