Vérifier la présence d'un fichier sous Excel
Résolu
A voir également:
- Vérifier la présence d'un fichier sous Excel
- Fichier json - Conseils pratiques -Javascript
- Python vérifier si un fichier existe ✓ - Forum Python
- Arctan excel - Forum VBA Office (Excel, Word ...)
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Les fonctions " racines niemmes " et " arctan "et "arccos " et "arcsin" - Forum Visual Basic
2 réponses
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
15 sept. 2004 à 17:14
15 sept. 2004 à 17:14
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)
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)
Utilisateur anonyme
15 sept. 2004 à 17:55
15 sept. 2004 à 17:55
Merci beaucoup !!!
Ca marche nikel !
A+
Enjoy and have fun !
Ca marche nikel !
A+
Enjoy and have fun !
