Judie Rabe
XLDnaute Nouveau
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;
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.
Et voici les codes pour la connexion :
Je joins aussi mon formulaire.
En espérant vous lire.
Merci et bonne journée,
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;
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.
VB:
'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 :
VB:
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 FunctionJe joins aussi mon formulaire.
En espérant vous lire.
Merci et bonne journée,