Chasse
XLDnaute Occasionnel
Bonjour le forum
J’aimerai intégrer dans la macro existante
une commande me permettant de déplacer l’avant dernière feuille et de copier la dernière SI LE MOIS de la nouvelle feuille n’est pas le même que le reste des autres feuilles.
Exemples quand je déclenche la macro, si c’est le dernier jour ouvrable J’aimerai que la boîte de dialogue enregistrer.sous s’ouvre pour pouvoir crée un nouveau fichier avec la nouvelle feuille « qui n’ai pas du même mois que les autres » et une copie de la dernière feuille
D’avance merci de votre aide
Fichier ci-joint
J’aimerai intégrer dans la macro existante
Code:
Public Sub AjouterJour()
Dim D As Date
'Copie de l'avant dernier onglet
Sheets(Worksheets.Count - 1).Copy After:=Sheets(Worksheets.Count - 1)
With ActiveSheet
D = .Range("I1").Value + 1
If Weekday(D, vbMonday) = 6 Then D = D + 2
.Range("I1").Value = D
'Nom de la Feuille
.Name = Format(D, "DDDD d mmm YYYY")
End With
End SubExemples quand je déclenche la macro, si c’est le dernier jour ouvrable J’aimerai que la boîte de dialogue enregistrer.sous s’ouvre pour pouvoir crée un nouveau fichier avec la nouvelle feuille « qui n’ai pas du même mois que les autres » et une copie de la dernière feuille
D’avance merci de votre aide
Fichier ci-joint