Bonjour,

J'utilise une connexion ADODB pour récupérer, depuis Word, le contenu de la première feuille d'un classeur Excel sans avoir à ouvrir ledit classeur.

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
Dim Cn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim NomFeuille, texte_SQL As String
 
    NomFeuille = "Feuil1"
    Set Cn = New ADODB.Connection
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
 
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)

Jusque là tout va bien et tout fonctionne correctement.
Mon problème vient de la variable NomFeuille, qui pour l'instant est définie en dur dans le code. Or, dans une version anglaise de office par exemple, la première page d'un classeur excel ne s'applle plus "Feuil1" mais "Sheet1".

D'où ma question : Comment récupérer le nom de la première feuille d'un classeur excel fermé ?

Merci d'avance pour vos réponses