merci Pierre-Yves. oui effectivement c'est par macro !
je préfère passer par une requête pré-enregistrées car plus rapide pour le
traitement.
je suis entrain de voir l'exemple du livre de Marcelly.
**************
Sub TrierFiltrerResultat2() ' ***** base embarquée BDDint
Dim unRowSet As Object, resu As String
unRowSet = createUnoService("com.sun.star.sdb.RowSet")
With unRowSet
.DataSourceName = "BDDint"
.CommandType = com.sun.star.sdb.CommandType.TABLE
.Command = "Produits"
.Order = "Intitule DESC" ' trier en ordre alphabétique inversé
.Filter = "Prix < 10.5 AND Prix > 1"
.ApplyFilter = True
.execute ' effectuer la requête implicite
resu = ""
Do While .next
resu = resu & .Columns.getByName("Intitule").String _
& " : " & .Columns.getByName("Prix").String & chr(13)
Loop
.dispose ' détruire le RowSet
MsgBox(resu,0, "Produits correspondants")
End With
End Sub
******************
moi soucis et au niveau de resu je n'arrive pas à trouver comment le passer
dans la feuille et les cellules !
--
View this message in context:
http://nabble.documentfoundation.org/Resultat-d-une-requete-pre-enregistrees-dans-Calc-tp4101992p4102004.html
Sent from the Users mailing list archive at Nabble.com.
--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être
supprimés