requete vb excel

Question

Bonjour, 

J'essaye d'afficher le resultat d'une requete a partir de vb.
Ma requete est lancer ap partir de vb dans access.
Je cherche a afficher le resultat de ma requete soit dans vb soit dans un classeur excel!

Pouvez vous me donner les lignes de code svp car la je cherche depuis 2 jours et ca commence à lme saouler mechant.

Aidez moi, svp, avant que je pète un cable :o(

Merci

Programmeur au fond du trou!!!

cs_labout · Answer

labout
Pour afficher le résultat de ta requête dans VB
Il suffit de mettre un controle Adodc le définir ( connection recordsource)
Mettre un datagrid basé sur le contrôle Adodc (datasource)
Ces composants sont à chercher dans Projet, Composants

Pour mettre dans excel

    fichier = Trim$(fichier) & etat & ".XLS"
    If Dir(fichier) <> "" Then
        Kill fichier
    End If
 Set xlapp = CreateObject("excel.application")
    With xlapp.application
        .application.Workbooks.Add
        .application.activeworkbook.Saveas fichier
        For i = 0 To rs.Fields.Count - 1
            .cells(1, i + 1) = rs.Fields(i).Name
        Next
        j = 2
      
        Do While Not rs.EOF
  
            For i = 0 To rs.Fields.Count - 1
                .cells(j, i + 1) = rs.Fields(i).Value
            Next
            j = j + 1
            rs.MoveNext
        Loop
xlapp.application.activeworkbook.Save
Xlapp.visible=true

Sur le bouton qui appelle la Sub
Après l'appel mettre un MshBox sinon excel se referme aussitot

VbAbdoul · Answer

Ah je te remercie, tu m'es d'un grand secours!!!

A charge de revanche ;o)

cs_labout · Answer

labout
A tout hasard, je suis à la recherche d'un job ou d'une mission. Mais il semble que mon âge soit un handicap
les employeurs sont bizares.

Requete vb excel

3 réponses

Discussions similaires