"etes vous sûr de vouloir"

[Dan]

Bonsoir à tous, est ce quelqu'un pourrait me dire comment intégrer une boite de dialogue du style "Etes vous sûr de vouloir" avec "OK" ou "annuler" dans cette macro s'il vous plait ?
Merci d'avance

Sub envoie()
Set ol = CreateObject("outlook.application")
Set mail = ol.createitem(olmailitem)
mail.Recipients.Add ActiveCell.Value
mail.Subject = "Inscrire ici le sujet de l'envoie" 'peut faire réference à une cellule
mail.body = "Inscrire ici le corps du message" 'peut faire réference à une cellule
'Selection des adresses des fichiers a joindres s'il y a besoin
'(Adresse des fichiers du style "c:\...\mon-fichier")
Sheets("feuil1").Select
num_ligne = 1
Do While Cells(num_ligne, 2) <> ""
mail.Attachments.Add Cells(num_ligne, 2).Value
num_ligne = num_ligne + 1
Loop
mail.OriginatorDeliveryReportRequested = True 'accusé de reception
mail.ReadReceiptRequested = True 'accusé de lecture
mail.send

fin:
End Sub

 

[Vériland]

Bonsoir Dan et toi le forum,

pour répondre précisément à ta question tu peux inclure ceci en début de procédure...

Dim Reponse As String
Reponse = MsgBox("...Etes vous sûr de vouloir...", vbYesNo, "TITRE")
If Reponse = vbYes Then

....ici la suite...

End If

le principe est le suivant...on ouvre un msgbox (entête TITRE), si tu cliques sur "oui" on continue et "non" on quitte...

Mais bon...je viens de regarder l'ensemble de ta procédure mais je n'ai pas tout capté...si cela fonctionne pour toi c'est bien...par contre il faudrait que tu sois Option Explicit car tes variables ne sont pas définies...(ol)...

...j'ai pas dit lol...hi hi hi

tout comme fin: ...on ne sait pas à quoi il sert...

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...