Bonjour,
j'ai créé un code pour envoyer un mail via outlook avec un graph dans le corps du message.
Problème le graph est bien selectionné dans excel mais outlook ne s'ouvre pas.
Peut-être qu'il faut déclarer outlook pour qu'il s'ouvre ?
Merci

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
Sub envoieMail()
'Declaration variables
Dim MaFeuille As Worksheet  'la feuille contenant la demande
Dim NbLigne As Integer      'nb de ligne à récupérer
'Affectation des variables
Set MaFeuille = ThisWorkbook.Sheets("demande") 'on définit le nom de la feuille sur laquelle il y a la demande
'desactiver du rafraichissement de l'écran
Application.ScreenUpdating = False
 
'on calcul le nombre de ligne à prendre dans la feuille à partir de la colonne A
NbLigne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
'on sélectionne la plage à copier
MaFeuille.Range("A1:K" & NbLigne).Select
'avec l'objet mailenveloppe on envoie dans le corps du mail
With Selection.Parent.MailEnvelope.Item
    .To = MaFeuille.Range("N9").Value       'destinataires
    .cc = MaFeuille.Range("N13").Value      'personnes en copie
    .Subject = MaFeuille.Range("N8").Value  'objet du mail
    .Display                                'on affiche le mail
End With
Set OutMail = Nothing 'nettoie la mémoire en nettoyant les variables
Set OutApp = Nothing 'nettoie la mémoire en nettoyant les variables
 
End Sub