Ecrire sur la même ligne (fonction print)

Bonjour à tous :)

j'ai écrit ce petit bout de code

Private Sub code_mysql()

    Dim actor As String
    Dim utilisateur As String
    Dim movie As String
    Dim tv_show As String
    Dim platform As String
    Dim subscription As String
    Dim tv_show_viewing As String
    Dim movie_viewing As String
    Dim tv_show_disponibility As String
    Dim i, j As Integer

    inser_into = ThisWorkbook.Path & "\insert_into.sql"

    Open inser_into For Output As #1

    Sheets("utilisateur").Activate

    nbre_colonnes_utilisateur = ActiveSheet.UsedRange.Columns.Count
    Debug.Print nbre_colonnes
    nbre_lignes_utilisateur = ActiveSheet.UsedRange.Rows.Count
    Debug.Print nbre_lignes

    For i = 5 To nbre_lignes_utilisateur
        Print #1, "INSERT INTO utilisateur"
        Print #1, "VALUES( "
        For j = 1 To nbre_colonnes_utilisateur
            Print #1, Cells(i, j).Value & ","
        Next j
        Print #1, ");"
    Next i
    Close #1

End Sub

Mais j'aimerais que la partie ci dessous soit écrite sur la même ligne, actuellement il me met des sauts de lignes à chaque nouveau print (je mets mon fichier en copie)

8insert-into.txt (2.47 Ko)
Print #1, Cells(i, j).Value & ","

En fouillant j'ai trouvé,

Il suffit de mettre un point-virgule.

Print #1, Cells(i, j).Value & ",";
Rechercher des sujets similaires à "ecrire meme ligne fonction print"