Re: Re : Mise à jour fichier fermé
Bonjour CBernardT,
Merci pour ta solution, celle-ci fonctionne mais dans le cas d'une mise à jour d'une liste. Dans mon cas je dois mettre à jour des données d'enregistrements déjà existants. J'ai donc fini par trouver la solution suivante
Sub miseAJour_Enregistrement()
Dim Cn As ADODB.Connection
Dim Fichier As String, Feuille As String, strSQL As String
Dim Clef As String
Dim TypeInterv As String
Dim DateEffect
Dim NumCde As String
Fichier = "C:\Documents and Settings\Q0568\Bureau\ESSAI\Fermé.xls"
Feuille = Range("B7").Value
CodeDoc = Range("B1").Value
TypeInterv = Range("B4").Value
DateEffect = Range("B5").Value
NumCde = Range("D2").Value
Set Cn = New ADODB.Connection
With Cn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & Fichier & "; ReadOnly=False;"
.Open
End With
'Met à jour la valeur du "Data3" si le Champ "Clef" correspond à la variable "CodeDoc"
strSQL = "UPDATE [" & Feuille & "$] SET " & _
"Data3 = '" & TypeInterv & "' WHERE Clef = '" & CodeDoc & "'"
Cn.Execute strSQL
strSQL = "UPDATE [" & Feuille & "$] SET " & _
"Data4 = '" & DateEffect & "' WHERE Clef = '" & CodeDoc & "'"
Cn.Execute strSQL
strSQL = "UPDATE [" & Feuille & "$] SET " & _
"Data5 = '" & NumCde & "' WHERE Clef = '" & CodeDoc & "'"
Cn.Execute strSQL
Cn.Close
Set Cn = Nothing
End Sub
Dans cet exemple je met à jour 3 données d'un enregistrement existant dans mon fichier fermé.
Bonne journée.
Cordialement
Pierre