XL 2016 VBA : Erreur automation - requête sur un fichier ouvert

[Judie Rabe]

Bonjour,

J'essaie de faire une requête SQL sur un fichier ouvert et j'ai soit :
- une erreur d'automation dans le fichier destination original;

- l'erreur suivante dans le fichier destination simplifié que je vous envoie : le moteur de base de données microsoft access a arrêté le traitement parce ce que vous et un autre utilisateur

A noter que quand ce fichier est fermé, ma requête fonctionne .

Je me demandais si vous auriez une idée de pourquoi ça ne fonctionne pas ?

Voici le code en question, l'erreur s'affiche au moment de Cn.Execute
Cn et Rst sont des variables globaux.

  'Connexion au registre des factures
        Dim con
        con = Connexion(sfichierSDC, sNomOnglet)
        For J = 11 To iNbLigne
                sSDC = Cells(J, 1).Value
                If (InStr(1, sSDC, "SDC") > 0) Then
                        sSDC = Replace(sSDC, "SDC : ", "")
                        'Définit la requête select pour savoir si l'enregistrement existe déjà dans la table
                        texte_SQL = "SELECT * FROM [" & sNomOnglet & "$] " _
                        & "WHERE PROJET ='" & Cells(J, 12).Value & "' AND SOUSPROJET=" & Cells(J, 13).Value & " AND LOT=" & Cells(J, 14).Value & " AND SOUSLOT='" & Cells(J, 15).Value & "';"
                        Set Rst = New ADODB.Recordset
                        Set Rst = Cn.Execute(texte_SQL)

Et voici les codes pour la connexion :

 Function Connexion(ByVal sFichier As String, ByVal sNomFeuille As String)
    
        '--- Connexion ---
        Set Cn = New ADODB.Connection
        With Cn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & sFichier & "; Extended Properties=""Excel 12.0 Macro; HDR=Yes"";"
            .Open
        End With

End Function

Je joins aussi mon formulaire.

En espérant vous lire.

Merci et bonne journée,

 

[fanch55]

Bonjour,
Essayez de rajouter Mode=Read dans le Connectionstring