Worbooks saveas
petitstagiaire
Messages postés
73
Date d'inscription
mardi 23 juillet 2002
Statut
Membre
Dernière intervention
10 juillet 2003
-
31 juil. 2002 à 11:28
cs_seblomb Messages postés 36 Date d'inscription dimanche 22 octobre 2000 Statut Membre Dernière intervention 4 avril 2003 - 31 juil. 2002 à 15:49
cs_seblomb Messages postés 36 Date d'inscription dimanche 22 octobre 2000 Statut Membre Dernière intervention 4 avril 2003 - 31 juil. 2002 à 15:49
3 réponses
cs_seblomb
Messages postés
36
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
4 avril 2003
31 juil. 2002 à 12:59
31 juil. 2002 à 12:59
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)
@+
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)
@+
petitstagiaire
Messages postés
73
Date d'inscription
mardi 23 juillet 2002
Statut
Membre
Dernière intervention
10 juillet 2003
31 juil. 2002 à 14:09
31 juil. 2002 à 14:09
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
cs_seblomb
Messages postés
36
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
4 avril 2003
31 juil. 2002 à 15:49
31 juil. 2002 à 15:49
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.
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.
