vérifier existence fichier

[Naref]

Bonsoir à tous

Juste une petite question, comment écrire en VBA :

Sachant que je suis dans le dossie DOSSIER1 , je veux vérifier dans le sous DOSSIERA1, l'existence du fichier fichier1. S'il existe l'ouvrir, si non ouvir une nouvelle feuille.

Je tourne en rond avec ça, c'est normal, vu mon niveau. Mais j'ai bon espoir, surtout avec un petit coup de pouce.

Mreci et bonne soirée
Naref

 

[Temjeh]

Bonsoir Naref

Moi mon directorer était:"C:\Program Files\Territoire 2004\Territoires\"
tu doit mettre le tiens

En premier mettre ceci dans un module

Function FileExists(FileName As String) As Boolean
FileExists = Dir(FileName) <> ""
End Function

Ensuite voici la macro;

Sub Ouvrir()
Dim Nom_Fichier
Nom_Fichier = Application.InputBox(prompt:="Entrez le nom du territoir à ouvrir")
ChDir "C:\Program Files\Territoire 2004\Territoires"

If FileExists("C:\Program Files\Territoire 2004\Territoires\" & Nom_Fichier & ".xls") = False Then
Workbooks.Add
Else
Workbooks.Open FileName:= _
"C:\Program Files\Territoire 2004\Territoires\" & Nom_Fichier & ".xls"
End If
End Sub


A++

Temjeh

 

[Naref]

Bonjour a tous

Merci Temjeh pour ton aide.
Je vais voir ça d plus près dans la journée et te tiens au courant.
@+
Naref