VBA

Question

Bonjour à tous,

Je ne m'y connais pas en VBA, j'ai regardé pas mal de forum à ce sujet, mais n'arrive pas à fusionner deux VBA.

Concrétement je souhaiterai que:

A la fermeture de mon tableur
S'ouvre un pop up 
Me demandant si je souhaite envoyer un mail
Si "non" le document se ferme
Si "oui" cela m'ouvre un autre document Excel.

Voici les VBA que j'ai trouvé:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Souhaitez-vous envoyer un Mail ?"
End Sub

Sub ouvrirDocWord()
Dim Reponse As String

Reponse = MsgBox("souhaitez-vous envoyer un Mail?", vbYesNo, "Message")
If Reponse = vbYes Then
ThisWorkbook.FollowHyperlink "C:\"
Else
MsgBox ""
End If
End Sub

Si vous pouvez m'aider?

Je vous remercie par avance.

Cordialement

Loulie

danielc0 · Answer

Bonjour,

Mets :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim Reponse
  Reponse = MsgBox("souhaitez-vous envoyer un Mail?", vbYesNo, "Message")
  If Reponse = vbYes Then
    Workbooks.Open "C:	emp\fichier.xlsx"
  End If
End Sub

dans le module "ThisWorkbook"

Cordialement.

Daniel

michel_m · Answer

Bonjour

Quelle messagerie: Outlook, Gmail, Thunderbird....?

tu veux ouvrir Word: pourquoi ? le texte à envoyer se trouve dans Word ?

Loulie62 · Answer

Bonjour à tous,

Merci pour vos réponses,

Daniel c'est parfait je te remercie.

Michel, pour l'instant je souhaite juste ouvrir une autre page Excel où toutes mes macros d'envoi de mail sont, cela reste tout de même plus rapide.

Je verrai par la suite pour inclure un pop up questionnaire pour envoyer directement le mail.

Mais merci pour ton intérêt.

Loulie

VBA

3 réponses

Discussions similaires

Newsletters