Worbooks saveas

Signaler
Messages postés
73
Date d'inscription
mardi 23 juillet 2002
Statut
Membre
Dernière intervention
10 juillet 2003
-
Messages postés
36
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
4 avril 2003
-
en détresse

Je souhaite sauvegarder f:\test\test.xls
dans f:\2002\test\test.xls

j'utilise :
Workbooks(.FoundFiles(i)).SaveAs (Path_Classeur & Annee & "" & Rep & "" & Fic)

erreur d'execution 9
l'indice n'appartient pas a la sélection

3 réponses

Messages postés
36
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
4 avril 2003

Salut,

Je crois (je dis bien je crois, c'est à vérifier!!) que l'objet FoudFiles est en lecture seule...donc pas possible d'écraser l'ancienne version de ton fichier.

Mais c'est juste une hypothèse. :shy)

@+
0
Messages postés
73
Date d'inscription
mardi 23 juillet 2002
Statut
Membre
Dernière intervention
10 juillet 2003

en fait je ne cherche pas écraser le fichier mais le copier. j ai meme essayer SaveCopyAs et ca ne marche pas. je crois que je vais etre obligé d'ouvrir le fichier pour en faire un copie
0
Messages postés
36
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
4 avril 2003

Oui, j'avais mal lu, désolé.
Par contre il me semble qu'on ne peut pas sauvegarder un classeur Excel sans que celui-ci soit ouvert...

tu peux faire ça (sauf si y a un meilleur moyen)
Workbooks.Open Filename:=.FoundFiles(I) ActiveWorkbook.SaveAs Path_Classeur & Annee & "" & Rep & "" & Fic
ActiveWorkbook.Close

Mais tu l'avais déjà compris.

Bye.
0