Bouton "annulez" problématique

[Temjeh]

Bonsoir à tous

Juste un petit prob avec cette macro sur le annulez de inputBox il m'ouvre un fichier qui se nomme faux j'aimerais si possible que annulez ferme seulement inputBox:

Voilà 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
MsgBox "Fichier Inexistant"
Else
Workbooks.Open FileName:= _
"C:\Program Files\Territoire 2004\Territoires\" & Nom_Fichier & ".xls"
MsgBox "*Éditer maintenant*"
End If
End Sub


Et ceci dans un module:

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

Merci beaucoup ...j'apprécie beaucoup

Temjeh

A++

 

[Temjeh]

Oublier ca j'ai trouvé le prob

Temjeh

A++