Excel SQL ADODB sur classeur en lecture seule
Bonjour,
Depuis plusieurs années, j'utilise cette méthode pour aller lire des fichiers excel via des requetes SQL.
J'ai un problème, lorsque je vais lire un classeur qui est en lecture seule, le classeur s'ouvre au premier plan. Ce comportement n'est pas normal et je ne l'ai que sur les classeurs en lecture seule...
Le fichier s'ouvre au moment du : Rst.Open requete, Cn, adOpenStatic
Avez-vous déjà eu ce cas?
Voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
Sub connexionbase(Fichier As String)
Set Cn = New ADODB.Connection
With Cn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & Fichier & _
";Extended Properties=Excel 12.0 Xml;"
.ConnectionTimeout = 40
.Open
End With
Set Rst = New ADODB.Recordset
End Sub
Sub Test()
Dim requete as string
requete = "Select `Champ` FROM [MaTable$] WHERE `Critere` = " & Valeur
Call connexionbase(CheminVersLeFichier)
Rst.Open requete, Cn, adOpenStatic
If Rst.RecordCount > 0 Then
'Du code
Else
'Du code
End If
End Sub |
Merci de votre aide
