Discussion :

[onyirimba]

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]

[unparia]

Bonjour
où (très précisément) as-tu écrit ce code ?
Montre cette procédure depuis sa ligne de déclaration jusqu'à "end sub" inclus.

[Philippe Tulliez]

Bonjour,
La procédure que tu as affichée doit pourtant fonctionner sauf si bien entendu le chemin que tu donnes ou le nom du fichier n'est pas le bon dans ce cas évidemment il te renverra inévitablement le message "Pas trouvé"
Et la question de Jacques est évidemment cruciale. Où as-tu écris cette procédure et est-elle bien inclue dans une procédure Sub ou Function ?

J'ai testé le code ci-après mais cela ne fonctionne pas :

Ce message ne peux aider personne et ne veux rien dire. Qu'est-ce qui ne fonctionne pas ?

[onyirimba]

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