Salut,
j'ai déjà avancer sur une partie de mon code mais je souhaite que lorsque je ferme mon dossier qu'en plus de "Dossier" la macro rajoute automatiquement le nom du client et la date qui seront récupérées dans 2 cellules distinctes (à tout hasard les cellules A2 et B2) de la feuille 1 du classeur. Ca donnerai "Dossier - Client - Date".
j'ai déjà avancer sur une partie de mon code mais je souhaite que lorsque je ferme mon dossier qu'en plus de "Dossier" la macro rajoute automatiquement le nom du client et la date qui seront récupérées dans 2 cellules distinctes (à tout hasard les cellules A2 et B2) de la feuille 1 du classeur. Ca donnerai "Dossier - Client - Date".
Code:
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
Dernière édition: