bonjour
je ne comprends pas l'origine de l'erreur d'exécution "l'indice n'appartient pas à la sélection". j'ai beau essayer differentes choses, j'ai tjs un plantage à la dernière instruction close. voici la macro
Sub Macro1()
Dim Chemin As String, nom1 As String, nom2 As String, I As Integer, Fin As Integer
Chemin = ThisWorkbook.Path
nom1 = "model.xls"
nom2 = "copie_model"
Workbooks.Open Filename:=Chemin & "\" & nom1
ActiveWorkbook.SaveAs Filename:= _
Chemin & "\" & nom2 & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks(nom1).Close
'workbooks("model.xls").close
End Sub
je ne comprends pas l'origine de l'erreur d'exécution "l'indice n'appartient pas à la sélection". j'ai beau essayer differentes choses, j'ai tjs un plantage à la dernière instruction close. voici la macro
Sub Macro1()
Dim Chemin As String, nom1 As String, nom2 As String, I As Integer, Fin As Integer
Chemin = ThisWorkbook.Path
nom1 = "model.xls"
nom2 = "copie_model"
Workbooks.Open Filename:=Chemin & "\" & nom1
ActiveWorkbook.SaveAs Filename:= _
Chemin & "\" & nom2 & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks(nom1).Close
'workbooks("model.xls").close
End Sub