Erreur 3061, trop peu de paramètres. 1 attendu

Bonjour,

Je rencontre l"'erreur d'exécution 3061: trop peu de paramètres.1 attendu."

Mon code sert à mettre le contenu d'une requête dans un Excel à partir d'une ligne donner. Après plusieurs recherches pour comprendre cette erreur et différents test, je n'ai pas réussi à corriger le problème. Ma requête me sort bien les matériels demander.

J'ai tester une notre variante pour contourner le problème (la première ligner Set rec qui est en commentaire) et la je me retrouve avec "l'erreur d'exécution 3450, erreur de syntaxe dans la requête. La clause de la requête est incomplète." J'ai essayé de corriger sa en modifiant certains éléments de la ligne mais rien n'y fait.

Je commence à être à cours d'idée. Si à une solution je suis preneur, merci d'avance.

Voici le code :

Private Sub Commande120_Click()

 

Dim xlApp As Excel.Application

Dim wbk As Excel.Workbook

Dim sht As Excel.Worksheet

Dim I As Long, J As Long

Dim rec As Recordset

 

'Set rec = CurrentDb.OpenRecordset("SELECT '[Tracabilite].[Clé_outil], [Tracabilite].[NomOperateur], [Tracabilite].[Support], [Tracabilite].[WPWO], [Tracabilite].[Observation]' FROM 'Tracabilite' WHERE '(Tracabilite.Clé_outil)' Like '[Formulaires]![Menu principal Traca]![Texte124]';", dbOpenSnapshot)

 

Set rec = CurrentDb.OpenRecordset("ImpTraca", dbOpenSnapshot)

 

' Créer un objet Excel

Set xlApp = CreateObject("Excel.Application")


With xlApp

   ' Rendre Excel visible

   .Visible = True


   ' Créer un nouveau classeur

   Set wbk = .Workbooks.Open("U:\Prive\ESTA\COMMUN\SuivMat\A400M\Suivi Outillage A400M\Programme\TracabiliteTGM.xlsx")

  

   ' Instancier la feuille active dans le classeur

   Set sht = wbk.ActiveSheet

  

   ' Ecrire quelques valeurs

   With sht

       .Range("B2").Value = Me.Modifiable118.Column(0)

       .Range("B3").Value = Me.Modifiable118.Column(3)

       .Range("E3").Value = Me.Modifiable118.Column(2)

       .Range("B4").Value = Me.Modifiable119.Column(0)

       .Range("E4").Value = Me.Texte123.Value

   End With

  

I = 6

Do While Not rec.EOF

For J = 0 To rec.Fields.Count - 1

  

If rec.Fields(J).Type = dbText Then

sht.Cells(I, J + 1) = "'" & rec.Fields(J)

Else

sht.Cells(I, J + 1) = rec.Fields(J)

End If

 

Next J

I = I + 1

rec.MoveNext

Loop

 

'   ' Sauvegarder et fermer le classeur

'   wbk.SaveAs "C:Mes documentstest.xls"

'   wbk.Close

  

'   ' Quitter Excel

'   .Quit

End With


' Libérer les variables objet

rec.Close

Set sht = Nothing

Set wbk = Nothing

Set xlApp = Nothing

Set rec = Nothing

 

End Sub