XL 2010 Nbr de feuilles d'un classeur

[fattah_5791]

Bonjour
j'ai realisé une petite macro qui me permet d'ouvrir un classeur (contenant plusieurs feuilles) et d'y copier des données a partir d'une zone de selection connue puis les coller ds un autre classeur.

hassancc.xls : classeur contenant plusieurs feuilles de mm format
EtudeNotes.xlsm: classeur de destination de données.

code me permettant de copier les données de la 1ere feuille

Dim Fichier As String
Fichier = ThisWorkbook.Path & "\Hassancc.xls"
Workbooks.Open Fichier
Sheets(1).Select
Range("D11:X48").Select
Selection.Copy
Windows("EtudeNotes.xlsm").Activate
Sheets("Hassan1").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = False
Workbooks("Hassancc.xls").Close False

je cherche à connaitre le nbr de feuilles disponible ds le classeur source et faire une boucle pour copier leurs donnees.
Merci

 

[DoubleZero]

Bonjour, fattah_5791, le Forum,

Pour cette portion :

... je cherche à connaitre le nbr de feuilles disponible ds le classeur source...

Comme ceci ?

Option Explicit
Sub Onglets_totaliser()
    MsgBox ThisWorkbook.Name & " : " & Worksheets.Count & " onglets."
End Sub

A bientôt

 

[fattah_5791]

bnjr
ca marche parfaitement.
Merci