Discussion :

[morgan54]

bonjour à tous,
J'ai consulté les différents articles relatifs à ce type d'erreur mais je n'ai pas trouvé de solution.

J'ai un problème concernant l'extraction d'une requête ACCESS dans un onglet spécifié d'une feuille EXCEL.

voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Database
Option Explicit
---------
Private Sub Commande5_Click()
 
Call Exportation("requete", "C:\sortie.xls", "onglet2")
 
 
End Sub

------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Exportation(requete, sortie As String, onglet2 As String)

 Dim xlA As Object, xlW As Object, t As DAO.Recordset
 Dim s As String, NumChamp As Long, ligne As Long
 Dim mabase As Database
 
 Set xlA = CreateObject("excel.application")    'lance Excel
 xlA.Visible = True
 xlA.Workbooks.Open (sortie)       'ouvre le fichier
 Set xlW = xlA.activeworkbook
 ligne = 1
 Set mabase = CurrentDb
 Set t = mabase.OpenRecordset(requete)   'ouvre la requete
 Do Until t.EOF
   ligne = ligne + 1            'ligne suivante dans la feuille Excel
   For NumChamp = 0 To 1        'pour chaque colonne de la requete
    s = t(NumChamp)             'recupération des données au format Texte
    xlW.Sheets(onglet2).Cells(ligne, NumChamp + 1) = s 'ecriture dans la cellule
   Next NumChamp
  t.MoveNext                    'enregistrement suivant
  Loop
 t.Close
 xlW.Save
 xlA.Quit
 Set xlA = Nothing    ' puis libère la référence.

End Sub

Mon problème se situe à la ligne en gras. J'ai le message suivant:
erreur d'execution 3061.Trop peu de parametres.1 attendu

Je ne comprends pas ce qu'on entend par parametre attendu. Je ne vois pas ce qui cloche.

"requete" est une requête faite à l'aide d'access dont le code en sql est le suivant:

Code sql :

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

1
2
3
4
5
SELECT COUNTER.[ID rame], Sum(COUNTER.Lecture) AS SommeDeLecture
FROM [COUNTER]
GROUP BY COUNTER.[ID rame], COUNTER.[ID projet]
HAVING (((COUNTER.[ID projet])=[Formulaires]![Formulaire GENERAL]![AFFAIRE]))
ORDER BY COUNTER.[ID rame];

elle me permet de compter le nombre de kilometres réalisés(sum(counter.lecture)) par une locomotive(id rame) pour une affaire donnée.

remarques supplémentaires

*lorsque je lance la requête sur access, elle fonctionne
*je suppose que le problème vient d'une compatibilité entre ma requête et openrecordset car j'ai fais ce test:
j'ai executé la requete sous access et j'ai copié les données sur une table, ensuite j'ai executé ma fonction d'export sur cette table, et la ça a fonctionné...

question subsidiaire:
dans certains post j'ai vu OpenRecordset(requete,dbOpensnapshot) ou encore OpenRecordset(requete,dbOpenDynaset), à quoi correspondent ces expressions?


Désolé si mon message est long, c'est par souci de clarté.
J'espère qu'au moins j'ai été clair.
Merci d'avance pour les réponses.

[Kalvin_20]

Bonjour à toi

Code :

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

1
2
3
4
5
6
7
8
 
Set mabase = CurrentDb()
requete=" SELECT COUNTER.[ID rame], Sum(COUNTER.Lecture) AS SommeDeLecture
FROM [COUNTER]
GROUP BY COUNTER.[ID rame], COUNTER.[ID projet]
HAVING (((COUNTER.[ID projet])=[Formulaires]![Formulaire GENERAL]![AFFAIRE]))
ORDER BY COUNTER.[ID rame]"
Set t = mabase.OpenRecordset(requete) 'ouvre la requete

Essai ça , sa ira mieux apres je crois ou alors

requete = "NomDeTaRequete"
Set t.........

et pour tes question dsl je suis pas assez balaise en access pour pouvoir te repondre
Bonne chance

[morgan54]

tout d'abord merci beaucoup pour la rapidité de ta réponse, malheureusement ça n'a pas fonctionné, j'ai toujours la même erreur.

[LedZeppII]

Bonjour,

le problème vient de ce que ta requête fait référence à un contrôle de formulaire : [Formulaires]![Formulaire GENERAL]![AFFAIRE]
Il est pris pour un paramètre par DAO contrairement à Access.
Il faut que tu passes par un objet QueryDef intermédiare, auquel tu fournis le paramètre.

Code :

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

1
2
3
4
5
6
7
8
9
Dim q As DAO.QueryDef
...
 Set mabase = CurrentDb
 ' ouvre objet définiton de requête 
 Set q = mabase.QueryDefs(requete)
 ' fournit valeur du 1er paramètre 
 q.Parameters(0).Value = [Forms]![Formulaire GENERAL]![AFFAIRE]
 ' ouvre un recordset à partir de la requête paramétrée
 Set t = q.OpenRecordset

A+

[morgan54]

merci, j'essaierai cette solution dès lundi au travail.

[morgan54]

merci à toi LedZeppII, cette solution semble fonctionner à ceci près:
lorsque j'écris:

Code :

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

q.Parameters(0).Value = [Forms]![Formulaire GENERAL]![AFFAIRE]

access me dit qu'il est impossible de trouver le champ "formulaires" auquel je fais référence. Pourtant tout est bien ortographié.
Mais si je code en dur:

Code :

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

q.Parameters(0).Value = "paramètre"

il selectionne bien "paramètre".
A+

[LedZeppII]

Bonjour,

bizzare, "formulaires" n'est écrit nulle part.
Essaie

Code :

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

q.Parameters(0).Value = Forms("Formulaire GENERAL").AFFAIRE

A+

[morgan54]

Je pense que l'erreur venait du fait que j'utilisais [Formulaire] au lieu de [forms].
J'utilisais [formulaires] car ca fonctionnait en sql et en mode création pour les requêtes ACCESS.
Ta dernière solution semble fonctionner, je te remercie BEAUCOUP!

[LedZeppII]

Sans doute. VB et SQL ne connaissent que l'anglais US.
A+