If Dir ("D:/Tonfichier.ext", vbDirectory) = "" Then
Exit Sub
End If
Dim Fso As Scripting.FileSystemObject
Dim FileItem As Scripting.File
If Dir ("C:\Tonfichier.ext", vbDirectory) = "" Then
Exit Sub
End If
Set Fso = CreateObject("Scripting.FileSystemObject")
Set FileItem = Fso.GetFile("C:\Tonfichier.ext")
If Dir ("D:/Tonfichier.ext", vbDirectory) = "" Then
Workbooks.OpenText Filename:="D:/Tonfichier.ext", DataType:=1, Semicolon:=True, local:=True
else call macro 2
End If
If Dir ("D:/Tonfichier.ext", vbDirectory) = "" Then
Call macro2
Else
Workbooks.OpenText Filename:="D:/Tonfichier.ext", DataType:=1, Semicolon:=True, local:=True
End If
vbDirectory : Spécifie les dossiers ainsi que les fichiers sans attributs
Dir ("D:/Tonfichier.ext")
If Dir("\\chemin\fichier*.ext") = "" Then
Workbooks.OpenText Filename:="\\chemin\fichier*.ext", DataType:=1, Semicolon:=True, local:=True
Else: Call macro2
End If
If Dir("\\chemin\fichier*.ext") <> "" Then
Workbooks.OpenText Filename:="\\chemin\fichier*.ext", DataType:=1, Semicolon:=True, local:=True
Else: Call macro2
End If