De: Daniel.J Objet: Re: Enregistrer en html Date : mardi 12 septembre 2000 18:05 a écrit dans le message : 39bdc8ff.6803703@news.usinor.com... > On Mon, 11 Sep 2000 20:07:08 +0200, "Daniel.J" > wrote: > > >Il faut l'enregistrer comme une image! > >Sub GraphGIF() > >Dim MyChart As Chart > >set MyChart = ActiveSheet.ChartObjects(1).Chart > >MyChart.Export FileName:="C:\ajeter\graph1.gif", filtername:="GIF" > >End Sub > > Merci Daniel. > > Mais ensuite je fais comment ? A--Tu l'intégres à la main dans ton fichier(html) avec une balise dans ce genre: (le plus facile !!!) titre B--Ou bien tu utilises cette macro qui cré une fichier HTML juste avec le graphe Sub GrapHTML() Dim MyChart As Chart set MyChart = ActiveSheet.ChartObjects(1).Chart MyChart.Export FileName:="C:\ajeter\graph1.gif", filtername:="GIF" Reper = "C:\ajeter\essai.htm" 'à modifier If Len(Dir(Reper )) > 1 Then Kill Reper Open Reper For Output As 1 Print #1, " " & Chr$(13) Print #1, "Graphique en Page Web " & Chr$(13) 'Insére le graphique '--- Print #1, "" & Chr$(13) '--- Print #1, "" & Chr$(13) Print #1, "" & Chr$(13) Close End Sub C--ou automatiquement en modifiant la macro de Charles Balch Il suffit d'exécuter la macro "Sub GrapHTML()" pour crér le GIF en tête de code et ensuite d'inserer ce code: Print #1, "" & Chr$(13) là où tu veux le graphique. Daniel