Discussion :

[Ben Hur]

Bonsoir à tous,

J'ai besoin d'aide car j'essaie en vain de faire un teste sur la presence d'un fichier dans repertoire. voici mon programme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton4_Click()
 
Dim chemin As String
 
 
 
 
chemin = "C:\tata" & "\" & "toto" & ".xls"
 
 
MsgBox chemin
MsgBox Dir(chemin)
 
If Dir(chemin) = "" Then
 
   MsgBox "Le fichier n'existe pas"
 
Else
 
    MsgBox "Le fichier " & chemin & " Existe"
 
End If
End Sub

je n'arrive pas à voir ce qui cloche.
pouvez vous m'aider?

merci

cordialement

ben

[kiki29]

Salut, déjà Balise ton code, je ne vois pas quel est ton problème ?
Voir la FAQ

[Menhir]

Question bête mais il faut bien la poser : es-tu sûr de ce que tu mets dans ta variable chemin ?
N'y aurait-il pas un espace ou quelque chose du genre en trop ?
Est-ce que tu as essayé de mettre dans chemin une chaine simple correspondant à ton chemin et ton fichier (avec une unique paire de guillemets et sans concaténation) ?

[Ben Hur]

bonsoir à tous

Il n'y a pas de question bete!

J'ai fait une recherche dans le forum, je n'ai fait que reprendre les expressions et cela ne fonctionne pas. Meme en faisant du copié collé cela ne fonctionne pas. Je ne comprends pas. Pouvez vous m'expliquer?

merci

cordialement

[Ben Hur]

Rebonsoir

Comme je le disais il n'y a pas de question bete!!
Je viens de constater que l'extension etait incomplete. En effet, j'avais tellement l'habitude de travailler avec une extension .xls qu'en fin de compte c'était .xlsx.

merci pour ton aide Menhir... encore une fois ta question n'était pas bete et m'a orienté elle me demontre belle et bien ma betise.

cordialement

ben

PS: resolu