Excel Downloads Forums - Afficher un message - Enregistrer sous ... nom d'une cellule par défaut

17/02/2005, 15h35

Re re bonjour

En vba

Dans la feuille ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("B6").Value)

End Sub

a la fermeture, enregistrer sous s'ouvrira avec le nom de la cellule B6

A+ (peut être)

17/02/2005, 15h35	#6 (permalink)
jfv Guest Messages: n/a	Re: Enregistrer sous ... nom d'une cellule par défaut Re re bonjour En vba Dans la feuille ThisWorkbook: Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("B6").Value) End Sub a la fermeture, enregistrer sous s'ouvrira avec le nom de la cellule B6 A+ (peut être)