1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Recevoir un message si un fichier excel n'existe pas

Discussion dans 'Forum Excel' démarrée par onyirimba, 10 Février 2019.

  1. onyirimba

    onyirimba XLDnaute Nouveau

    Inscrit depuis le :
    5 Février 2019
    Messages :
    11
    "J'aime" reçus :
    0
    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 :

    [​IMG] [​IMG]
     
  2. Chargement...


  3. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bonsoir onyirimba,

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

    A+
     
  4. onyirimba

    onyirimba XLDnaute Nouveau

    Inscrit depuis le :
    5 Février 2019
    Messages :
    11
    "J'aime" reçus :
    0
    ok merci de votre aide
    je réessaie demain et je vous tien au courant
     
  5. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Maintenant si vous voulez ouvrir le fichier Texte indiqué :
    Code (Text):
    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
     

Partager cette page