Set fso = CreateObject('Scripting.FileSystemObject')
Set Excel_Objet = CreateObject('Excel.Application')
Set out=Fso.CreateTextFile('base_fleur_aconitnapel.php', True)
Excel_Objet.Visible = True
Excel_Objet.DisplayAlerts = False
Excel_Objet.Workbooks.Open ('detailparfleur.xls'), , True ' On Ouvre Le Fichier Excel En Lecture Seul
For Colone =1 to 10
For Ligne=1 To 164
Out.Writeline Excel_Objet.Sheets(1).Cells(Ligne, Colonne).Text
Next
Next
Out.close
Excel_Objet.ActiveWindow.Close
Excel_Objet.Quit
Excel_Objet.DisplayAlerts = True
Excel_Objet.Visible = True