T
Temjeh
Guest
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++
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++