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)
Print #1, Cells(i, j).Value & ","