[R] Ouvrir un fichier s'il existe, sinon ne rien faire

[brice59]

Bonjour,

Tout est dans le titre.

j'aimerai qu'une macro recherche dans un dossier si la fichier existe,

1 s'il existe = ouvrir
2 il n'existe pas = passer à la suite (genre call macro xxx)

pouvez vous m'aider,

Merci d'avance

 

[LeGaulois]

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 :

    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...

    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

 

[brice59]

Re : [..] Ouvrir un fichier s'il existe, sinon ne rien faire

ça ne fonctionne pas

voici le code un peu modifié

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

 

[LeGaulois]

Re : [..] Ouvrir un fichier s'il existe, sinon ne rien faire

Normal, puisque vous essayez d'ouvrir votre fichier lorsqu'il n'existe pas.

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

If Dir ("D:/Tonfichier.ext", vbDirectory) = "" Then
    Call macro2
Else
    Workbooks.OpenText Filename:="D:/Tonfichier.ext", DataType:=1, Semicolon:=True, local:=True
End If

 

[tototiti2008]

Re : [..] Ouvrir un fichier s'il existe, sinon ne rien faire

Bonjour à tous,

Pourquoi vbDirectory ??

aide VBA :

vbDirectory : Spécifie les dossiers ainsi que les fichiers sans attributs

un simple

Dir ("D:/Tonfichier.ext")

devrait suffire

 

[LeGaulois]

Re : [..] Ouvrir un fichier s'il existe, sinon ne rien faire

Bonjour,

Je ne sais pas pourquoi j'ai mis VbDirectory ... Merci pour la correction!

Bonne journée

 

[brice59]

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

 If Dir("\\chemin\fichier*.ext") = "" Then
    Workbooks.OpenText Filename:="\\chemin\fichier*.ext", DataType:=1, Semicolon:=True, local:=True
    Else: Call macro2
    End If

ça n'a aucune importance que ce soit un .CSV ??

 

[Pierrot93]

Re : [..] Ouvrir un fichier s'il existe, sinon ne rien faire

Bonjour,

modifie comme suit :

If Dir("\\chemin\fichier*.ext") <> "" Then
    Workbooks.OpenText Filename:="\\chemin\fichier*.ext", DataType:=1, Semicolon:=True, local:=True
    Else: Call macro2
    End If

bon après midi
@+

 

[brice59]

Re : [..] Ouvrir un fichier s'il existe, sinon ne rien faire

ba je dois pas être doué car j'y arrive pas ....
toujours pareil si le fichier n'existe pas il plante car il ne le trouve pas

 

[brice59]

Re : [..] Ouvrir un fichier s'il existe, sinon ne rien faire

donc c'est ça je ne suis vraiment pas doué.

ça fonctionne bien....... j'avais oublié d’arrêter la mise en scène

Merci