Claudy
XLDnaute Accro
Bonsoir à tous....
dans un module,
j' ai ceci:
'Procédure CDO....
With OutMail
.To = zaza
.Subject = "Update du " & Range("B5").Text & ": " & Range("D5").Text
.HTMLBody = RangetoHTML(rng)
.AddAttachment Fichier
'.Send 'or use
.Display
End With
'ET AUSSI:
'>>>>>>>>>>>>>
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.ExportAsFixedFormat......(Sauve dans un dossier!)
'etc......
Cela fonctionne très bien....avec .send
mais, si j'utilise .display et que après vérification, j'annule mon mail, je voudrais interdire le Print et le Save.
Un peu dans le genre:
if .display is true' donc accepte et envoie le mail
then .print and .save
else exit sub 'pas imprimer et pas sauver....
Merci d'avance,
Claudy
dans un module,
j' ai ceci:
'Procédure CDO....
With OutMail
.To = zaza
.Subject = "Update du " & Range("B5").Text & ": " & Range("D5").Text
.HTMLBody = RangetoHTML(rng)
.AddAttachment Fichier
'.Send 'or use
.Display
End With
'ET AUSSI:
'>>>>>>>>>>>>>
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.ExportAsFixedFormat......(Sauve dans un dossier!)
'etc......
Cela fonctionne très bien....avec .send
mais, si j'utilise .display et que après vérification, j'annule mon mail, je voudrais interdire le Print et le Save.
Un peu dans le genre:
if .display is true' donc accepte et envoie le mail
then .print and .save
else exit sub 'pas imprimer et pas sauver....
Merci d'avance,
Claudy