Bonjour,

Ma question va sûrement vous paraître triviale, et pourtant je n'arrive pas à me dépêtrer de ce petit problème.

Contexte :
Je crée un classeur temporaire contenant une des feuilles de mon classeur initial, et je l'envoie en pièce jointe en utilisant la fonction SendMail.
Puis, je souhaite retourner sur mon classeur initial et afficher un message de confirmation de l'envoi.
Sauf qu'après avoir envoyé le mail, et malgré mes efforts, je n'arrive pas à faire en sorte que le classeur initial s'affiche!
Ce n'est pas très grave, je peux tjrs cliquer sur l'icône dans la barre des tâches pour revenir dessus, mais j'aimerais bien que ça puisse être fait automatiquement!

Code (extrait) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
' Copie de la feuille active du classeur initial dans un nouveau classeur.
ActiveSheet.Copy
 
' Renommage du classeur nouvellement créé (classeur tampon) pour envoi par mail.
ActiveWorkbook.SaveAs Filename:=NomClasseurTampon
 
' Envoi du classeur tampon par mail.
ActiveWorkbook.SendMail _
Recipients:="adresseDestinataire", _
Subject:=NomClasseurTampon
 
' Fermeture du classeur tampon, sans sauvegarder.
ActiveWorkbook.Close SaveChanges:=False
 
' Suppression du classeur tampon.
Kill "C:\Users\PC\Documents\" & NomClasseurTampon & ".xls"
 
' Retour au classeur de départ.
Workbook("Nom du classeur initial.xls").Activate
ActiveWorkbook.Sheets("blabla").Activate
 
' Message de confirmation d'envoi du mail.
MsgBox "Message bien envoyé."
Voilà, j'ai essayé plusieurs variantes pour le Workbook("Nom du classeur initial.xls").Activate, mais rien ne marche, le classeur ne s'affiche jamais au premier-plan.

Si vous avez une idée, je vous remercie d'avance de m'en faire part.

Merci!