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 : Sélectionner tout - Visualiser dans une fenêtre à part
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