Numérotation dans requête sql vers fichier Excel

Marsh Posté le 03-02-2006 à 12:39:02

En fait, je fais ma requête sql dans mon code VBA comme ça :

Citation :

requeteSQL = "SELECT DISTINCT ******, ******" _
& " FROM ******" _
& " WHERE ****** LIKE ******" _
& " AND ****** <> ''" _
& " ORDER BY ******"
Set TableClient = ConnexionBD.Execute(requeteSQL)

J'enregistre par la suite dans un fichier Excel et tout va bien !

Par contre, je voudrais numéroter chaque ligne dans le nouveau fichier excel. Je n'ai pas ce genre de numéro dans ma table donc je dois créer une boucle for ou eof j'imagine mais vu que c'est une requête sql, j'embête un peu de savoir comment incorporer ma numérotation à ma requête. :??:

Message édité par St4rk le 03-02-2006 à 14:12:59

Marsh Posté le 03-02-2006 à 12:39:02

Marsh Posté le 03-02-2006 à 13:33:42

Pour l'instant, j'ai trouvé pour le compteur en faisant :

Citation :

Dim NoTruc As Integer
NoTruc = 1

Do
NoTruc = NoTruc + 1
oFeuille.Range("A" & NoTruc).Value = NoTruc - 1
Loop Until NoTruc = NbTruc

Pour le NbTruc, c'est parce que je l'ai déclaré après mon exécution de requête et j'ai fait un recordcount. Par contre, le record count affiche toujours -1... :??: J'ai testé avec un entier au lieu du nombre et cela fonctionne!

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *