A l'aide sur VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : A l'aide sur VBA

ikoto

Bonjour,
Je suis un débutant pour le développement macro VB sur Excel,
je souhaite récuperer le nombre de lignes du résultat de la requete suivante

Code :

With ActiveSheet.QueryTables.Add(Connection:=ma_connexion, Destination:=Range("M3" ))
.Name = "Requete2"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.BackgroundQuery = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = False
.Refresh BackgroundQuery:=False
End With

Est-ce que qqn pourrait m'aider ???

merci

Publicité

AlainTech

Pas trouvé? Cherche encore!

De l'expérience que j'en ai, il faut éviter de mettre le résultat de la requête directement dans une feuille (taille du classeur qui gonfle de manière démesurée).

Il est beaucoup plus efficace de créer un recordset à partir de la requête et de le parcourir pour remplir les lignes dans la feuille.

Le recordset à une propriété count qui donne le nombre de records renvoyés.

ikoto

Et comment récuperer le recordset de cette requete là ?

ici ma_connexion est du genre

Code :

ma_connexion="URL;http://serveur/sql.php?requete=select champ1, champ2 from table1"

parce que dans les exemples que j'ai, avec les recordsets, il faut un openDataBase(), openRecordSet() ...
pour moi, il suffit de passer la requete au serveur distant, il y a deja la base de données et tout.

merci

AlainTech

Pas trouvé? Cherche encore!

Pourquoi as-tu enlevé ton code???

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

ikoto

Désolé, je n'ai rien enlevé,
Ca n'affiche pas quand je mets entre la balise [code], ça devient [ cpp ] maintenant ???

Code :

With ActiveSheet.QueryTables.Add(Connection:=ma_connexion, Destination:=Range("M3" ))
.Name = "Requete2"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.BackgroundQuery = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = False
.Refresh BackgroundQuery:=False
End With

Message édité par ikoto le 06-09-2005 à 09:39:21

AlainTech

Pas trouvé? Cherche encore!

Si tu as fait un Set ma_connexion = ..., tu peux faire:

Set qd = ma_connexion.CreateQueryDef("" )
sSql = "SELECT * FROM ..."
qd.Sql = sSql
Set rs = qd.OpenRecordset
Msgbox (rs.Count)

Je te laisse le soin de faire les déclarations.

ikoto

Ok ! merci, c'est reglé maintenant ...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

A l'aide sur VBA

Sujets relatifs
Aide pour un débutant	Demande d'aide VBA : tableau dynamique et importation de données
Menu déroulant en css (à l'aide je bloque!!!!!!)	Besoin d'aide pour feuille de style.css
Aide pour MSMQ	[VBA ACCESS] Boucles + insertion de données dans tableau
[wxWidgets] \|\| Aide au survol	créer menu fixe + aide
[Résolu][VBA] Form_Load ne se lance pas au chargement
Plus de sujets relatifs à : A l'aide sur VBA

Page générée en 0.062 secondes