1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| Sub Continue()
Dim EcritureContinue
Dim FolderWay , ObjectWay , FileName , File , FileExist, header , value , currentTime ' Declaration des variables
FolderWay = "C:\Users\XXXXX\Downloads\STAGE\ExcelExemple" 'Là ou l'on veut enregistrer le fichier Excel sous un nom
Set ObjectWay = CreateObject ("Scripting.FileSystemObject") 'Creation d'un object pour voir si le dossier est créé ou pas
'Si le dossier n'existe pas, on le créer.
If Not ObjectWay.FolderExists(FolderWay) Then
ObjectWay.CreateFolder FolderWay
End If
'FileName = Year(Now()) & "_" & Month(Now()) &"_" & Day(Now()) & "-" & Hour(Time) & "_" & Minute(Time) & "_" & Second(Time) & ".csv"
FileName = "EnregistrementValeur.csv"
Set File = CreateObject ("Scripting.FileSystemObject") ' Creation d'un object pour voir si le fichier est créé ou pas
FileExist = File.FileExists(FolderWay & "\" &FileName) ' On créer une variable qui indique le chemin du fichier
'Si le fichier n'existe pas, on le créer
If FileExist = False Then
'On créer le fichier
File.CreateTextFile(FolderWay & "\" &FileName)
'On créer maintenant les en-têtes du fichier Excel
Set header = File.OpenTextFile(FolderWay & "\" &FileName, 8) ' Le 8 signifie "ouvrir le dossier et écrire à la fin"
header.WriteLine("Temps ; ActionA ; ActionB")
header.Close 'Pas oublier de fermer quand on a fini sinon la suite se fera dans les headers
'On vide l'objet
Set File = Nothing
End If
Do
Call WriteDataToExcel (value, currentTime, File, FolderWay, FileName)
EcritureContinue = SmartTags("BpStopLog") 'J'appel le 1er script
Call Delay
Loop While ( EcritureContinue = False) ' tant que le BPSTOPLOG vaut 0 , on continue d'écrire
End Sub |
Partager