Vérifier la présence d'un fichier sous Excel [Résolu]

Signaler
Messages postés
2
Date d'inscription
lundi 26 juillet 2004
Statut
Membre
Dernière intervention
15 septembre 2004
-
Messages postés
2
Date d'inscription
lundi 26 juillet 2004
Statut
Membre
Dernière intervention
15 septembre 2004
-
Bonjour,

Je souhaite créer l'enregistrement d'un classeur Excel dans un répertoire bien défini.
Mais avant je souhaiterais savoir si un fichier portant le même nom existe...pour ne pas l'écraser.

Je ne sais pas si j'ai bien été clair...

Path = ActiveWorkbook.Path

Sheets("Maquette").Select
Sheets("Maquette").Copy
ActiveWorkbook.SaveAs Filename:=Path & "\toto.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Message = MsgBox("Le fichier à été enregistré sous le nom suivant" & Chr(13) & Path & "toto.xls",vbinformation)

Enjoy and have fun !

2 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
56
salut,

ajoute la reference Windows Script Host Object Model.

Tu pourra utiliser le FileSystemObject comme suit:

Dim fs as new filesystemobject

Sheets("Maquette").Select
Sheets("Maquette").Copy

if fs.fileexists(Path & "\toto.xls") then
msgbox "le fichier existe deja"
else

ActiveWorkbook.SaveAs Filename:=Path & "\toto.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Message = MsgBox("Le fichier à été enregistré sous le nom suivant" & Chr(13) & Path & "toto.xls",vbinformation)
end if

@+
-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------

:big)
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci

Messages postés
2
Date d'inscription
lundi 26 juillet 2004
Statut
Membre
Dernière intervention
15 septembre 2004

Merci beaucoup !!!
Ca marche nikel !

A+

Enjoy and have fun !