Macro pour insérer nouvelle feuille de planning

isa44

XLDnaute Occasionnel
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
 

Pièces jointes

  • plann.xls
    38.5 KB · Affichages: 26
  • plann.xls
    38.5 KB · Affichages: 31
  • plann.xls
    38.5 KB · Affichages: 27

NezQuiCoule

XLDnaute Occasionnel
Re : Macro pour insérer nouvelle feuille de planning

Bonjour isa44,

Remplacer votre macro par la suivante :

Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 907
Membres
101 836
dernier inscrit
karmon