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
Partager