VBA
Loulie62
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Loulie62 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Loulie62 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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,
Mets :
dans le module "ThisWorkbook"
Cordialement.
Daniel
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
Bonjour
Quelle messagerie: Outlook, Gmail, Thunderbird....?
tu veux ouvrir Word: pourquoi ? le texte à envoyer se trouve dans Word ?
Quelle messagerie: Outlook, Gmail, Thunderbird....?
tu veux ouvrir Word: pourquoi ? le texte à envoyer se trouve dans Word ?
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
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
