Salut SherKanPacha et le forum
Moi et les TCD c'est la guerre, mais il doit surement avoir un moyen d'adapter le
bout de code suivant (Si Dan passe par ici)
ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
Fname = ThisWorkbook.Path & "\temp2.gif"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"
frmGraphique.Image1.Picture = LoadPicture(Fname)
frmGraphique.Show
Mytå