Re : [..] Ouvrir un fichier s'il existe, sinon ne rien faire
Bonjour,
Je ne suis pas sur d'avoir compris, mais est ce qu'un code du genre :
Code:
If Dir ("D:/Tonfichier.ext", vbDirectory) = "" Then
Exit Sub
End If
Dans le cas qu'il n'existe pas, on quitte la sub en cours d'exécution.
Ca me parait super simple, surement que je n'ai pas compris votre question.
Edit : J'ai lu trop vite ... Ou j'ai pas tout lu...
Code:
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")
Pas sur que ce soit ça que tu cherches, et aussi il faut ajouter la référence : Microsoft Scripting Runtime
Re : [..] Ouvrir un fichier s'il existe, sinon ne rien faire
ça ne fonctionne pas
voici le code un peu modifié
Code:
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
Quand on fait : If Dir("D:\Tonfichier.ext", vbDirectory) = "" Then
On teste s'il n'existe pas. Donc ce qui suit n'ouvrira rien : Workbooks.OpenText Filename:="D:/Tonfichier.ext", DataType:=1, Semicolon:=True, local:=True
Code:
If Dir ("D:/Tonfichier.ext", vbDirectory) = "" Then
Call macro2
Else
Workbooks.OpenText Filename:="D:/Tonfichier.ext", DataType:=1, Semicolon:=True, local:=True
End If
Re : [..] Ouvrir un fichier s'il existe, sinon ne rien faire
j'ai un problème.
lorsque le fichier existe, ça fonctionne.
Mais lorsqu'il n'existe pas il plante car il ne le trouve pas
Je l'ai changé, mais rien de fait
Code:
If Dir("\\chemin\fichier*.ext") = "" Then
Workbooks.OpenText Filename:="\\chemin\fichier*.ext", DataType:=1, Semicolon:=True, local:=True
Else: Call macro2
End If
Re : [..] Ouvrir un fichier s'il existe, sinon ne rien faire
Bonjour,
modifie comme suit :
Code:
If Dir("\\chemin\fichier*.ext") <> "" Then
Workbooks.OpenText Filename:="\\chemin\fichier*.ext", DataType:=1, Semicolon:=True, local:=True
Else: Call macro2
End If