Recevoir un message si un fichier Excel n'existe pas

Bonjour,

Je souhaite obtenir une macro qui ouvre un fichier excel et qui surligne la colonne A en rouge

Et si le fichier n'existe pas => je souhaite recevoir un message qui me dit que le fichier n'existe pas

J'ai testé le code ci-après mais cela ne fonctionne pas :

Merci de votre aide.

Voici le code utilisé :

Dim Fichier As String

Fichier = Dir("c:\data\A lire.txt")

If Fichier <> "" Then

MsgBox "Le fichier '" & Fichier & "' existe"

Else

MsgBox "Le fichier n'a pas été trouvé"

End If

Et voici les boîtes de dialogue affichées selon si le fichier existe ou s’il n’existe pas :

Bonjour,

Ton code fonctionne !...

Cdlt.

ok merci beaucoup

je regarde demain

Rechercher des sujets similaires à "recevoir message fichier existe pas"