vba enregistrer sous avec condition

[chinel]

Salut tout le monde !

je cherche à enregistrer une feuille "Moddevis" avec valeur de cellule (E14/G5/D15 sans les commandbutton ce qui donnera: devis n° 4 - Monsieur Dejong - samedi 15 septembre 2012
merci de votre aide !

 

[phlaurent55]

Re : vba enregistrer sous avec condition

Bonjour Chinel,

à essayer et éventuellement l'adapter

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "/devis_N° " & [E14] & [G5] & Format(Range("D15").Value, " dddd-dd-mm-yyyy")
End Sub

à+
Philippe

 

[chinel]

Re : vba enregistrer sous avec condition

Bonjour merci de ton aide mais je voudrais bien enregistrer juste la feuille pas le classeur style: ActiveWorksheet.SaveAs
Merci !