Comment tester l' Existance d'un fichier

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

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

@+, Syd

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

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