'invite de saisie des données txt=inputbox("copier les données du graphiques sous la forme : " & chr(10) & "nom1;valeur1;nom2;valeur2;nom3;valeur3... " & chr(10) & "(séparation des données par des points-virgules, pas de guillemets pour les noms, pas de valeurs négatives)","graphique vbs","voiture;100;bagnole;200;carosse;55;auto;250;vehicule;88;R21;300;tuture;25.5;Rosalie;150;caisse;5") txt=txt & "; " 'création du fichier html Set fs = CreateObject("Scripting.FileSystemObject") Set fich = fs.OpenTextFile("C:\rien.html", 2, true) fich.writeLine "
Graphique VBS

" 'recherche échelle du graphique txt1=txt ech=0 do while instr(1,txt1,";")>0 nom=left(txt1,instr(1,txt1,";")-1) txt1=right(txt1,len(txt1)-len(nom)-1) valo=1*replace(left(txt1,instr(1,txt1,";")-1),",",".") txt1=right(txt1,len(txt1)-len(valo)-1) if valo>ech then ech=valo loop 'tracer les barres de l'histogramme do while instr(1,txt,";")>0 nom=left(txt,instr(1,txt,";")-1) txt=right(txt,len(txt)-len(nom)-1) valo=1*replace(left(txt,instr(1,txt,";")-1),",",".") txt=right(txt,len(txt)-len(valo)-1) fich.writeLine "

" fich.writeLine nom & "
" loop 'terminer de fichier html fich.writeLine "" fich.close 'afficher l'histogramme Set sh = WScript.CreateObject("WScript.Shell") sh.Run "c:\rien.html" 'ménage set sh=nothing set fs=nothing set fich=nothing