Copier onglets

[jacky49]

Bonsoir le Forum,

voila, j'ai un onglet appellé 0104(cela correspond au 1 avril), j'aurais voulu créer ou copier les onglets en ajoutant les autres jours du mois d'avril (ex: 0204,0304,0404 etc..) et si cela est possible, qu'il me change aussi la date en A1, que la date corresponde à la date de l'onglet.
merci
jacky

 

[ROGER2327]

Re : Copier onglets

Bonsoir

Placez ce code dans un module standard :

Sub duplique()
Dim i&, f As Object
   Application.ScreenUpdating = False
   Set f = ActiveSheet
   If IsDate(f.Range("A1").Value) Then
      For i = DateSerial(Year(f.Range("A1").Value), Month(f.Range("A1").Value), 1) To DateSerial(Year(f.Range("A1").Value), Month(f.Range("A1").Value) + 1, 0)
         f.Copy after:=Sheets(Sheets.Count)
         With ActiveSheet
            .Range("A1").Value = i
            On Error GoTo E
            .Name = Format(i, "ddmm")
            On Error GoTo 0
         End With
      Next
   End If
   f.Activate
   Set f = Nothing
   Application.ScreenUpdating = False
Exit Sub
E: Application.DisplayAlerts = False
   ActiveSheet.Delete
   Application.DisplayAlerts = True
   Resume Next
End Sub

Activez la feuille à dupliquer.
Assurez-vous qu'elle contient une date valide en A1.
Exécutez le code.​

ROGER2327
#2897

 

[jacky49]

Re : Copier onglets

Re le Forum, ROGER2327

Merci beaucoup, c'est super et c'est rapide.
jacky