Comment tester l' Existance d'un fichier

[Syd]

Bonjour à tous,

Est-ce que qq'un pourait me dire comment pourait-on tester si un fichier donner existe ??

Y a-t-il une fonction pour cela ?

ex : if "fichier1" ....... ('existe') then.......
fichier1.open
end if

Merci d'avance !!

 

[@+Thierry]

Bonjour Syd, le Forum


Si tu télécharges, dans la partie Leçons et exemples VBA :




et que tu regarde le fichier "TestFichier.xls", tu devrais avoir des éléments de réponses.

Bonne Journée

 

[Syd]

Merci therry pour ta rapidité de réponse , mais je n'y est pas trouvé mon bonheur.

@+, Syd

 

[@+Thierry]

Re-Salut SYD

et pourtant... C'est dans le fichier "TestFichier.xls", faut juste savoir l'adapter à ton cas ...

Extrait :
Sub Test2() 'FICHIER EXISTANT DANS LE REPERTOIRE SPECIFIE
Application.ScreenUpdating = False
On Error Resume Next
'Test ouverture du fichier... Si il existe on l'ouvre et on le referme !!
'Je sais c'est pas très catholique, mais c'est pour faire un truc simple,
'que Michel peut suivre... Donc, si il existe, on lance Changement de Nom...

Workbooks.Open Chemin & Fichier
If Err = 0 Then
Workbooks(Fichier).Close
Call ChangementNom
Exit Sub
Else: Call Test3
End If
End Sub


...
Bon fin de matinée
@+Thierry

 

[@+Thierry]

et dans ton cas ptet m^me que le test 3 serait plus directe...

Extrait
Sub Test3() 'FICHIER NON EXISTANT
Application.ScreenUpdating = False
On Error Resume Next
'Test ouverture et si le fichier n'existe pas on passe à la sauvegarde...
Workbooks.Open Chemin & Fichier
If Err <> 0 Then
Call Sauvegarde
End If
End Sub


Par exemple tu pourrais faire ceci... (entre autre)

Sub TestSYD()
Dim Chemin As String
Dim Fichier As String

Chemin = "c:\mes documents\"
Fichier = Sheets(1).Range("A1").Value & ".xls"
On Error Resume Next
'Test ouverture et si le fichier n'existe pas on passe à la sauvegarde...
Workbooks.Open Chemin & Fichier
If Err <> 0 Then
MsgBox "Le Fichier : " & Fichier & " n' existe pas"
Else
Workbooks.Open Chemin & Fichier
End If
End Sub


@+Thierry