Mise a jour dates d'un graphique
H
Bonjour
J'ai un code pour envoyer un graphique par mail, le soucis et que souvent dans l'image créée les dates n'apparaissent pas
Y a t-il un moyen pour actualiser par le code (en pj) avant la création de l'image pour que les dates soient au bon format; Celles ci se mettent à jour quand je vais dans Sélectionner des données et que je re-valide sans rien modifier.
Merci
Sub SendChartMails()
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Range("B194").Select
With ActiveSheet
adresses_mail = .Range("A195").Value & .Range("A196").Value & .Range("A197").Value & .Range("A198").Value
mail_CC = .Range("A204").Value & .Range("A205").Value & .Range("A206").Value
End With
'enregistrer le graph en image
Set MyChart = ActiveSheet.ChartObjects(1).Chart 'adapter le nom de la feuille contenant le graphique
MyChart.Export Filename:=Environ("Temp") & "\graph1.jpg", filtername:="JPG"
Set ColAttach = OutMail.Attachments
Set oAttach = ColAttach.Add(Environ("Temp") & "\graph1.jpg")
text1 = "Bonjour," & Chr(12) & Chr(12) & _
"Ci joint le Graphique des visites Compteurs/jour " & Date_Sending & Chr(10) & Chr(12) & _
"Cordialement," & Chr(12)
With OutMail
.To = adresses_mail
.CC = mail_CC
.Subject = "Bilan Graphique"
.HTMLBody = "<BODY><FONT face=Arial color=#000080 size=2></FONT>" & text1 & _
" <br><br><IMG src=cid:graph1.jpg></BODY>" 'Nom de l'image sans chemin
.Display
End With
Kill Environ("Temp") & "\graph1.jpg"
Set OutMail = Nothing
Set OutApp = Nothing
Range("E8").Select
End Sub