Discussion :

[tessteur_tt]

Bonjour,

Je voudrais lorsque je quitte mon fichier Excel et que l'on me demande si je veux enregistrer ou non ou annuler, que çela face une action par rapport à la réponse que l'utilisateur choisit.

Si je choisis oui, je fais cette action : [A2:Z9000] = ""
Si je choisis annuler : Ca ne fait rien

Merci

[Daranc]

il va falloir passer par une macro dans thisworkbook sur l'action beforeclose

[tessteur_tt]

Oui mais justement c'est quoi le code exactement ?

Merci

[Daranc]

OUPS!
je ne suis pas revenu depuis un moment

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_BeforeClose(Cancel As Boolean)
msg = "voulez-vous enregistrer"
Style = vbYesNo
 repons = MsgBox(msg, Style)
If repons = vbYes Then
With Sheets(1)
.Range("a1:z9000").ClearContents
End With
ThisWorkbook.Save
Else
End If
End Sub

ceci sous 2003
pour 2007 il faudra que le classeur soit déjà un *.XLSM