Connection fichier fermé

Dim ExcelCn As ADODB.Connection

Sub ecrire_db_fermé()
'écrit enregistrements dans une table de base de données "db_ecrire"
' Michel_M,   modifié en septembre 04

Dim source As ADODB.Connection
Dim externe As ADODB.Recordset
Dim fichier As String, texte_SQL As String
Dim valeur0 As Variant
Dim valeur1 As Variant

'teste si le classeur source est fermé
If FichOuvert("fermé_ado.xls") = True Then
    MsgBox "Pour que l'opération demandée soit effectuée," & vbCr & _
    "Le classeur ""fermé_ado.xls"" doit être fermé ", vbCritical
    Exit Sub
End If

' affecte la valeur à écrire dans fermé.xls
'nota: penser à exclusion si valeurX est vide
valeur0 = Range("J2").Value
valeur1 = Range("K2").Value

' connecte à la database "source" dans le classeur excel fermé
fichier = ActiveWorkbook.Path & "\fermé_ado.xls"
Set source = New ADODB.Connection ' ADAPTER SI>= XL2007
source.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
                "data source=" & fichier & ";" & _
                "extended properties=""Excel 8.0;"""
                
' travail demandé: insère dans le champ "report" de "db_ecrire" (cellules nommées) la valeur de "J2 et K2,"
texte_SQL = "INSERT INTO db_ecrire (champ0,champ1) VALUES ('" & (valeur0) & "','" & (valeur1) & "')"
' éxécute le travail demandé
Set externe = New ADODB.Recordset
Set externe = source.Execute(texte_SQL)

source.Close

MsgBox " opération terminée"

End Sub