Menu

VBA

Messages postés
2
Date d'inscription
lundi 7 janvier 2019
Dernière intervention
8 janvier 2019
-
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
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
364
Date d'inscription
mardi 5 juin 2018
Dernière intervention
18 janvier 2019
28
1
Merci
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:\temp\fichier.xlsx"
  End If
End Sub


dans le module "ThisWorkbook"

Cordialement.

Daniel

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 56078 internautes nous ont dit merci ce mois-ci

Commenter la réponse de danielc0
Messages postés
15611
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
19 janvier 2019
3577
1
Merci
Bonjour

Quelle messagerie: Outlook, Gmail, Thunderbird....?

tu veux ouvrir Word: pourquoi ? le texte à envoyer se trouve dans Word ?

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 56078 internautes nous ont dit merci ce mois-ci

Commenter la réponse de michel_m
Messages postés
2
Date d'inscription
lundi 7 janvier 2019
Dernière intervention
8 janvier 2019
0
Merci
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
Commenter la réponse de Loulie62