XL 2019 Macro - Récupérer données avec nom de feuille

[Bastien43]

Bonjour,

Je dispose d'un fichier Excel (modèle simplifié joint). je cherche à récupérer dans un nouveau fichier excel :

Depuis le fichier Modulation :
Colonne A : nom de la feuille et colonne B : valeur de la cellule T1

J'ai un classeur de plus de 100 feuilles. Je souhaite récupérer les données les unes en dessous des autres dans ce nouveau fichier excel

Comment faire cette macro ?

Merci pour votre aide.

 

[sylvanu]

Bonjour Bastien,
En PJ un essai.
Pour simplifier j'ai mis la synthèse dans le fichier, feuille Synthèse.
La réactualisation s'effectue quand on sélectionne cette feuille avec cette macro :

Sub Worksheet_Activate()
    Dim F, i
    Application.ScreenUpdating = False: i = 2
    Range("A2:B1000").ClearContents
    Range("A2:B1000").NumberFormat = "0"" m3"""
    For Each F In Worksheets
        If F.Name <> "Synthèse" Then
            Range("A" & i) = F.Name
            Range("B" & i) = Sheets(F.Name).[T1]
            i = i + 1
        End If
    Next F
End Sub

 

[Bastien43]

Bonjour,
Merci pour la réponse rapide.
Ca marche super bien.
Merci pour votre aide
Cordialement