Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Fichier As String, Cible As String, Feuille As String
Fichier = "C:\ClasseurFermé.xls"
Feuille = "Feuil1$"
Set Cn = New ADODB.Connection
Cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & Fichier & ";" & _
"extended properties=""Excel 8.0;"""
Cible = "SELECT * FROM [" & Feuille & "];"
Set Rs = New Recordset
Rs.Open Cible, Cn, adOpenKeyset, adLockOptimistic
Rs.Filter = "Champ1=Null"
With Rs
If Not .EOF Then
.Fields("Champ1") = "xxxx"
.Fields("Champ2") = 60
.Fields("Champ3") = 17
.Update
End If
End With
Rs.Close
Cn.Close