Y
yann
Guest
bonjour à tous!
voici mon pb; j'avais trouvé la solution pour créer sur excel avec un fichier subdivisée en 12 mois (année N) une macro qui permettrait spontanément de faire un autre classeur (soit année N+1) or quand je demande l'exécution de la macro, microsoft visual basic me marque :
erreur exécution'9'
l'indice n'appartient pas à la sélection.
seul choix demander un débogage mais je suis novice et ne sait pas corriger l'erreur que doit-je faire? a tout hasard voici les instructions de la macro, quest ce qui cloche d'aprés vous et à quel endroit?
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/10/2004 par pellet
'
' Touche de raccourci du clavier: Ctrl+n
'
Workbooks.Add
Windows("Copie de prototype relevé C.E N+1.xls").Activate
Sheets(Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", _
"septembre", "octobre", "novembre", "decembre")).Select
Sheets("janvier").Activate
Sheets(Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", _
"septembre", "octobre", "novembre", "decembre")).Copy Before:=Workbooks( _
"Classeur3").Sheets(1)
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Feuil3").Select
ActiveWindow.SelectedSheets.Delete
ActiveWindow.TabRatio = 0.386
Range("A9").Select
Application.WindowState = xlMinimized
ChDir "C:\Documents and Settings\alain\Mes documents\yannick"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\alain\Mes documents\yannick\Classeur3.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.WindowState = xlMinimized
ActiveWindow.Close
Sheets("janvier").Select
End Sub
par avance merci pour toute aide dans ce domaine.
bye à +
voici mon pb; j'avais trouvé la solution pour créer sur excel avec un fichier subdivisée en 12 mois (année N) une macro qui permettrait spontanément de faire un autre classeur (soit année N+1) or quand je demande l'exécution de la macro, microsoft visual basic me marque :
erreur exécution'9'
l'indice n'appartient pas à la sélection.
seul choix demander un débogage mais je suis novice et ne sait pas corriger l'erreur que doit-je faire? a tout hasard voici les instructions de la macro, quest ce qui cloche d'aprés vous et à quel endroit?
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/10/2004 par pellet
'
' Touche de raccourci du clavier: Ctrl+n
'
Workbooks.Add
Windows("Copie de prototype relevé C.E N+1.xls").Activate
Sheets(Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", _
"septembre", "octobre", "novembre", "decembre")).Select
Sheets("janvier").Activate
Sheets(Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", _
"septembre", "octobre", "novembre", "decembre")).Copy Before:=Workbooks( _
"Classeur3").Sheets(1)
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Feuil3").Select
ActiveWindow.SelectedSheets.Delete
ActiveWindow.TabRatio = 0.386
Range("A9").Select
Application.WindowState = xlMinimized
ChDir "C:\Documents and Settings\alain\Mes documents\yannick"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\alain\Mes documents\yannick\Classeur3.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.WindowState = xlMinimized
ActiveWindow.Close
Sheets("janvier").Select
End Sub
par avance merci pour toute aide dans ce domaine.
bye à +