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é :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
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]