Outlook s'efface devant Excel

Bonjour,

J'ai inséré, dans un fichier Excel, une macro permettant d'ouvrir Outlook et de rédiger un courriel, avec certaines données récupérées dans le fichier Excel. L'utilisateur n'a plus qu'à cliquer sur Envoyer, ou ajouter certains éléments de rédaction s'il le souhaite. Le problème, pour lequel je ne sais pas s'il y a une solution, c'est qu'Outlook reste en arrière-plan. Si l'on est attentif, on voit l'icône d'Outlook s'activer, mais il faut cliquer sur elle pour que le message s'affiche devant Excel. Un utilisateur pas ou peu attentif pourrait penser que la macro n'a pas fonctionné. Y a-t-il une instruction qui permettrait au brouillon d'Outlook de s'afficher en premier plan d'Excel?

Merci pour toutes pistes utiles!

N'ayant pas reçu de réponse, et désireux d'essayer d'avancer dans mon projet, j'ai sondé ChatGPT. Il m'a proposé ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub EnvoyerEmail()   Dim OutlookApp As Object Dim OutlookMail As Object Dim MailBody As String   ' Créer une instance de l'application Outlook Set OutlookApp = CreateObject("Outlook.Application") ' Créer un nouvel élément de message Set OutlookMail = OutlookApp.CreateItem(0)   ' Corps du message (vous pouvez le personnaliser selon vos besoins) MailBody = "Bonjour," & vbCrLf & vbCrLf & _ "Ceci est un exemple de message automatique depuis Excel."   ' Définir les propriétés du message With OutlookMail .To = "destinataire@email.com" .Subject = "Sujet du message" .Body = MailBody End With   ' Activer la fenêtre Outlook AppActivate "Microsoft Outlook"   ' Afficher le brouillon du message à l'avant-plan OutlookMail.Display   ' Libérer les objets Outlook Set OutlookMail = Nothing Set OutlookApp = Nothing   End Sub

---

Problème: Outlook s'ouvre correctement, avec le message prêt à envoyer, mais les deux dernières lignes génèrent des erreurs. Tout d'abord, l'instruction AppActivate "Microsoft Outlook" génère une erreur d'exécution 5. Si je la désactive, la ligne suivante génère aussi une erreur (erreur 91). Du coup, je dois désactiver ces deux lignes... ce qui fait qu'Outlook reste à l'arrière-plan. Si quelqu'un voit plus clair que ChatGPT, c'est avec plaisir...

Bonjour,
Sauf erreur de ma part, l'instruction AppActivate ne s'utilise qu'avec un Shell donc à supprimer de cette procédure et chez moi la ligne OutlookMail.Display fait bien apparaître la fenêtre Outlook. C'est d'ailleurs ce que j'utilise pour envoyer un mail, si je souhaite le visualiser avant l'envoi.