jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 22 janv. 2007 à 13:10
Salut,
Ou bien directement (pour suivre l'idee de[auteurdetail.aspx?ID=869327 gregcitt] ) Call Msgbox("Résultat de la requête : " & ActiveSheet.Range("A1").Value)
Si ce n'est pas du tout ce que tu cherches à faire, penses à être un peu plus précis à l'avenir.
cs_caramelmou
Messages postés56Date d'inscriptionjeudi 25 décembre 2003StatutMembreDernière intervention23 avril 20083 22 janv. 2007 à 15:49
exemple sous Access VBA
Sub test(strSQL as string)
Dim monrs As New Recordset, cn As Connection, maline As String
Set cn = CurrentProject.Connection
monrs.OpenstrSQL,cn, adOpenKeyset
Do Until monrs.EOF
For i = 0 To monrs.Fields.Count - 1
maline = maline & monrs(i).Value & ";"
Next i
maline = maline & vbCrLf
monrs.MoveNext
Loop
MsgBox maline
End Sub
Ceci dit s'il y a trop de données ton msgbox ne pourras pas tout afficher