Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recevoir un message si un fichier excel n'existe pas

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

onyirimba

XLDnaute Occasionnel
Supporter XLD
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 :

 
Solution
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
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
32
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…