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 ("") 'Fin Tableau a.Close Worksheets(nom).Select Workbooks("Import Stat de Boinc du disque.xlsm").Save Shell ("C:\Users\Pag-Two\Documents\Mes documents\Boinc\Boinc_FTP.bat") End Sub