ajoute onglet

[caline]

bonsoir à tous le forum

j'essaye d'appliquer une macro trouvé dans les archives non_onlglet

j'y arrive avec le fichier test mais quand je copie la macro dans mon fichier, je n'y parviens pas ? je souhaiterais comprendre

le message affiché est erreur d'excecution 9
l'indice n'appartient pas à la sélection


dans cette macro comment permettre l'affichage d'au moins 15 feuilles

Sub copiemois()
ThisWorkbook.Worksheets(1).Move after:=Sheets(12)
madate = ActiveSheet.Range("a1")
année = Year(madate)
mois = Month(madate)
madate = "1/" & mois & "/" & année + 1
ActiveSheet.Range("a1") = Format(madate, "mmm/yyyy")
ActiveSheet.Name = Format(madate, "mmm_yy")
End Sub


je vous envoie le test que je devrais introduire dans un fichier horaire

merci à vous tous

 

[Kobaya]

Re : ajoute onglet

salut caline,

ThisWorkbook.Worksheets(1).Move after:=Sheets(12)

ton classeur a-t-il au moins 12 feuilles ? si non, le message d'erreur est normal puisque tu lui demandes de déplacer l'onglet après la 12e feuille 😉

 

[caline]

Re : ajoute onglet

salut Kobaya

que veux-tu dire c'est ce que j'ai mis

 

[caline]

Re : ajoute onglet

kobaya sorry j'ai répondu avant que tes explications arrivent

j'ai rajouté 12 feuilles, et bizarre il me nomme l'onglet d'une drôle de façon
expl : de février 2006 il inscript déc 2010
je pens e que vais me reposer et comprendrai mieux tantôt

a plus

 

[Kobaya]

Re : ajoute onglet

re,

poste ton fichier modifié, j'y jetterai de nouveau un oeil 😀