Macro dynamique Résolu/Fermé

Question

Bonjour, 

J'intègre régulièrement des données contenues dans des tables Excel dans la base sql. 

Pour chaque base de données, je suis obligé de faire le traitement des données pour pouvoir faire des inert dans sql. 

J'ai réussi, à faire une première macro qui transforme mes données prêtes à être insérées dans la base. Mais je me rends compte que mon code n'est pas très flexible dans la mesure où je suis obligé de le mettre à jour à chaque fois que j'ajoute une colonne dans mes données Excel. 

Mon souhait, c'est que la macro soit dynamique, c'est à dire s'adapter par rapport au nombre de colonnes et lignes de ma tables Excel. 

Par exemple, si j'ajoute dans ma table Excel, des colonnes "POPULATION", "MONNAIE" avec des données, ma macro doit tenir en compte ces données dans la conversion des données. 

Je vous joins en pièce jointe la première version de mon fichier avec la macro
https://www.cjoint.com/c/EKtuERyQYuG

Merci d'avance

Frenchie83 · Answer

Bonjour
Ceci peut-être
Sub Insertion()
    Dim DerLi, DerCo As Integer
    DerLi = ThisWorkbook.Sheets("Donnees Excel").Range("A" & Rows.Count).End(xlUp).Row
    DerCo = ThisWorkbook.Sheets("Donnees Excel").Range("A2").End(xlToRight).Column
    sep = ","
    Champs1 = ""
    For i = 1 To DerCo
        If Cells(1, i + 1) = "" Then Exit For
        Champs1 = Champs1 & sep & Cells(1, i + 1)
    Next i
    Champs1 = Right(Champs1, Len(Champs1) - 1)
    
    Champs2 = ""
    For i = 1 To DerCo
        Champs2 = Champs2 & sep & Cells(2, i)
    Next i
    Champs2 = Right(Champs2, Len(Champs2) - 1)
    
    Valeurs = ""
    ReDim Valeur(DerLi, DerCo) As String
    For i = 3 To DerLi
        For j = 1 To DerCo
            Valeur(i, j) = Cells(i, j)
            Valeurs = Valeurs & sep & Valeur(i, j)
        Next j
        Valeurs = Right(Valeurs, Len(Valeurs) - 1)
        Sheets("Donnees sql").Cells(i, 1).Value = "INSERT INTO " & Champs1 & " (" & Champs2 & ")" & " VALUES" & " ('" & Valeurs & "');"
        Valeurs = ""
    Next i
    
    MsgBox ("Vos données ont été converties au format sql")
    Sheets("Donnees sql").Select
End SubCdlt

Frenchie83 · Answer

Bonjour
Dans votre exemple, la dernière valeur ne devrait-elle pas être entourée d'apostrophe elle aussi?
Sub Insertion()
    Dim DerLi, DerCo As Integer
    DerLi = ThisWorkbook.Sheets("Donnees Excel").Range("A" & Rows.Count).End(xlUp).Row
    DerCo = ThisWorkbook.Sheets("Donnees Excel").Range("A2").End(xlToRight).Column
    sep = ","
    Champs1 = ""
    For i = 1 To DerCo
        If Cells(1, i + 1) = "" Then Exit For
        Champs1 = Champs1 & sep & Cells(1, i + 1)
    Next i
    Champs1 = Right(Champs1, Len(Champs1) - 1)
    
    Champs2 = ""
    For i = 1 To DerCo
        Champs2 = Champs2 & sep & Cells(2, i)
    Next i
    Champs2 = Right(Champs2, Len(Champs2) - 1)
    
    Valeurs = ""
    ReDim Valeur(DerLi, DerCo) As String
    For i = 3 To DerLi
        For j = 1 To DerCo
            Valeurs = Valeurs & sep & "'" & Replace(Cells(i, j), "'", """") & "'"
        Next j
        Valeurs = Right(Valeurs, Len(Valeurs) - 1)
        Sheets("Donnees sql").Cells(i, 1).Value = "INSERT INTO " & Champs1 & " (" & Champs2 & ")" & " VALUES" & " (" & Valeurs & ");"
        Valeurs = ""
    Next i
    
    MsgBox ("Vos données ont été converties au format sql")
    Sheets("Donnees sql").Select
End Sub
A tester
Cdlt

Macro dynamique

2 réponses

Discussions similaires