Recevoir un message si un fichier excel n'existe pas

onyirimba

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonsoir onyirimba,

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

A+
 

job75

XLDnaute Barbatruc
Maintenant si vous voulez ouvrir le fichier Texte indiqué :
Code:
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
 

Discussions similaires


Haut Bas