Â
Avec une macro à mettre dans le normal.dot :
Sub Supprime()
'macro écrite par Pierre CFI
Dim LeF As String
LeFÂ =Â ActiveDocument.FullName
If MsgBox("Supprimer " & LeF & " ?", vbYesNo) = vbYes Then
ActiveDocument.Close False
Kill LeF
MsgBox LeF & " a été supprimé"
End If
End Sub




