Discussion :

[miliev83]

bonjour,

j'ai une macro qui me permet d'envoyer un mail par Sendmail mais j'aimerai que lorsque la personne clique sur le bouton que cela affiche une fenetre avec un truc genre "confirmer l'envoi" oui/non
Si elle clique sur oui ça envoi si non ça ne fait rien

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub envoiMailEtFeuilleActive()
Rows("13:300").EntireRow.AutoFit
Rows("10:10").RowHeight = 45
Rows("11:11").RowHeight = 45
 ActiveSheet.Copy ' créée une copie de la feuille active
ActiveSheet.Protect Password:="x", DrawingObjects:=True, Contents:=True, Scenarios:=True
 ActiveWorkbook.SendMail Recipients:=Range("Z11").Value, Subject:="Planning"
 MsgBox ("Message envoyé")
 Application.DisplayAlerts = False
 ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
 Application.DisplayAlerts = True
 End Sub

merciiiiiii

[Mr Poulpe]

Bonjour,

Peut être que ceci pourrait marcher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub envoiMailEtFeuilleActive()
 
If MsgBox("Confirmer l'envoi?", vbOKCancel, "Confirmation") = vbOK Then
 
    Rows("13:300").EntireRow.AutoFit
    Rows("10:10").RowHeight = 45
    Rows("11:11").RowHeight = 45
    ActiveSheet.Copy ' créée une copie de la feuille active
    ActiveSheet.Protect Password:="x", DrawingObjects:=True, Contents:=True, Scenarios:=True
 
 
    ActiveWorkbook.SendMail Recipients:=Range("Z11").Value, Subject:="Planning"
    MsgBox ("Message envoyé")
    Application.DisplayAlerts = False
    ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
    Application.DisplayAlerts = True
Else
    Exit Sub
End If
End Sub

[miliev83]

Super rapide et efficace merci

Salut c'est encore moi

Juste un truc j'ai mis un code Msgbox lorsque le message est envoyé mais par exemple si l'adresse mail est manquante ou fausse il m'ouvre la fenetre pour que j'envoi ce mail manuellement mais cest la que le pb se pose : si je ferme cette fenetre et que je n'envoi pas le mail cette fenetre s'affiche quand même alors que le mail n'est pas parti

J'aimerai donc que si la procédure ne va pas jusqu'au bout qu'il ne m'affiche rien, une idée ????

Merciiiii

[Mr Poulpe]

Bonjour,

A mon avis, il serait plus simple de ne pas afficher le message à partir du moment où la fenêtre outlook s'ouvre, soit si j'ai bien compris quand la cellule Z11 est vide.

Peut être que ceci pourrait faire l'affaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub envoiMailEtFeuilleActive()
 
If MsgBox("Confirmer l'envoi?", vbOKCancel, "Confirmation") = vbOK Then
 
Rows("13:300").EntireRow.AutoFit
Rows("10:10").RowHeight = 45
Rows("11:11").RowHeight = 45
ActiveSheet.Copy ' créée une copie de la feuille active
ActiveSheet.Protect Password:="x", DrawingObjects:=True, Contents:=True, Scenarios:=True
 
 
ActiveWorkbook.SendMail Recipients:=Range("Z11").Value, Subject:="Planning"
 
If range("Z11").value <> "" then
MsgBox ("Message envoyé")
end if
 
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End If
End Sub

En espérant que cela puisse aider

[miliev83]

le truc c'est que c'est pas forcément quand la cellule est vide, ça peut être soit :
- que l'adresse contient une faute d'écriture ( une virgule, point d'interrogation etc)
- que la recherchev n'a pas marché et que cela me trouve du coup aucune adresse qui correspond

à ces moment là, le process s'arrête, j'ai ma copie qui a été créé et la fenetre pour envoyer qui s'ouvre pour que je choisir manuellement mon destinaire.

Mais si l'utilateur ferme pour relancer la macro ça affiche "message envoyé" et là c'est la panique à bord lol

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If range("Z11").value <> "" OR ... OR ... OR then

Remplace par tes conditions

[Mr Poulpe]

Sinon peut être que tu peux poursuivre la procédure uniquement si la cellule Z11 contient au moins un arobas (en supposant que s'il y a un arobas dedans il s'agit d'une adresse mail)

Par exemple en rajoutant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if instr(1,range("z11").Value,"@",1) = 0 then exit sub

au début de la procédure