Macro - Récupérer données avec nom de feuille
B
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.
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.
B
Rebonjour,
Après tentative et aide, voici le résultat à mettre dans une nouvelle feuille "Synthèse" dans le classeur.
Merci
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