[Toutes versions] Conception base de données sous excel

Ah la on a qqch : erreur 3709 - Impossible d'utiliser cette connexion pour effectuer cette opération. Elle est fermée ou non valide dans ce contexte.

Place ton exemple de base de données XLSX sur le forum

1 pièce(s) jointe(s)

Here it is !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
Const Fichier = "C:\Users\RDurupt\Desktop\BDD\BDD.xlsx"
Set Cnx = CreateObject("ADODB.Connection")
    With Cnx
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
        & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
    Set rst = CreateObject("ADODB.Recordset")
 
    rst.Open "SELECT frm.Colonne3 FROM [Structure$]  as frm  WHERE frm.Colonne2='NomTest';", Cnx, 1, 3
If rst.EOF = False Then
     rst(0).Value = "Test RD"
     rst.Update
End If
End Sub