Code Array

[sten83]

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

 

[camarchepas]

Re : Code Array

Bonjour,

a quel endroit du code créées tu Recap, mais si tu le rajoutes à la main dans le classeur modèle, cela ce passe bien .....

A moins que RECAP ne porte un autre nom ....

 

[Efgé]

Re : Code Array

Bonjour sten83, camarchepas 🙂
RECAP est le CodeName de la feuille "TOTAL GENERAL"
En utilisant le nom cela devrait aller:

Sheets(Array("JOUR1", "JOUR2", "JOUR3", "JOUR4", "JOUR5", "JOUR6", "JOUR7", "JOUR8", "JOUR9", "JOUR10", "TOTAL GENERAL")).Copy

Cordialement

 

[camarchepas]

Re : Code Array

Bonjour Efgé,

Surtout en informatique , si l'on nomme un truc de nom de machin alors que c'est un bidule, c'est sûr que l'on à toutes les chances de ne jamais arriver plus loin que le point d'ou l'on est partis.

Merci donc à ta boule de cristal et ta claire voyance.

 

[Si...]

Re : Code Array

salut

Si... tu veux réduire tes codes, copie dans ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Sh.Protect "vinci"
  Sh.ScrollArea = "A1:AL71"
  Sh.EnableSelection = xlUnlockedCells
  Sh.Range("A18").Select
End Sub

et supprime ces lignes dans les onglets où elles figurent.