cette foutue erreur d'execution 9

[kazkaz]

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

 

[RENAUDER]

Re : cette foutue erreur d'execution 9

bonjour,
Tu remplaces
Workbooks(nom1).Close
par
ActiveWorkbook.Close savechanges:=True

 

[kazkaz]

Re : cette foutue erreur d'execution 9

mais ce n'est pas le classeur activé que je veux fermer. et quand j'essaye de l'activer pour pouvoir le fermer avec activeworkbook.close, j'ai la même erreur au niveau de l'activation

 

[Pierrot93]

Re : cette foutue erreur d'execution 9

Bonjour Kazkaz, Eric

pas sur d'avoir tout compris, mais si tu ouvres un fichier, tu fais ensuite un "enregistrer sous" pour enregistrer ce même fichier sous un autre nom, le fichier avec le nom 1 n'est plus ouvert, enfin chez moi Excel 2003...

bonne soirée
@+

 

[RENAUDER]

Re : cette foutue erreur d'execution 9

Bonjour,
Cela est normal, nom1 n'existe plus puisque tu viens de le renommer en nom2 !!!

Workbooks(nom1).Close savechanges:=True

Sinon pour activer le classeur qui est en arrière-plan, c'est Windows(monclasseur).Activate

 

[Pierrot93]

Re : cette foutue erreur d'execution 9

Re

Eric, ton fichier reste ouvert en arriere plan avec le nom d'origine après l'avoir enregistré sous un autre nom !!! quelque chose à dû m'échapper...

@+

 

[RENAUDER]

Re : cette foutue erreur d'execution 9

Bonjour pierrot,
Voici une copie d'écran après
Workbooks.Open Filename:=Chemin & "\" & nom1
et une seconde après
ActiveWorkbook.SaveAs Filename:= _
Chemin & "\" & nom2 & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

 

[Pierrot93]

Re : cette foutue erreur d'execution 9

Re

oui, "modèle.xls" n'est plus disponible après, a été remplacé après par "copie_modèle.xls"... Car je suppose "modele.xls" ouvert pas vba, devient classeur actif, celui là même concerné par le "save as"...

 

[RENAUDER]

Re : cette foutue erreur d'execution 9

Pierrot,
Oui j'utilise un classuer indépendant ayant le code VBA et gérant model.xls et copie_model.xls

 

[Pierrot93]

Re : cette foutue erreur d'execution 9

Re,

oui, en fait je crois que nous sommes d'accord, tu ouvres donc modèle.xls et après l'enregistrement sous, demeure le classeur copie_modèle.xls et le classeur où se trouve la macro.... Fatigué, moi ce soir.. lol... bonne soirée
@+

 

[RENAUDER]

Re : cette foutue erreur d'execution 9

Bonjour,
C'est bien ça mais surtout pas de sur-régime, vas te reposer.
Amicalement
A+

 

[kazkaz]

Re : cette foutue erreur d'execution 9 ! RESOLU

bonjour
que je suis bête ! j'essayais de fermer un classeur qui n'existe plus puisqu'il a été renommé. mille excuses !
merci Renauder et Pierrot93.