inserer dans un .txt

Sub TXT()
    Dim Cpt As Byte
    
    Open "c:\fichier.txt" For Output As #1
    
    For Cpt = 1 To 31
        Print #1,
    Next Cpt
    
    Print #1, Spc(16); Feuil1.Range("A1").Value
    Close #1
End Sub

Open "d:\testsave.txt" For Input As #1
Open FileName For Output As #2
 
While Not EOF(1)
Line Input #1, ligne
Print #2, ligne
Wend

Close #1
Close #2

<Parameter Value=""  Description="AGX_Pelec/Value" Unit="W"></Parameter>
<Parameter Value=""  Description="AGX_Pmech/Value" Unit="W"></Parameter>

Sub TXT()
    Dim Cpt As Byte
    Dim Ligne As String
    
    If Dir("c:\FichierTmp.txt") <> "" Then
        Kill "c:\FichierTmp.txt"
    End If
    
    Open "c:\fichier.txt" For Input As #1
    Open "c:\FichierTmp.txt" For Output As #2
    
    Do While Not EOF(1)
        Cpt = Cpt + 1
        Input #1, Ligne
        
        If Cpt = 32 Then
            Print #2, Mid(Ligne, 1, 18) & Feuil1.Range("A1").Value & Mid(Ligne, 19)
        Else
            Print #2, Ligne
        End If
    Loop
    
    Close #2
    Close #1
    
    Kill "c:\fichier.txt"
    Name "c:\FichierTmp.txt" As "c:\fichier.txt"
End Sub

Sub Savedata()
    Dim Cpt As Long
    Dim Ligne As String


    If Dir("c:\Fichier.txt") <> "" Then
        Kill "c:\Fichier.txt"
    End If
    Open "c:\testsave.txt" For Input As #1
    Open "c:\fichier.txt" For Output As #2
 
    While Not EOF(1)
    Line Input #1, Ligne
    Print #2, Ligne
    Wend
 

    Close #1
    Close #2
    
   
    
    If Dir("c:\FichierTmp.txt") <> "" Then
        Kill "c:\FichierTmp.txt"
    End If
    
    Open "c:\fichier.txt" For Input As #1
    Open "c:\FichierTmp.txt" For Output As #2
    
    Do While Not EOF(1)
        Cpt = Cpt + 1
        Input #1, Ligne
        
        If Cpt = 3 Then
            Print #2, Mid(Ligne, 1, 18) & Feuil1.Range("C11").Value & Mid(Ligne, 19)
        Else
            Print #2, Ligne
        End If
    Loop
    
    Close #2
    Close #1
    
    Kill "c:\fichier.txt"
    Name "c:\FichierTmp.txt" As "c:\fichier.txt"

    
    
End Sub

<?xml version="1.0" encoding="ISO-8859-1"?>
<Parameters>
	<BenchEnvironment Reference="D:\Program Files\Config\bench.xmod"></BenchEnvironment>
	<CampaignDescription Reference="D:\Program Files\Campaigns\Default\Default.xcamp"></CampaignDescription>
	<TestDescription Reference="D:\ml5 v1.xsimu">
        <Parameter Value="[,;,;]" ID="Structures/BAT/BAT.ocvd/Value" Description="BAT.ocvd/Value"></Parameter>