Microsoft 365 format de date vba renommer feuille

tahon.patrice · 8 Novembre 2023

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 · 8 Novembre 2023

Bonjour et bienvenu sur le forum
Ci joint ma solution

A+ François

Eric KERGRESSE · 8 Novembre 2023

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

sylvanu · 8 Novembre 2023

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

tahon.patrice · 8 Novembre 2023

fanfan38 à dit:
Bonjour et bienvenu sur le forum
Ci joint ma solution

A+ François

merci Francois

tahon.patrice · 8 Novembre 2023

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

Génial merci Sylvanu

Microsoft 365 format de date vba renommer feuille

tahon.patrice

XLDnaute Nouveau

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

Eric KERGRESSE

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

tahon.patrice

XLDnaute Nouveau

tahon.patrice

XLDnaute Nouveau

Discussions similaires