sten83
XLDnaute Occasionnel
Bonjour, dans un post précédent je voulais des informations sur du code avec la fonction Array, hors je rencontre un nouveau problème, y a t'il une limite pour les index . Impossible d'ajouter une autre feuille, merci pour votre aide précieuse.
Je joint le classeur
Merci
Voici le code de la macro
Sub NouvelleSemaine()
Sheets(Array("JOUR1", "JOUR2", "JOUR3", "JOUR4", "JOUR5", "JOUR6", "JOUR7", "JOUR8", "JOUR9", "JOUR10")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\SEMAINES ILLISIBLES TERMINEES\SEMAINE" & " " & JOUR1.Range("AA4").Value
ActiveWorkbook.Close
MsgBox "Semaine saugegardé" & Chr(13) & "Vous pouvez faire la remise a zéro!", vbInformation, "Semaine" & " " & JOUR1.Range("AA4").Value
Application.DisplayAlerts = True
End Sub
impossible de rajouter la feuille RECAP ?
pour le code VB le mot de passe st83en27
Je joint le classeur
Merci
Voici le code de la macro
Sub NouvelleSemaine()
Sheets(Array("JOUR1", "JOUR2", "JOUR3", "JOUR4", "JOUR5", "JOUR6", "JOUR7", "JOUR8", "JOUR9", "JOUR10")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\SEMAINES ILLISIBLES TERMINEES\SEMAINE" & " " & JOUR1.Range("AA4").Value
ActiveWorkbook.Close
MsgBox "Semaine saugegardé" & Chr(13) & "Vous pouvez faire la remise a zéro!", vbInformation, "Semaine" & " " & JOUR1.Range("AA4").Value
Application.DisplayAlerts = True
End Sub
impossible de rajouter la feuille RECAP ?
pour le code VB le mot de passe st83en27