Enregistrer sous + cellule

havopti · 21 Mai 2013

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".

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

Matheop · 21 Mai 2013

Re : Enregistrer sous + cellule

Hello havopti,

Code:

Option Explicit
Sub CheminFichier()
Dim nomClient As String
Dim dateClient As String
nomClient = Sheets(1).Range("A2").Value 'cellule contenant le nom du client
dateClient = Sheets(1).Range("B2").Value 'cellule contenant la date associée
If FichierExiste("nana") = True Then
     Application.Dialogs(xlDialogSaveAs).Show ("Dossier - " & nomClient & " - " & dateClient & ".xlsm")
ElseIf DossierExiste("nana") = True Then
    Application.Dialogs(xlDialogSaveAs).Show ("Dossier - " & nomClient & " - " & dateClient & ".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

J'ai légèrement recomposé ton code en ajoutant les deux variables que tu souhaites.

Enregistrer sous + cellule

havopti

XLDnaute Nouveau

Matheop

XLDnaute Occasionnel

Discussions similaires

Enregistrer sous + cellule

havopti

XLDnaute Nouveau

Matheop

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency