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 :
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 [Formulaires]![frm00Extract]![frm00ExtractCataListImm]
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.
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
Hors dans la requete, si a la place de :
je met "CRYS", cela fonctionne très bien alors que ça revient au même, je sèche, quelqu'un a la solution ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part [Formulaires]![frm00Extract]![frm00ExtractCataListImm]
Partager