Comment faire une écriture continue?

Bonjour j'utilise un langage VBScript pour créer un fichier qui enregistre de manière continue ( tant que je n'ai pas appuyer sur un BPStop par exemple) le problème c'est que ma boucle ne fonctionne pas et j'ai a chaque fois un fichier Excel qui se créer avec une ligne d'écriture dedans. Pour avoir une deuxieme ligne je dois appuyer à chaque fois sur BPStart. J'aimerai que ça se fasse de manière automatique … J'ai donc créer 2 script. Le 1er qui contient le code et le deuxieme qui est censé s'occuper de l'écriture continue.



1er SCRIPT ==>

Sub WriteDataToExcel()
'Conseil :
' 1. Utilisez la combinaison de touches <CTRL+ESPACE> ou <CTRL+I> pour ouvrir une liste de l'ensemble des objets et fonctions
' 2. Ecrivez le code en utilisant l'objet HMI Runtime.
'  Exemple : HmiRuntime.Screens("Screen_1").
' 3. Utilisez la combinaison de touches <CTRL+J> pour créer une référence d'objet.
'Ecrivez le code à partir de cette position :
'Set ==> pour variable global 
Dim FolderWay , ObjectWay , FileName , File , FileExist, header , value , EcritureContinue, currentTime ' Declaration des variables
FolderWay = "C:\Users\agher\Downloads\Henallux Automatique\3ème bloc\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
currentTime = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time) 
'Please replace all sequences which are enclosed with '_' by your own code.
Do
 Set File = CreateObject ("Scripting.FileSystemObject")
 Set value = File.OpenTextFile(FolderWay & "\" &FileName, 8)
 value.WriteLine ( currentTime & ";" & SmartTags("ActionA") & ";" & SmartTags("ResetActionA")) ' ";" sépare les collonnes dans Excel
  
 EcritureContinue = SmartTags("BpStartLog") 
Loop While EcritureContinue = True ' tant que le BPSTARTLOG vaut 1 , on continue d'écrire

value.Close 
  
End Sub 

2EME SCRIPT ==>

Sub Continue()
'Conseil :
' 1. Utilisez la combinaison de touches <CTRL+ESPACE> ou <CTRL+I> pour ouvrir une liste de l'ensemble des objets et fonctions
' 2. Ecrivez le code en utilisant l'objet HMI Runtime.
'  Exemple : HmiRuntime.Screens("Screen_1").
' 3. Utilisez la combinaison de touches <CTRL+J> pour créer une référence d'objet.
'Ecrivez le code à partir de cette position :

Dim EcritureContinue  
Do
  Call WriteDataToExcel   
  EcritureContinue = SmartTags("BpStopLog") 'J'appel le 1er script
Loop While EcritureContinue = False ' tant que le BPSTARTLOG vaut 1 , on continue d'écrire
 


End Sub

EDIT : Ajout des balises de code

============================================================================
Même en mettant ma boucle , cela n'écrit qu'une fois . Et je me demande si deux variable change en même , comment je peux gerer ceci?

Voila merci bcp de votre aide :)

PS: Je programme en VBScript sur TIAportail (SIEMENS)