Effacer une cellule précise en sortant du fichier

[Pidge]

Bonjour à tous,
je débute et jaimerais avoir un coup de main. Est-ce que quelqu'un pourrait me dire comment effacer automatiquement le contenu d'une cellule précise (Ex.: A1) à chaque fois que l'utilisateur fait un "save as" du fichier.

 

[Ti]

voici une procédure événementielle à mettre dans la feuille ThisWorkbook, qui inscrit une valeur dans la cellule A1 de la Feuille 1 chaque fois que la boîte de dialogue Save As est appelée, mais pas quand on fait une sauvegarde normale.
Attention, deux remarques :
- sous cette forme, la procédure écrit dans la cellule A1 la première fois que le classeur est enregistré, au moment de sa création.
- la cellule est modifiée même si ensuite l'utilisateur annule l'opération Save As.

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, _
Cancel As Boolean)
If SaveAsUi Then
Worksheets("Feuil1").Range("A1").Value = "save as " & Date
End If
End Sub

 

[Pidge]

Merci Ti, c'est exactement ça qu'il me fallait. Ça fonctionne très bien, mais tu m'a fais réaliser que cette procédure me serais très utile aussi pour une sauvegarde normale. Comment est-ce que je pourrais faire?

 

[Ti]

il suffit d'enlever la ligne "if saveasui then " et la ligne "end if"

 

[Pidge]

Merci beaucoup )