Recevoir un message si un fichier excel n'existe pas

[onyirimba]

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 :

 

[job75]

Bonsoir onyirimba,

Le code indiqué fonctionne forcément, d'ailleurs vous avez créé une image de chaque MsgBox !!!

A+

 

[onyirimba]

ok merci de votre aide
je réessaie demain et je vous tien au courant

 

[job75]

Maintenant si vous voulez ouvrir le fichier Texte indiqué :

Dim chemin$, fichier$
chemin = "c:\data\A lire.txt"
fichier = Dir(chemin)
If fichier <> "" Then
    ThisWorkbook.FollowHyperlink chemin
Else
    MsgBox "Le fichier n'a pas été trouvé"
End If