Multicritere export excel

Bonjour,

Tout d'abord merci pour le site car j'y ai trouve plein d'information et de code tres utiles. Mon niveau en VBA est quasi nul

J'ai un créé un formulaire de recherche multicritère sous access qui filtre mon formulaire.
Je voudrais pouvoir exporter ces données vers excel. Mais je n'exporte que le formulaire entier
Je souhaiterai pouvoir choisir quels champs exporter lors de mon filtre.
Mon niveau en vba ne me permet pas encore de trouver une solution.
Toute aide est la bienvenue!

PS j'ai bien lu le tuto de cafeine sur excel ---> http://cafeine.developpez.com/access/tutoriel/excel/
J'ai essayer la methode automation mais ça m'extrait le formulaire entier



Mon Bouton Chercher

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Commande112_Click() f = "" If Not IsNull(Me.Rréseau) And Me.Rréseau <> "" Then f = "Porteur LIKE ""*" & Me.Rréseau & "*""" End If If Not IsNull(Me.Rétat) And Me.Rétat <> "" Then If f <> "" Then f = f & " AND [Etat du dossier] = """ & Me.Rétat & """" Else f = "[Etat du dossier] = """ & Me.Rétat & """" End If End If If Not IsNull(Me.Rdate1) And Me.Rdate1 <> "" And Not IsNull(Me.Rdate2) And Me.Rdate2 <> "" Then If f <> "" Then f = f & " AND ([Date d'émission]) BETWEEN " & (Me.Rdate1) & " AND " & CLng(Me.Rdate2) & "" Else f = "CLng([Date d'émission]) BETWEEN " & CLng(Me.Rdate1) & " AND " & CLng(Me.Rdate2) & "" End If End If Me.Filter = f Me.FilterOn = True

---

ET pour le bouton extraction excel j'ai copié celui de "Automation" de cafeine en l'adaptant mais ça extrait tout

merci a tous!

Je galere tjrs apres plusieurs tentatives je n'arrive tjrs pas au resultats souhaité
Faut-il que je fasse un recordset pr garder mon formulaire filtré ?

Merci,

Relancer une requête avec seulement les champs nécessaires puis l'exporter comme précisé par Caféine ne serait pas aussi simple?

Pour garder la chaine de caractère qui stocke ta condition WHERE (donc f), déclare-la non pas dans une procédure mais tout en haut de la page de code. Cette variable sera accessible par toutes les procédures de ton formulaire. Donc si tu lui dis lors de la conception de la requête que les critères de requête sont ça, ça et ça dans une procédure, tu pourras les réutiliser pour l'export.
Du coup, avec le code de ton bouton, tu pourras relancer ta requête avec les même critères mais avec d'autres champs à exporter:

Code:

---

"SELECT champA, champB, champC (...) FROM Matable WHERE " & f

---

Merci de ta réponse

Si j'ai bien compris il faut que j'enleve f="" dans le Bouton Chercher et je dois le mettre en haut

Mais j'ai pas bien compris ou je dois mettre

Code:

---

"Select ......." & f

---

parce que je n'en voit pas ds le tuto de cafeine (sauf pr l'ADO)

Faut il le mettre ici
Bouton Excel

Code:

---

1 2 3 4 5 6

Private Sub BtExcel_Click() CurrentDb.CreateQueryDef "resultats", "Select ...." & f DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "resultats", txtChemin, True DoCmd.DeleteObject acQuery, "resultats" End Sub

---

j'ai parcouru le forum et j'ai trouvé ce code ici http://www.developpez.net/forums/sho...light=exporter

Code:

---

Si j'ai bien compris il faut que j'enleve f="" dans le Bouton Chercher et je dois le mettre en haut

---

raté! Essaie encore!
Laisse ton code tel qu'il est pour le bouton "Rechercher".
Ce qu'il faut, c'est ajouter tout en haut de la page de code, avant tout le reste, la déclaration de variable:

Code:

---

Dim f as String

---

Ca te permettra de stocker les critères de recherche lors de l'éxécution de ton code.

Citation:

---

Faut il le mettre ici
Bouton Excel

---

Yes.

Si tu fais comme ça, ça te donne:
1- choix des critères de recherche
2- bouton Rechercher ==> lance la requête et stocke les conditions dans la variable f
Si la recherche donne le résultat escompté:
3- bouton Excel ==> réutilise les mêmes conditions que précédemment pour générer une nouvelle requête.

PS: n'oublies pas le WHERE dans ta commande SQL

oui j'ai vu que f="" ne marchait pas :lol:
donc j'ai bien mis

Code:

---

Dim f as String

---

Pour le bouton Excel je n'ai pas oublié le WHERE

Mais soit ça me met une erreur sur WHERE ou sinon il me demande de remlir mes champ1, champ2 ...... :?

Merci infiniment Miss Ti cela semble bien marcher
Je vais effectuer encore quelques test et aussi lui demander de m'ouvrir a chaque clique sur le BoutonExcel la page excel et son enregistrement

Euh j'ai encore quelque souci avec mon code

Code:

---

1 2 3 4 5

Private Sub BtExcel_Click() CurrentDb.CreateQueryDef "resultats", "Select ....WHERE" & f DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "resultats", txtChemin, True DoCmd.DeleteObject acQuery, "resultats" End Sub

---

Ca me met que l'objet existe déja pourtant

Code:

---

DoCmd.DeleteObject acQuery, "resultats"

---

le DeleteObject est censé supprime l'objet :roll:

Sinon le TransfertSpreadsheet est censé m'ouvrir a chaque fois un nouvel onglet dans ma feuille excel nan ? :roll:


Donc en gros ce que je desire faire:

1.Clique BoutonExcel export les données (ça ne marche pas tt le tps a cause de "l'objet exite déja" )

2.Données exportées vers une feuille excel et à chaque clique sur le BoutonExcel soit ça m'ouvre une nouvelle feuille ou soit ça rajoute un onglet a la feuille deja ouverte

Et bonne année, avec plein de programmation en perspective :king:

Citation:

---

Ca me met que l'objet existe déja

---

C'est parce que tu as eu un bug lors de la tentative précédente et donc ton code n'a pas fini de s'éxécuter. Donc DeleteObject n'a pas agit et "resultats" existe déjà (donc ne peut être créé par CurrentDb.CreateQueryDef "resultats")...
Prochaine tentative: ajoute une copie de ta ligne DeleteObject avant CurrentDb.CreateQueryDef "resultats", "Select ....WHERE" & f. Ca fermera le "resultat" qui existe déjà avant de le réouvrir pour faire ta requête et ton export.
Par la suite, mets une guillemet devant afin d'éviter que la ligne ne s'éxécute quand il n'y a pas eu de problème (sinon le code va tenter de fermer un objet qui n'existe pas => donc bug => donc pleurs => donc perte de cheveux et alcoolisme:-)).

:alerte: Attention! Mets un espace après le WHERE dans "Select ....WHERE" & f Sinon la requête lancée sera Select... WHEREchampTruc = x AND, ... au lieu de Select... WHERE champTruc = x AND, ... et tu n'arriveras à rien. (ce ne serait pas ça qui t'aurai généré une erreur et empêché le code d'aller jusqu'à DELETEObject?? Par hasard?)

Citation:

---

Sinon le TransfertSpreadsheet est censé m'ouvrir a chaque fois un nouvel onglet dans ma feuille excel nan ?

---

Euh... Prrr. Je sais pas. Il me semble que si le fichier de destination existe déjà, il sera écrasé. Tu n'as pas de message d'erreur à l'export si le fichier est ouvert?

Citation:

---

Et bonne année, avec plein de programmation en perspective

---

Ouééééé!! Trop bien! :yaisse2: C'est du sport pour les neurones!

:mrgreen: oui mettre

Code:

---

'DoCmd.DeleteObject acQuery, "Actionss"

---

avant

Code:

---

CurrentDb.CreateQueryDef "Actionss", j

---

et une tres bonne idée apres jouer sur le

Code:

---

'

---

si j'ai un pb ^^

Code:

---

1 2 3 4 5 6 7 8

Public Sub BoutonExcel_Click()   j = "SELECT Champ1, Champ2, ..... WHERE " & f   'DoCmd.DeleteObject acQuery, "Actionss" CurrentDb.CreateQueryDef "Actionss", j DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Actionss", "C:\......\Actionstest.xls", True DoCmd.DeleteObject acQuery, "Actionss"

---

Mais mon fichier excel ne s'ouvre pas jsui obligé d'aller dans mon dossier où se trouve Actionstest.xls pour l'ouvrir
Et de plus je peux pas faire d'extraction quand Actionstest.xls est ouvert

1.Pr l'ouverture j'ai tenté mais sans succes, je m'enfonce de plus en plus:'(

Code:

---

1 2 3 4

Dim appExcel As Excel.Application Dim wbfile As Workbook Set appExcel = CreateObject("Excel.Application") Set wbfile = appExcel.Workbooks.Open("C:\......\Actionss.xls")

---

c bon j'ai resolu mon petit probleme

j'ai simplement oublié de mettre

Code:

---

appExcel.visible=True

---

Citation:

---

Et de plus je peux pas faire d'extraction quand Actionstest.xls est ouvert

---

J'ai toujours eu ce problème. Je n'ai pas la solution... (et je m'en fiche parce que j'enregistre toujours sous des noms différents, sinon, c'est la même requête donc je peux écraser l'ancienne...)

Au moins, ça marche...

Oui c'est pas vraiment un souci :D

Je te remercie du temps que t'as consacré à mon probleme ;)

J'effectue encore quelques petits test avant de mettre le TAG RESOLU

MERCI