Macro pour insérer nouvelle feuille de planning

[isa44]

Bonjour , je sollicite votre aide pour modifier une macro faite avec l'enregistreur de macro :

Il faut créer de nouvelles feuilles journalières d'un planning ( avec les dates incrémentées ) et renommer l'onglet par la date de la feuille nouvellement créer.

Ci joint l'exemple de fichier qui sera plus explicite

Merci par avance pour votre aide

 

[NezQuiCoule]

Re : Macro pour insérer nouvelle feuille de planning

Bonjour isa44,

Remplacer votre macro par la suivante :

Sub Macro3()

    Dim Jour As Date
    Jour = Sheets(1).Range("H3").Value
    Jour = Jour + 1
    Sheets(1).Copy Before:=Sheets(1)
    Sheets(1).Name = Format(Jour, "ddd-dd-mmm-yyyy")
    Sheets(1).Range("H3") = Jour
    
End Sub

 

[isa44]

Re : Macro pour insérer nouvelle feuille de planning

Extra , Merci cela fonctionne

 

[camarchepas]

Re : Macro pour insérer nouvelle feuille de planning

Bonjour à toutes et tous ,

Presque la même , j'ai fais , je poste