Bonjour, je souhaite envoyer directement un mail sur Excel VB avec comme pièce jointe le fichier Excel qui est ouvert. Merci de m'aider.

Voici le code :
Code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Sujet As String 
Dim MailDest As String   
Dim objOLApp As Outlook.Application 
Dim Mail As Outlook.MailItem 
Dim ObjSession As Object  
 ' Création de l'objet outlook 
Set objOLApp = CreateObject("Outlook.Application")  
 ' Création de l'item pour le message 
Set Mail = objOLApp.CreateItem(olMailItem)  
 ' Création de l'objet de gestion des messages
 Set ObjSession = objOLApp.GetNamespace("MAPI")  
 ' Création du sujet du message Sujet = "Recap Pannes"  
 ' Demande l'adresse du destinataire