Discussion :

[Bibi72]

Bonjour à tous,
Je suis très récent sur Visual Basic via Access et je rencontre un problème que je ne rencontre pas sur mon PC perso à savoir "Erreur d'exécution 3061 : Trop peu de paramètres. 11 attendu".
Voici le code :

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
Private Sub FileWrite_Click()
Dim MaBD As Database
Dim MaRequete As Recordset
Dim MonAppliExcel As Excel.Application
Dim facture As Excel.Workbook
Dim MaFeuilleExcel As Excel.Worksheet
Dim NbEnreg, i As Integer
NbEnreg = DCount("[Nom]", "R_CA_Ristournes")
Set MaBD = CurrentDb()
Set MaRequete = MaBD.OpenRecordset("R_CA_Ristournes")
Set MonAppliExcel = New Excel.Application
Set facture = MonAppliExcel.Workbooks.Add
Set MaFeuilleExcel = facture.ActiveSheet
a = 3
For i = 1 To NbEnreg
With MaFeuilleExcel
    .Cells(a, 1).Value = MaRequete!NOM
    .Cells(a, 2).Value = MaRequete!Type
    .Cells(a + 1, 2).Value = MaRequete!Domaine
    a = a + 2
End With
MaRequete.MoveNext
Next i
MonAppliExcel.Visible = True
End Sub

Je ne comprends vraiment pas !!! Quelqu'un pourrai t'il m'aider car rien sur les forums ou sur le web...
Pour info. j'ai coché les références suivantes :
- Microsoft Office 12.00 Access database engine Object...
- Microsoft Excel 12.0 Object library
- Microsoft AxtiveX Data Objects Library
- Microsoft ActiveX Data Objects Recordset 6.0 Library
et d'autres mais ces 4 devraient correspondre à ce que j'utilise dans ce "sub"

Merci de vos réponses.
Christophe

[asteroide26]

Salut

Set MaRequete = MaBD.OpenRecordset("R_CA_Ristournes")

il nous faudrait aussi ta requete R_CA_Ristournes pour qu'on puisse te dire ce qu'il manque, mais il semblerait que le problème vienne de là

CDT

[marot_r]

Peux-tu préciser sur quelle ligne de code tu rencontres le problème ?

A+