bonjour,

je cherche à tester via le code ci-dessous la présence dans un repertoire d'un fichier excel. le fichier 'evlsav' est bien present sous ("R:\cft\euro-vl\vl_monet_we_jf")

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
If Dir("R:\cft\euro-vl\vl_monet_we_jf") <> "" Then
 
MsgBox "toto"
 
Workbooks.OpenText Filename:="R:\cft\euro-vl\vl_monet_we_jf\EVLSAV.xls", StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter _
:=True, Semicolon:=True, DecimalSeparator:="."
Columns(12).NumberFormat = "#,##0.00;#,##0.00"
 
Else
MsgBox "le fichier n'est pas present"
End If

le code passe directement dans le else bien que le fichier existe sous R:\cft\euro-vl\vl_monet_we_jf

je ne comprends pas pourquoi

merci de vos suggestions

olivier