Sujet Précédent Sujet Suivant

[Excel] [VBA]

Kostorm -  
tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour (ou rebonjour)

Je reviens déjà vous embettez pour un autre soucis de VBA Excel.
Il s'agit d'un recordset d'une requete.
Il est fait et fonctionne, c'est à dire que j'arrive à stocker ma requete dans mon recordset (en snapshot)

Mais ensuite je veux juste le coller dans une feuille excel mais je ne connait pas du tout la synthaxe à utiliser!

Et dans les forums en général, ils parlent de comment faire le recordset, mais je ne trouve pas juste comment le coller ensuite dans un excel!

Merci d'avance de votre aide!
A voir également:

5 réponses

Réponse 1 / 5
m@rina Messages postés 27160 Date d'inscription   Statut Contributeur Dernière intervention   11 500
 
Bonjour,

Peut être ici :
https://docs.microsoft.com/en-us/previous-versions/office/troubleshoot/office-developer/transfer-excel-data-from-ado-recordset

m@rina
0
Réponse 2 / 5
Kostorm
 
Merci de votre réponse rapide.
J'ai été voir, il propose CopyFromRecordset, cependant cet objet n'est pas reconnus dans mon excel.
Ils disent d'activer Microsoft ActivX Data 2.1 Library, chose que j'ai fait, mais il ne le me reconnais toujours pas.

Pas d'autres idées?

PS: j'ai la suite 2003
0
Réponse 3 / 5
Kostorm
 
Bonsoir,

Je me permet de faire un petit UP pour demander si quelqu'un sait comment juste coller un recordset d'une requête. Même si c'est juste le nom de la commande.
J'ai essayer intuitivement un "paste" mais ça marche pas.

Merci d'avance!
0
Réponse 4 / 5
Kostorm
 
Encore un UP
J'ai vraiment besoin d'aide sur la méthode des recordset!
J'ai appris en regardant par ci par là qu'il s'agit d'un objet que l'on ne peut pas coller tel quel, il faut le parcourir ligne par ligne, même le snapshot, et coller ensuite celllule par cellule si j'ai bien compris.

Quelqu'un aurait la synthaxe type?

Merci beaucoup d'avance!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   435
 
Bonjour
plusieurs solutions :
- soit tu ajoute un objet QueryTable à ta feuille excel, exemple tiré de l'aide vba ci-dessous : 
Dim qt As QueryTable
sqlstring = "select 96Sales.totals from 96Sales where profit < 5"
connstring = _
    "ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;Database=96Sales"
With ActiveSheet.QueryTables.Add(Connection:=connstring, _
        Destination:=Range("B1"), Sql:=sqlstring)
    .Refresh
End With

- soit tu parcours ton recordset via la méthode MoveNext jusqu'à EOF avec un boucle par exemple "While not rs.EOF" et tu envoies les résultats dans la feuille excel...
J'ai pas de temps devant moi, ni d'exemple sous la main, je repasserai plus tard si tu ne t'en sors pas....
0