Option Explicit
Sub CheminFichier()
If FichierExiste("nana") = True Then
Application.Dialogs(xlDialogSaveAs).Show ("Dossier.xlsm")
ElseIf DossierExiste("nana") = True Then
Application.Dialogs(xlDialogSaveAs).Show ("Dossier.xlsm")
Else
End If
End Sub
Function FichierExiste(NomFichier As String) As Boolean
FichierExiste = Dir(NomFichier, vbDirectory + vbHidden) <> ""
End Function
Function DossierExiste(NomDossier As String) As Boolean
DossierExiste = Dir(NomDossier, vbDirectory + vbHidden) <> ""
End Function