Re : extraire donnée cellule sur plusieurs onglets
Pour ceux que cela intéresse, voici le code qui m'a permis d'extraire les données voulus.
Sub ExtraitNomsOnglets()
Dim NbFeuilles As Long
Dim NmFeuille As String
Dim Cpt As Long
Dim ExtraitFacture As String
Dim ExtraitClient As String
Dim ExtraitDate As String
Dim ExtraitMontant As String
Dim ExtraitDesc1 As String
Sheets("Sommaire").Select
Range("A6").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.ClearContents
NbFeuilles = Worksheets.Count
For Cpt = 5 To NbFeuilles
NmFeuille = Sheets(Cpt).Name
ExtraitFacture = (NmFeuille)
Sheets("Sommaire").Select
Range("A6").Offset(Cpt - 5, 0).Value = ExtraitFacture
Next Cpt
For Cpt = 5 To NbFeuilles
Sheets(Cpt).Select
ExtraitClient = Range("E11")
Sheets("Sommaire").Select
Range("B6").Offset(Cpt - 5, 0).Value = ExtraitClient
Next Cpt
For Cpt = 5 To NbFeuilles
Sheets(Cpt).Select
ExtraitDate = Range("M10")
Sheets("Sommaire").Select
Range("C6").Offset(Cpt - 5, 0).Value = ExtraitDate
Next Cpt
For Cpt = 5 To NbFeuilles
Sheets(Cpt).Select
ExtraitMontant = Range("N35")
Sheets("Sommaire").Select
Range("D6").Offset(Cpt - 5, 0).Value = ExtraitMontant
Next Cpt
For Cpt = 5 To NbFeuilles
Sheets(Cpt).Select
Range("Z2").Select
ActiveCell.Formula = _
"=IF(ISERROR(CONCATENATE(F18,"""",F19,"""",F20,"""",F21)),"""",CONCATENATE(F18,"" "",F19,"" "",F20,"" "",F21))"
Range("A1").Select
ExtraitDesc1 = Range("Z2")
Sheets("Sommaire").Select
Range("E6").Offset(Cpt - 5, 0).Value = ExtraitDesc1
Next Cpt
Range("A1").Select
End Sub
Au plaisir,
Éric