VBA
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é:
Si vous pouvez m'aider?
Je vous remercie par avance.
Cordialement
Loulie
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
3 réponses
-
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 -
ContributeurBonjour
Quelle messagerie: Outlook, Gmail, Thunderbird....?
tu veux ouvrir Word: pourquoi ? le texte à envoyer se trouve dans Word ?
-
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
