Bonjour,

Je suis sous XL-2007 mais je dois faire un classeur pour XL-2000.


Je cherche à lire des données d'une feuille d'un classeur fermé.
J'ai trouvé la macro qui va bien, la macro d'origine fonctionne parfaitement.

Je tente donc de l'appliquer à mon classeur.
Mais j'ai une

[Erreur de compilation type défini par l'utilisateur non défini]


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
Dim source As ADODB.Connection
Dim requete As ADODB.Recordset

Dim fichier As String, nom_plage As String, texte_SQL As String

'teste si le classeur source est fermé
If FichOuvert("VF_AgrégationT_ES.xls") = True Then
    MsgBox "Pour que l'opération demandée soit effectuée," & vbCr & _
    "Le classeur ""VF_AgrégationT_ES.xls"" ne doit pas être ouvert. ", vbCritical
    Exit Sub
End If

' ouvre la database "source" dans le classeur excel fermé
fichier = ActiveWorkbook.path & "\VF_AgrégationT_ES.xls"
Set source = New ADODB.Connection
source.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
                "data source=" & fichier & ";" & _

.....

Merci de votre aide

Bon réveillon de Noël à toutes et tous
Christian