Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1325 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Numérotation dans requête sql vers fichier Excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Numérotation dans requête sql vers fichier Excel

n°1298462
St4rk
à la chaleur...
Posté le 03-02-2006 à 12:39:02  profilanswer
 

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
mood
Publicité
Posté le 03-02-2006 à 12:39:02  profilanswer
 

n°1298502
St4rk
à la chaleur...
Posté le 03-02-2006 à 13:33:42  profilanswer
 

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!


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Numérotation dans requête sql vers fichier Excel

 

Sujets relatifs
Mot de passe sur macro Excel[SGBD] Encore une requête à décorner les boeufs...
inactivité de la souris sous excelExcel formule si Survol cellule
Image aleatoire + lien automatique vers l'image taille réelle et .....macro Nom du fichier en cours
Batch Extraire les email d'un fichier txtexport graphiques vers word VBA
Convertion ANSI vers UTF8Lecture fichier ASCII
Plus de sujets relatifs à : Numérotation dans requête sql vers fichier Excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR