exporter graphiques en gif ou jpg

[MASSJIPE]

Bonjour
je cherche à exporter les graphiques de mon TCD au format gif ou jpg pour mettre dans une page HTML en vba
si quelqu'un à une idée
merci

 

[PMO2]

Re : exporter graphiques en gif ou jpg

Bonjour,

Essayez ce code

Sub aa()
Dim CH As Chart
'---
For Each CH In ThisWorkbook.Charts

  '### AU CHOIX ###
  '--- Exporte en format .jpg ---
  CH.Export Filename:=ThisWorkbook.Path & "\" & CH.Name & ".jpg", FilterName:="jpg"
  '--- Exporte en format .gif ---
  CH.Export Filename:=ThisWorkbook.Path & "\" & CH.Name & ".gif", FilterName:="gif"
  '--- Exporte en format .png ---
  CH.Export Filename:=ThisWorkbook.Path & "\" & CH.Name & ".png", FilterName:="png"
  '################
  
Next CH
End Sub

 

[MASSJIPE]

Re : exporter graphiques en gif ou jpg

Bonjour
les graphiques sont enregistrés dans mes images
maintenant si je veut qui vont dans un dossier spécifique EX dossier html
On mais t'on le chemin
CH.Export Filename:=ThisWorkbook.Path & "\" & CH.Name & ".jpg", FilterName:="jpg"

 

[PMO2]

Re : exporter graphiques en gif ou jpg

Bonjour,

Si votre chemin est (par exemple) "C:\JP\dossier html"

CH.Export Filename:="C:\JP\dossier html" & "\" & CH.Name & ".jpg", FilterName:="jpg"