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
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