Trop peu de paramètres. 2 attendus

[Bastien]

Bonsoir à tous,
Voilà l'erreur sur le code suivant et je suis en galère

Sub miseAJour_Enregistrement()
    Dim Cn As ADODB.Connection
    Dim Requete As ADODB.Recordset
    
    Dim Fichier As String, Feuille As String, strSQL As String
    Dim Piece As String
    Dim val1 As Integer
    With ActiveWorkbook.Sheets(1)
        Piece = .Range("C5").Text
    End With
    val1 = 70
    Feuille = "POSTE CONDUITE"
    Fichier = "C:\Users\Bastien\Desktop\unfichier.xls"


    
    Set Cn = New ADODB.Connection
    
 
    With Cn
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & Fichier & "; ReadOnly=False;"
        .Open
    End With


    strSQL = "UPDATE [" & Feuille & "$] SET " & "Champ6 = " & val1 & " WHERE Champ5 = '" & Piece & "'"
    
    Cn.Execute strSQL
    
    Cn.Close
    Set Cn = Nothing
End Sub

Erreur : Trop peu de paramètres. 2 attendus
Merci d'avance

 

[Jam]

Re : Trop peu de paramètres. 2 attendus

Salut Bastien,

Pour être certain de te répondre correctement il faudrait 2 petites choses, car il n'y a rien de plus fastidieux que de déboguer des requêtes:
1. Un exemple de ta BDD
2. A quelle ligne a lieu l'erreur (cn.execute strSQL ....très probablement).

Sinon, à vue d'oeil je me pencherai sur:
1. Feuille...hum, es-tu certain que le nom est complet (ex. Feuille1) ?
2. Est-ce bien de Champ6 et Champ5 dont on parle ? Ta BDD n'a -t-elle pas des nom de champs (les en-tête de colonne) ?

Bon courage,