[AC-2000] Existence d'un fichier

[moustika]

Bonjour,

Je suis en train de créer un programme pour envoyer par mail un fichier Excel en pièce jointe.
Le fichier Excel n'est pas forcément existant donc je voudrais faire un test pour le savoir et déclencher l'envoi de mail ou non.

J'ai trouvé cette fonction :

Code :

1
2
3
4
5
Function existeFileFSO(ByVal fichier As String) As Boolean
Set fs = CreateObject("Scripting.FileSystemObject")
existeFileFSO = fs.FileExists(fichier)
Set fs = Nothing
End Function

Mais pas trop saisi comment m'en servir.
Pourriez-vous m'éclairer ou me donner une autre solution (la + simple possible) ?
Merci d'avance.

[Manhexter]

Salutations,

La fonction que tu as trouvé renvoie Vrai si le fichier existe et faux dans le cas contraire. Tu peux l'utiliser simplement comme cela :

Code :

1
2
3
4
5
If existeFileFSO(NomDeTonFichier) then
     msgbox "Le fichier existe"
else
     msgbox "Le fichier n'existe pas"
end if

Autre solution pour tester l'existence d'un fichier, la fonction Dir. Si elle te renvoie une chaine null c'est que ton fichier n'existe pas :

Code :

1
2
3
4
5
If Dir(NomDeTonFichier, VbHidden) = "" then 'VbHidden te permet de contrôler aussi les fichier cachés.
    msgbox "Le fichier n'existe pas"
else
    msgbox "Le fichier existe"
end if

Cordialement,