erreur de lecture de cellule, je sais pas trop pourquoi :-/ - VB/VBA/VBS - Programmation
Marsh Posté le 03-02-2004 à 05:36:39
Bonjour,
Sub toto()
For i = 1 To 64
req = "insert into matable values("
For j = 1 To 12
req = req + "'" + Cells(i, j).value + "',"
Next
Next
Cells(99, 1).value = req
End Sub
I.
Marsh Posté le 02-02-2004 à 23:49:48
mon code est pour former une requete SQL à partir de données dans un tableau excel. J'ai codé ça en VBa
Sub toto()
For i = 1 To 64
req = "insert into matable values("
For j = 1 To 12
req = req + "'" + Cells(i, j) + "',"
Next
Next
Cells(99, 1) = req
End Sub