Synthaxe nom d'une feuille Excel ?

[Maxpuff]

Bonjour,
Je souhaite trouve le nom de la première feuille d'un fichier excel depuis un autre, mais je ne trouve pas comment faire.
Je suis parti sur cette voie:

Workbooks("'C:\Users\utilisateur\Documents\Comparaisons Excel\B.xls'").Sheets(1).Name
or
Application.Workbooks("C:\Users\utilisateur\Documents\Comparaisons Excel\B.xls").Sheets(1).Name

mais cela ne fonctionne pas. Le fichier n'est pas ouvert donc je garde la synthaxe c:\...

 

[Pierrot93]

Re : Synthaxe nom d'une feuille Excel ?

Bonjour Maxpuff

regarde le lien ci-dessous, code de MichelXLD🙂, te donne le nom des feuilles d'un classeur fermé :

https://www.excel-downloads.com/thr...viron-80-des-donnees-puis-plus-dordre.199905/

bonne fin d'après midi
@+

 

[Pierrot93]

Re : Synthaxe nom d'une feuille Excel ?

Re

Adaptation de ce code pour la 1ère feuille :

Sub FeuilleClasseurFerme()
'necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library
'necessite d 'activer la reference Microsoft ADO Ext 2.7 for DLL ans Security
Dim Cat As ADOX.Catalog
Dim Fichier As String, xConnect As String, Resultat As String
Dim Cn As ADODB.Connection
Dim Feuille As ADOX.Table
 
Fichier = "D:\DONNEES\DOCLPE\Test\Classeur1.xls"
 
xConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & ";" & _
"Extended Properties=Excel 8.0;" 'preparation connection
 
Set Cat = CreateObject("ADOX.Catalog")
Set Cn = CreateObject("ADODB.Connection")
 
Cn.Open xConnect
Set Cat.ActiveConnection = Cn

MsgBox Application.WorksheetFunction.Substitute(Cat.tables(0).Name, "$", "")
 
Set Cn = Nothing
Set Cat = Nothing
End Sub

 

[Maxpuff]

Re : Synthaxe nom d'une feuille Excel ?

Alors ça fonctionne mais ce qui est très bizarre c'est que le MsgBox me donne le nom d'une colonne...
Sauf si aucune colonne porte de nom cela me donne bien le nom de la feuille

Merci 😉

Une petite aide pour:
https://www.excel-downloads.com/threads/erreur-range-value.119647/ ??

 

[Pierrot93]

Re : Synthaxe nom d'une feuille Excel ?

Re

pas ce genre de souci chez moi(Excel2003), me renvoie bien le nom de la feuille...

@+