Discussion :

[ragus77]

Bonjour,

Dans un formulaire : "frm00Extract" j'ai une liste déroulante : "frm00ExtractCataListImm" qui me propose 2 choix "CRYS" et "DEFE" et un bouton qui me lance une requête : "rqtCataImm", dans cette requête je choisi un critère de cette façon :

Code :

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

[Formulaires]![frm00Extract]![frm00ExtractCataListImm]

ainsi je lance la requete sur "CRYS" ou "DEFE" selon le choix de la liste déroulante, ça fonctionne, la requête s'ouvre sur le bon choix MAIS ensuite cela doit coller les données dans excel, voici une partie du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub frm00ExtractCataImm_Click()
'   Extraction catalist par immeuble
DoCmd.OpenQuery "rqtCataImm"
'   Ouverture du fichier Excel
Set varXlsApp = CreateObject("Excel.Application")
Set varXlsOnglet = varXlsApp.Workbooks.Open("c:\0_Continuitée\Extractions\Extract_Cata_Imm_Vierge.xlsm")
varXlsApp.Visible = True
'   ********************************************
'   INSCRIPTION DES REQUETES VERS EXCEL
'   ********************************************
'   Inscription dans Excel de la requête des ports utilisés
varXlsOnglet.Sheets("Ports catalyst utilisés").Select        '   Connexion sur le bon onglet
Set varRqt = CurrentDb.OpenRecordset("rqtCataImm")  '   Choix du nom de la requête pour la variable varRqt

J'ai cette erreur qui apparait sur la dernière ligne (excel s'ouvre sur le bon fichier) : erreur d'execution "3061" trop peu de paramètre.
Hors dans la requete, si a la place de :

Code :

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

[Formulaires]![frm00Extract]![frm00ExtractCataListImm]

je met "CRYS", cela fonctionne très bien alors que ça revient au même, je sèche, quelqu'un a la solution ?

[Jeannot45]

Code ragus77 :

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

J'ai cette erreur qui apparait sur la dernière ligne (excel s'ouvre sur le bon fichier) : erreur d'execution "3061" trop peu de paramètre.

Par rapport à ce message d'erreur, je pense que c'est au niveau de la requête qu'il y aurait un problème. En effet la type du critère est du texte. As-tu bien précisé les quotes dans la clause WHERE de ta requete :

Code SQL :

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

" WHERE TonChampCritere = '" & [Formulaires]![frm00Extract]![frm00ExtractCataListImm] & "'"

Bonne continuation

[ragus77]

Merci mais je suis pas sûr d'inscrire le code correctement, voici ce que j'ai mis :

Code :

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

1
2
FROM tbl00Prises 
WHERE (((tbl00_Prises.tbl00_Pris_Immeuble)=[Formulaires]![frm00Extract]![frm00ExtractCataListImm] & "'"));

J'ai le même message d'erreur, je suis d'accord avec vous le problème vient de la requête

[JeanYves70]

As tu essayé ceci pour ta requete 'rqtCataImm' :

Code :

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

1
2
3
SELECT tbl00_Prises.tbl00_Pris_Immeuble
FROM tbl00_Prises
WHERE (((tbl00_Prises.tbl00_Pris_Immeuble)=[Formulaires]![frm00Extract]![frm00ExtractCataListImm]));

[Jeannot45]

Il y a une petite erreur dans le code :

Code :

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

1
2
3
 
FROM tbl00Prises 
WHERE (((tbl00_Prises.tbl00_Pris_Immeuble)= ´" & [Formulaires]![frm00Extract]![frm00ExtractCataListImm] & "'"));

Bonne continuation

[ragus77]

Bonjour,

JeanYves70, oui j'ai essayé, c'est pareil.
Jeannot45, C'est pareil, je continu a chercher et a tester avec les quotes dont tu m'a parlé.
Merci en tout cas pour vos réponse.

[Jeannot45]

Dans un formulaire : "frm00Extract" j'ai une liste déroulante : "frm00ExtractCataListImm" qui me propose 2 choix "CRYS" et "DEFE"

Combien as-tu de colonnes dans ta liste déroulante. Si tu en as deux,il faut alors corriger la syntaxe comme suit :

Code :

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

1
2
3
 
FROM tbl00Prises 
WHERE (((tbl00_Prises.tbl00_Pris_Immeuble)= '" & [Formulaires]![frm00Extract]![frm00ExtractCataListImm].Column(1) & "'"));

L'indice (1) de la propriété Column indique la position de la colonne dans la source de la liste contenant l'info à récupérer sachant que la première colonne a l'indice (0)

Bonne continuation

[ragus77]

Bonjour,

Je n'ai qu'une seule colonne, je joint les 2 fichiers épurés pour n'avoir que le necessaire a ce problème, si je choisi dans la liste déroulante "DEFE" il sort bien la requete sur "DEFE" mais refuse la commande

Code :

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

Set varRqt = CurrentDb.OpenRecordset("rqtCataImm")

si l'on met dans la requete :

Code :

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

"CRYS"

a la place de :

Code :

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

[Formulaires]![frm00Extract]![frm00ExtractCataListImm]

ça fonctionne.
Les fichiers doivent être mis sur la racine du C, sinon changer la destination pour l'ouverture du fichier Excel dans la macro du bouton

[Jeannot45]

Je te joins ta base avec la petite correction qui va bien

Bonne continuation

[ragus77]

Bonjour,

Merci, mais tu m'a renvoyé ma base, pas tes correctifs.

[Jeannot45]

Mille excuses

Ci joint le bon fichier

Bonne continuation

[ragus77]

Bonjour,

Grand merci, ça fonctionne très bien