Recevoir un message si un fichier excel n'existe pas

onyirimba · 10 Février 2019

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 · 10 Février 2019

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

job75 · 10 Février 2019

Bonsoir onyirimba,

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

A+

onyirimba · 10 Février 2019

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

job75 · 10 Février 2019

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

Recevoir un message si un fichier excel n'existe pas

onyirimba

XLDnaute Occasionnel

job75

job75

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires