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