Sub Stat()
Workbooks("Import Stat de Boinc du disque.xlsm").RefreshAll
Dim nom As String
nom = ActiveSheet.Name
Worksheets("html").Select 'Feuille à selcetionnné
Set FS = CreateObject("Scripting.FileSystemObject")
Set a = FS.CreateTextFile("C:\Users\Pag-Two\Documents\Web\ZPag\Boinc\Pag_Boinc_Stat.htm", True)
a.WriteLine (Cells(11, 15))
a.WriteLine (Cells(8, 15))
a.WriteLine (Cells(7, 15))
a.WriteLine (Cells(6, 15) + "Pag
")
a.WriteLine ("Boinc Statistique/Statistic
")
a.WriteLine ("Personnalisées/Customized
")
a.WriteLine ("Avec Excel/Whit Excel et/and Boinc statistics_xxxxxxx.xml files
")
a.WriteLine ("dans/in C:\ProgramData\BOINC
")
a.WriteLine ("Voir/See  " + Cells(10, 15) + "
")
a.WriteLine (Cells(3, 15)) 'Création du tableau
a.WriteLine ("") 'Première Ligne Entête
a.WriteLine (Cells(9, 15) + "")
a.WriteLine (Cells(9, 15) + "")
a.WriteLine (Cells(9, 15) + Cells(1, 3) + "")
a.WriteLine (Cells(9, 15) + Cells(1, 4) + "")
a.WriteLine (Cells(9, 15) + Cells(1, 5) + "")
a.WriteLine (Cells(9, 15) + Cells(1, 6) + "")
a.WriteLine (Cells(9, 15) + Cells(1, 7) + "")
a.WriteLine (Cells(9, 15) + Cells(1, 8) + "")
a.WriteLine (Cells(9, 15) + Cells(1, 9) + "")
a.WriteLine (Cells(9, 15) + Cells(1, 10) + "")
a.WriteLine (Cells(9, 15) + Cells(1, 11) + "")
a.WriteLine (Cells(9, 15) + Cells(1, 12) + "
")
For i = 2 To 44
a.WriteLine ("") 'Deuxième Ligne Données etc...
a.WriteLine (Cells(4, 15) + Cells(i, 1) + "")
a.WriteLine (Cells(5, 15) + Cells(i, 2) + "")
a.WriteLine (Cells(5, 15) + Cells(i, 3) + "")
a.WriteLine (Cells(5, 15) + Cells(i, 4) + "")
a.WriteLine (Cells(5, 15) + Cells(i, 5) + "")
a.WriteLine (Cells(5, 15) + Cells(i, 6) + "")
a.WriteLine (Cells(5, 15) + Cells(i, 7) + "")
a.WriteLine (Cells(5, 15) + Cells(i, 8) + "")
a.WriteLine (Cells(5, 15) + Cells(i, 9) + "")
a.WriteLine (Cells(5, 15) + Cells(i, 10) + "")
a.WriteLine (Cells(5, 15) + Cells(i, 11) + "")
a.WriteLine (Cells(5, 15) + Cells(i, 12) + "
")
Next i
a.WriteLine ("