Question pop up

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

Bonjour,

Le code suivant est à coller dans "ThisWorkbook" de ton fichier

Private Sub Workbook_BeforeClose(Cancel As Boolean)
rep = MsgBox("Souhaitez-vous envoyer un Mail ?", vbYesNo, "Message")
If rep = vbYes Then
    Workbooks.Add
End If
End Sub

Bonjour Mus54

Déjà Merci pour ta réponse très rapide.

C'est super ça fonctionne

Par contre petite question qui peut te sembler bête

Comment faire pour que l'autre tableur à ouvrir soit un tableur déjà existant?

Merci

Loulie

C'est bon j'ai trouvé, c'est parfait merci beaucoup pour ta réactivité

Loulie

Super Alors

Bonjour à tous,

J'ai une petite question, si à la place d'ouvrir une nouvelle page, je souhaite rester sur le même tableur mais que ça me renvoi sur une autre feuille du tableur?

J'ai mis ça mais je crois qu'il me manque une liaison:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

rep = MsgBox("Souhaitez-vous envoyer un Mail ?", vbYesNo, "Message")

If rep = vbYes Then

Workbook_Open()

ActiveWorkbook.Worksheets("Envoi Mail").Activate

End If

End Sub

Pouvez-vous m'aider?

Merci par avance

Loulie

Bonjour Loulie62,

Pour une feuille existante (tu l'avais presque):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
rep = MsgBox("Souhaitez-vous envoyer un Mail ?", vbYesNo, "Message")
If rep = vbYes Then
ActiveWorkbook.Worksheets("Envoi Mail").Activate
End If
End Sub

Pour une new feuille :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
rep = MsgBox("Souhaitez-vous envoyer un Mail ?", vbYesNo, "Message")
If rep = vbYes Then
Set nw = Sheets.Add
nw.Activate
End If
End Sub

Bonjour Mus54,

Merci,

Seulement j'ai un petit soucis c'est que ça me ferme mon tableur plutôt que de me rediriger vers la bonne feuille qui fait partir de mon tableur actif.

Je suis désolée :-/

Ah non c'est bon autant pour moi, j'ai refais un test et là ça fonctionne.

Je ne comprend pas ce qui c'est passé

En tout cas encore un grand merci pour ton aide.

Loulie

Mus54, j'ai une petite question peut-être que tu pourrais me guider,

Je t'expose le truc:

Nous sommes deux à travailler sur One drive, j'ai créer des liens hypertextes, avec des documents qui se trouve sur le One Drive, mais la deuxième personne n'arrive pas à les ouvrir, serais-tu me dire pourquoi?

Merci

Loulie

Bonjour Loulie,

C'est normal que cela ferme ton classeur, car le code est dans la section "Avant la fermeture du classeur excel".

Donc en quelque sortes cela te mets sur la feuille de ton choix et ferme le classeur.

Pour la question de OneDrive je suis navré, j'ai pas trop de connaissance la dedans. Peut être qu'il faut activer le partage ?

Cdt.

Merci encore Mus54.

Je travaille actuellement sur Mac avec Excel 2012 et avec boite Mail du Mac

Je rame depuis plusieurs jours afin de créer une VBA de préparation de mail.

Avez-vous un exemple à me montrer?

Pour avoir une bonne base, au moins pour le démarrage, car j'ai vu tellement de chose que je suis un peu perdue.

Merci par Avance

Loulie

Bonjour Loulie,

Alors sur Mac je ne sais pas comment cela fonctionne mais je peux te donner un exemple sur windows.

https://excel-malin.com/codes-sources-vba/envoyer-un-email-avec-excel/

appliqué sur le fichier ci joint

Je te remercie Mus54,

J'ai réussi à trouver sur https://www.rondebruin.nl/mac/mail.htm

Mais c'est un peu compliqué car tout est en anglais, mais c'est bon j'ai réussi à trouver mon bonheur, VBA sur Mac c'est un peu...

En tout je te remercie énormément.

Loulie