Bonjour le Forum =)
Je vous explique mon petit soucis :
Je voudrais concatené tous les onglets d'un seul classeur dans une nouvelle feuille , et executer cette macro dans plusieurs classeurs , voici mon code :
Le petit soucis c'est que cela concatene mes onglets dans l'onglet actif . Je souhaiterai que cela crée un nouvel onglet dans chauqe classeur et que cela concatene les onglets de chaque classeurs dans celui ci. Avez vous une idée de comment faire ?
Je vous explique mon petit soucis :
Je voudrais concatené tous les onglets d'un seul classeur dans une nouvelle feuille , et executer cette macro dans plusieurs classeurs , voici mon code :
Code:
Sub test()
Dim Wb As Workbook, w As Worksheet
Application.ScreenUpdating = False
For Each Wb In Workbooks
If Wb.Name Like "Analyse*" Then
For Each w In Wb.Worksheets
If Wb.Name <> ActiveWorkbook.Name Or w.Name <> ActiveSheet.Name Then _
w.Range("1:" & w.[A65536].End(xlUp).Row).Copy ActiveSheet.[A65536].End(xlUp)(2)
Next
End If
Next Wb
End Sub
Le petit soucis c'est que cela concatene mes onglets dans l'onglet actif . Je souhaiterai que cela crée un nouvel onglet dans chauqe classeur et que cela concatene les onglets de chaque classeurs dans celui ci. Avez vous une idée de comment faire ?