Discussion :

[cindy1808]

Bonjour,

J'ai un soucis,
Je souhaite pouvoir modifier des données dans ma base "excel"(version 2000 grâce à la macro suivante:

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
Sub modifEnregistrement(SqlStr As String, ParamArray PrmLst() As Variant)
Dim Conn As Connection, Rst As New ADODB.Recordset
Dim B As Integer, A As Integer, rg As Range, Fichier As String
 
Fichier = "" & ThisWorkbook.Path & "\Base\Base.xls"
 
Set Conn = New ADODB.Connection
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Fichier & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;"""
 
'Fusion entre la chaîne et les paramètres
x = SqlStr
For i = 0 To UBound(PrmLst)
    x = Replace(x, "%" & (i + 1) & "%", "" & PrmLst(i))
Next i
 
Rst.Open x, Conn, _
adOpenKeyset, adLockOptimistic
 
Rst.Update
Rst.Close: Conn.Close
Set Rst = Nothing
Set Conn = Nothing
 
End Sub

mais quand je fais un test avec :

Code :

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

modifEnregistrement "DELETE FROM [SALARIE$] WHERE id_salarie=%1%", 1

ça ne fonctionne pas.

J'obtiens le message d'erreur suivant: "erreur d'éxécution -2147217904(80040e10) Aucune valeur donnée pour un ou plusieurs des paramètres requis"

Je ne comprends pas.

Pouvez-vous m'aider??
Merci d'avance.

[ouskel'n'or]

Il ma semble qu'il manque quelque chose dans ta ligne mais le mieux est que tu regarde ici où SikyRoad explique comment travailler sur un fichier fermé

[bioinfo]

La fonction s'appelle miseajourEnregistrement() mais tu testes avec une requête DELETE, est-ce normal ?

[Invité]

Bonjour

Dans un premier temps essayes avec le * au lieu du % comme joker.

De plus

Dans le tuto de Silkyroad au chapitre II. Les limites d'Excel utilisé comme une base de données il est stipulé :

Il n'est pas possible de supprimer les lignes complètes (enregistrements) dans un classeur fermé.
vous obtiendrez un message d'erreur "La suppression des données dans un table attachée n'est pas géré par le pilote ISAM".
Vous pouvez uniquement effacer le contenu des cellules.

Starec

[cindy1808]

J'ai effectivement modifié mon code grâce à vos remarques. Cependant, je n'arrive pas toujours à modifier mes informations.Sur le tutoriel de silkyroad, il écrit une macro pour modifier les enregistrements qu'il nomme "miseAJour_Enregistrement" mais lorsque je teste, la macro en question ajoute les informations mais ne les modifie pas. Je souhaite vraiment faire de la modification d'information et non de l'ajout.
Je n'arrive pas à débloquer ma situation...
Help

[SilkyRoad]

bonsoir

Sur le tutoriel de silkyroad, il écrit une macro pour modifier les enregistrements qu'il nomme "miseAJour_Enregistrement" mais lorsque je teste, la macro en question ajoute les informations mais ne les modifie pas. Je souhaite vraiment faire de la modification d'information et non de l'ajout.

je viens de retester la procédure et je n'ai pas constaté cette anomalie.
Tu as essayé exactement la même procédure ?


bonne soirée
michel