cissou9980
Nouveau membre
Bonjour,
J'ai un fichier XLS avec plusieurs feuilles 1 onglet par utilisateur. L'objectif et de créer un nouveau classeur indépendant qui regroupe la totalité des données de mes utilisateurs.
J'ai réussi avec cette macro à créer une nouvelle feuille mais je voudrai que cette feuille ne soit pas dans le même classeur mais dans un nouveau qui s'appellerai "Recap *datedujour"
Merci de votre aide.
Voici la macro utilisée :
J'ai un fichier XLS avec plusieurs feuilles 1 onglet par utilisateur. L'objectif et de créer un nouveau classeur indépendant qui regroupe la totalité des données de mes utilisateurs.
J'ai réussi avec cette macro à créer une nouvelle feuille mais je voudrai que cette feuille ne soit pas dans le même classeur mais dans un nouveau qui s'appellerai "Recap *datedujour"
Merci de votre aide.
Voici la macro utilisée :
Code:
Sub Recap()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Recap"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub