Discussion :

[aures64]

Bonjour,

J'essaye en vein d'exporter les résultats d'une requête dans un fichier Excel.

Toute mon application est en ADO avec un fichier Access pour la BDD et VB6 pour programmer.

J'affiche aussi les résultats dans un datagrid sur ma form.

Quelle solution serait la plus adaptée ?

Je suis encore débutant en programmation et je bloque sur ce point

J'ai rechercher sur le forum, FAQ, google, etc ... mais j'ai pas trouver de moyen.

Je vous remercie par avance de l'aide que vous pourriez m'apporter.

[Najdar]

Bonjour,

Tu peux connecter un recordset ADO sur une feuille excel. Ainsi tu peux ajouter les données dans ta feuille.
Je ne sais plus exactement comment faire, mais c'est une piste.

Le plus dur est de connaitre la chaine de connection.

Bonne recherche

[SilkyRoad]

bonsoir

Je ne suis pas sur d'avoir bien compris mais Excel dispose de la méthode CopyFromRecordset qui permet de copier le contenu d'un objet Recordset dans une feuille de calcul.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Rst As ADODB.Recordset
'
'...
'
'
objFeuille.Range("A2").CopyFromRecordset Rst

michel

[aures64]

Bonjour,

Je testerai cette solution lundi comme j'ai tout au taff !

Pour remettre dans le contexte, je suis en train de créer une application de gestion de demandes d'emploi avec réponses par courrier automatique.

J'ai créé également dans cette appli, une possibilité de pouvoir faire des requètes par l'utilisateur pour avoir des listes spécifiques (Demandes sur un certain poste etc ...), je fais afficher le résultat de cette requete sur un datagrid (ca fonctionne bien) et je souhaites donc ajouter un bouton Exportation qui puisse exporter sous excel le résultat de cette requête (même si les données paraissent brut). Ca permettra à l'utilisateur de pouvoir travailler sur cette liste.

Voilà

[Najdar]

Bonjour,

Voici une autre méthode pour travailler avec les données d'Excel via ADO :

Voici comment ce connecter "à la base de données"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  With New ADODB.Recordset
    ' Avec Jet OleDB, Plote ISAM
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & Chr(34) & Mon fichier Excel & Chr(34) & _
       ";Extended Properties=Excel 8.0;"
    .Open
  End With

Ensuite tu dois pouvoir ajouter tes enregistrements comme dans une base classique.

[ced600]

Bonjour,
lorsque tu dit :

J'essaye en vein d'exporter les résultats d'une requête dans un fichier Excel.

cela veut dire que tu as fait un code pour faire cela mais il ne marche pas, non ?
Dans ce cas, pourrait tu poster ce code, ainsi on pourrait le debugger, cela serait peut être plus rapide que de te proposer des solutions que tu ne pourrais peut être pas utiliser pour x raisons.

[aures64]

J'ai résolu mon problème avec la méthode de SilkyRoad.

Encore merci !