[VBA Excel] Envoi mail puis reprendre la main...

Envoi mail puis reprendre la main... [VBA Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 12-12-2008 à 11:08:08    

:hello:  
 
Salut à tous !
 
J'ai une question à vous proposer.
Voilà... j'ai un fichier Excel et des boîtes de dialogues pour lancer divers traitements.
Parmi ces traitements, à un moment, dans l'exécution de la macro, il y a un appel à Outlook pour envoyer un mail d'information.
Voici le code :

Code :
  1. Dim OutlApp2 As New OUTLOOK.Application
  2.         Dim OutlMail2 As MailItem
  3.         Set OutlApp2 = New OUTLOOK.Application
  4.         Set OutlMail2 = OutlApp2.CreateItem(olMailItem)
  5.         With OutlMail2
  6.              .To = "toto@toto.com"
  7.              .Subject = "Objet du message"
  8.              .Body = "Corps du message"
  9.              .Send
  10.         End With


 
A ce moment précis, une boîte de confirmation d'envoi s'ouvre (histoire de valider qu'aucun virus n'est envoyé...) et lorsque l'on choisit OUI, Outlook prend la main... et ma macro continue jusqu'à la fin... et Outlook reste en avant-plan.
 
Je suis ensuite obligé de cliquer dans la barre des tâches pour revenir à Excel (et notamment sur ma boîte de dialogue de départ).
 
Ma question est la suivante : est-il possible de remettre Excel en avant-plan ?
 
Merci pour votre contribution constructive !!!
 
;)


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Marsh Posté le 12-12-2008 à 11:08:08   

Reply

Marsh Posté le 12-12-2008 à 13:32:58    

Bon, j'ai trouver ça :
 

Code :
  1. AppActivate ("TOTO" )


 
mon fichier sous Excel commence par le mot TOTO...
 
ça marche, par contre, ma Userform est toute blanche pendant que la macro finit de s'exécuter... y aurait-il moyen d'éviter cela ??? bon, je sais qu'Excel prend toutes les ressources pour finir la macro et l'affichage ne se rafraîchit pas...
 
;)
 


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Marsh Posté le 12-12-2008 à 14:02:34    

BOUM... ça ne marche plus...
J'ai fermé mon Excel et l'ai rouvert.
Et il me dit "Erreur d'exécution 5 - Arguement ou appel de procédure incorrect".
 
 :fou:


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Marsh Posté le 16-12-2008 à 23:00:02    

Et si tu réouvres Outlook ? En le laissant ouvert ?


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 21-12-2008 à 11:07:49    

Effectivement, Outlook doit rester ouvert durant l'utilisation de ma macro... sinon, ça bugge...
Et j'ai résolu mon problème ! A chaque ouverture de mon fichier Xls, la macro qui s'exécute automatiquement repère si Outlook est ouvert... et en fonction du résultat informe l'utilisateur :
  - si Outlook est ouvert, le fichier Xls s'ouvre normalement
  - dans le cas contraire, une boîte de dialogue avertit l'utilsateur qu'Outlook est nécessaire pour la suite et il n'y a qu'un bouton dans cette boîte qui ferme la boîte et Excel... d'où obligation d'ouvrir Outlook avant d'ouvrir le fichier Xls...
 
Pour le rafraîchissement de mes boîte de dialogue, tant pis...  :)  :o


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed