Bonjour,
J'aimerais mettre à jour une table (d'un fichier excel).
Le code que j'ai testé ne fonctionne pas. Je n'ai rien trouvé de plus sur internet, j'éspère que vous pourrez m'aider.

Les requetes SELECT et INSERT fonctionnent mais pas l'UPDATE.

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
26
27
28
29
30
31
32
33
 
Public Cn As New ADODB.Connection
Public Rst As New ADODB.Recordset
 
Sub ConnexionBase()
Dim Fichier As String
    'Définit le classeur fermé servant de base de données
    Fichier = ThisWorkbook.Path & "\Fichier.xls"
    Set Cn = New ADODB.Connection
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open (openstatic)
    End With
End Sub
 
Sub InsMODModif()
    Call ConnexionBase
    strSQL = "INSERT INTO [Feuil2$] VALUES ('Test01', 'Test02')"
    Cn.Execute strSQL
    Cn.Close
    Set Cn = Nothing
End Sub
 
Sub UpdateMODModif()
    Call ConnexionBase
    strSQL = "UPDATE [Feuil2$] SET Colonne1='Test' WHERE Colonne2='Test02'"
    Cn.Execute strSQL
    Cn.Close
    Set Cn = Nothing
End Sub
Pour la requete Update voici l'erreur :
ERREUR d'execution '-2147217904 (80040e10)'
Aucune valeur donnée pour un ou plusieurs des paramètres requis.

Merci de votre aide.
Cordialement,
Jojo.