Discussion :

[papy75]

Bonjour le Forum,

Voila j'affiche dans un list Box le résultat d'une requête et j'aimerai afficher le contenu du list box dans un classeur Excel si c'est possible ou sinon dans une table Access et ensuite l'exporter dans excel.

Le truc c'est que j'ai voulu mettre le contenu dans une table avec le code suivant:

Code :

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

1
2
3
 
    strSqlOut = Me.lst_ResultatTDOut.RowSource
    DoCmd.OpenTable "Test", acViewNormal, lst_ResultatTDOut.RowSource

Ou j'ai créer la table Test a l'identique de la table ou se fait la requête et qd je lance l'appli j'ai le message suivant:

Code :

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

1
2
Rune-Time error 13
Type mismatch

Bon j'avoue je l'ai écrit comme ça... car je fait la même pour ouvrir des Etats et mettre le contenu de mon ListBox de-dans....

Donc voila si quelqu'un avait une idée ou un lien sur la question...

Merci d'avance et bonne journée.

Vincent.

[papy75]

Bonjour le Forum,

Personne ne sait comment mettre le contenu d'une Listbox dans une Table Access? Sachant que la listBox est remplie avec une requête construite sous VBA...

Quelle est la commande qui faut utiliser? je désespère....

Si une âme généreuse pouvait me mettre sur une piste ca m'aiderai énormément.

Merci d'avance.

Vincent

[Lou Pitchoun]

Salut,

Si la listbox est le résultat d'une requête : exporte directement la requête dans Excel.

[papy75]

Bonjour Lou Pitchoun, le Forum,

Effectivement c'est plus logique mais je ne connaissais pas trop la commande..

J'ai trouve sur internet la comande

Code :

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

DoCmd.OutputTo

Voici la ligne de code que j'ai insérer dans mon bouton:

Code :

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

DoCmd.OutputTo acOutputQuery, strSqlOut, acFormatXLS, , True

Ça m'ouvre une fenêtre pour enregistrer le fichier Excel et qd je clique sur Save, J'ai le message d'erreur suivant:

Code :

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

1
2
3
Run Time error '3011'
The microsoft Access database engine could not find the object 
'SELECT DISTINCTROW Outgoing.* FROM Outgoing WHERE ((Outgoing.ID Like "1*"));'. Make sure the object existe and that you spell its name and the path correctly.

Donc j'ai créer le fichier Excel avant l'export mais c'est pareil ça ne marche pas trop...

Voila si tu avait une idée...

Merci d'avance,

Cordialement,

Vincent.

[Lou Pitchoun]

Salut,

Si la source de la liste déroulante est une chaine SQL, crée une requête à partir de cette chaine pour ensuite pouvoir l'exporter.

1. Tu testes l'existance de la requête
2. Tu la crées

Si la requête existe, tu la supprimes et tu la crées.

Et là tu pourras exporter la requête. Tu ne peux exporter qu'une table ou une requête. Pas une chaine SQL.

[papy75]

Salut Lou Pitchoun, le Forum,

Merci j'ai reussit et je me suis aidee de ce tuto en complement de tes deux liens http://warin.developpez.com/access/requeteparametre/

Encore Merci et bonne journee

Vincent.