Discussion :

[morocoboy]

Bonjour a tous,

Afin d'automatiser une action, il faudrait developper une macro, à partir d'une feuille excel, où on recupere les donnees des trois premieres colonnes, pour les copier dans un fichier sql en les mettant en forme ligne par ligne et en y ajoutant des inserts, par exemple:
A B C
a b c
a1 b1 c1
. . .
... etc
Il faudrait qu'on ait :
insert into unetable values ('a','b','c');
insert into unetable values ('a1','b1','c1');
...
N'ayant aucunes connaissances de vba est-ce que l'un de vous aurait une idee, ou meme un bon tutoriel sur vba qui me donnerai les billes pour avancer ?


Merci d'avance

[helios77]

tu peux faire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub test()
    Dim i As Integer
    Dim fic As String
    fic = "U:\Test.sql"
    Open fic For Output As #1
    i = 1
    While Cells(i, 1).Value <> ""
        Print #1, "Insert into " & nomTable & " value ('" & Cells(i, 1).Value & "','" & Cells(i, 2).Value & "','"; Cells(i, 3).Value & "');"
        i = i + 1
    Wend
    Close #1
End Sub

[morocoboy]

Merci, c'est exactement ce que je recherchais.
Aussi une autre solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub extract_Info()
Dim v_test As Integer
Open "c:\test.sql" For Output As #1
Open "c:\rej.sql" For Output As #2
For v_test = 3 To 294
If Range("A" & v_test).Font.Strikethrough = False Then
Print #1, "insert into Une_table values ('" & Range("A" & v_test).Value & "','" & Range("B" & v_test).Value & "','" & Range("C" & v_test).Value & "');"
Else
Print #2, "ligne rejetee: '" & Range("A" & v_test).Value & "','" & Range("B" & v_test).Value & "','" & Range("C" & v_test).Value & "';"
End If
Next v_test
Close #1
Close #2
End Sub