Voila ^^
Je ne sais pas si je poste au bon endroit et le m'en excuse si tel en est le cas.

Voici mon problème:
--------------------------------------------------------------------------------------
Je cherche a encoder se qui suit :

In = FALSE
Out = FALSE
Key = "user-agent: xxTEXTxx"
Match = "*"
Replace = "xxTEXTxx"

Comme cela...

        frm1 = "In = FALSE" & 13 & "Out = False" & 13 & "Key = " & 34 & "user-agent: "
        frm2 = 34 & 13 & "Match = " & 34 & "*" & 34 & 13 & "Replace = " & 34
        frm3 = 34

13 : retour charriot
34: "

J'ai choper les num ASCII ici:


Et le fonction concerner:

Sub gen_cfg()
        Dim appxls As Microsoft.Office.Interop.Excel.Application REM appel Exel
        Dim book As Microsoft.Office.Interop.Excel.Workbook REM classeur
        Dim excelfile As String
        Dim a As Int16 REM nbligne
        Dim b As Int16
        Dim frm1 As String
        Dim frm2 As String
        Dim frm3 As String
        Dim Tableau1(a - 1) As String
        Dim Tableau2(a - 1) As String
        Dim Tableau3(a - 1) As String
        frm1 = "In = FALSE" & 13 & "Out = False" & 13 & "Key = " & 34 & "user-agent: "
        frm2 = 34 & 13 & "Match = " & 34 & "*" & 34 & 13 & "Replace = " & 34
        frm3 = 34

        b = 2
        Try
            Do
                b = b + 1
                Tableau1(0 + (b - 3)) = appxls.ActiveWorkbook.Worksheets(2).range("A" & b).value
                Tableau2(0 + (b - 3)) = appxls.ActiveWorkbook.Worksheets(2).range("B" & b).value
                Tableau3(0 + (b - 3)) = frm1 & Tableau1(0 + (b - 3)) & frm2 & Tableau2(0 + (b - 3)) & frm3
            Loop While b <> a

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Erreur...")
        End Try

    End Sub


Merci d'avance.

Cordialement.

Impossibeulman.