nombre et nom des Sheets/onglet d'une feuille Fermée ?!

[mjp]

salut c JP
je n'arrive pas à lire dans une feuille fermée !!! ;o(
dans une feuille active : Sheets.count... c ok

merci pour vos réponses
@+JP

 

[@+Thierry]

Salut JP

Qu'appeles-tu une feuille fermée ? Une feuille masquée ?

Et puis pour compter des feuilles dans une feuille il faut le faire aussi !!

Si tu parles de connaitre le nombre de feuilles dans un classeur fermé ce serait un peu plus clair et tu auras probabblement plus de chance de réponses...

Mais hélas si c'est ça ta question... Euh non pas à ma connaissance...

Méthode toute simple, tu ouvres, tu comptes, tu fermes... Ni Vu, Ni Connu !


Bon Aprèm
@+Thierry


PS : essayez, même si vous ne connaissez pas les termes techniques VBA ou autres de vous expliquer clairement...

 

[mjp]

salut c JP

bon voilà ou j'en suis : j'ouvre je teste et je ferme !!!
c'est null mais çà fonctionne

pour le détail : dans une liste de "fichier.xls"... ListFile on clique sur un fichier et la ListOnglet est remplie par le nom des onglets du fichier.
parfois un peu long 5/6 s
je suis sur une piste avec GetValue ... si vous connaitre ?...

@+JP
'---------------------------------------------
Private Sub ListFile_Click()
Dim i As Integer
Dim fichier As String
Dim NbrOnglet As Integer

If Right(ListFile.List(ListFile.ListIndex), 3) = "xls" Then
ListFiltre.Visible = False
ListOnglet.Visible = True
ListOnglet.Clear

'bloque / débloque l'écran pour ne pas visualiser les modifications
Application.ScreenUpdating = False

'TxbActuelPath est un TextBox qui contient mon Path
NbrOnglet = Workbooks.Open(TxbActuelPath.Text & ListFile.List(ListFile.ListIndex), 0).Sheets.Count
For i = 1 To NbrOnglet
ListOnglet.AddItem Sheets(i).Name
Next
Workbooks(ListFile.List(ListFile.ListIndex)).Close SaveChanges:=False

'bloque / débloque l'écran pour ne pas visualiser les modifications
Application.ScreenUpdating = True

End If
End Sub
'---------------------------------------------