Comment empecher l'enreg d'un fichier si une des cellules voulues est vide?

Salut Eric

Un moyen très simple une macro évènementielle dans le private module "ThisWorkBook" :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets(1).Range("D1") = "" Then
Cancel = True
MsgBox "Fichier Non Sauvé, Cellule D1 Vide", vbCritical, "Warning"
End If
End Sub

Bonne Soirée
@+Thierry

MERCI MILLE FOIS

Bonjour et merci pour ton aide Thierry,

Après une bonne absence du à une defaillance de mon cher PC, je reviens et trouve une tres précieuse aide.

Chapeau encore et mille fois merci

Re: MERCI MILLE FOIS

You are Welcome Eric !

@+Thierry