VBA

Fermé

Loulie62 Messages postés 2 Date d'inscription lundi 7 janvier 2019 Statut Membre Dernière intervention 8 janvier 2019 - Modifié le 7 janv. 2019 à 14:46
Loulie62 Messages postés 2 Date d'inscription lundi 7 janvier 2019 Statut Membre Dernière intervention 8 janvier 2019 - 8 janv. 2019 à 08:33

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

A voir également:

VBA
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
7 janv. 2019 à 14:32

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

Réponse 2 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
7 janv. 2019 à 15:06

Bonjour

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

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

Réponse 3 / 3

Loulie62 Messages postés 2 Date d'inscription lundi 7 janvier 2019 Statut Membre Dernière intervention 8 janvier 2019
8 janv. 2019 à 08:33

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters