Découper un onglet en plusieurs fichiers Excel

Bonjour,

J'ai un fichier que j'aimerai scinder en plusieurs fichiers par entité. Chaque fichier doit contenir les informations qui sont dans les colonnes et avoir comme nom "entité".immobilier. Est ce que cela est possible? Existe t il une marco pour le faire? Ci-joint le fichier à découper.

Bonjour

une macro à insérer dans un module, à tester.

Sub creefichier()
Set ws = Worksheets("Immobilier")
dl = ws.Range("A" & Rows.Count).End(xlUp).Row
i = 2
oent = ""
While i <= dl
If oent <> ws.Cells(i, 1) Then
 If oent <> "" Then
   ws.Rows(fr & ":" & i - 1).Copy wsb.Range("A2")
   fname = oent & " Immobilier.xlsx"
   nwb.SaveAs fname
   nwb.Close
 End If
Set nwb = Workbooks.Add
 Set wsb = nwb.Worksheets(1)
 wsb.Name = "Immobilier"
 ws.Rows(1).Copy wsb.Range("A1")
 oent = ws.Cells(i, 1)
 fr = i
Else
 lf = i
End If
i = i + 1
Wend
If oent <> "" Then
   ws.Rows(fr & ":" & i - 1).Copy wsb.Range("A2")
   fname = oent & " Immobilier.xlsx"
   nwb.SaveAs fname
   nwb.Close
End If
End Sub]

Je te remercie beaucoup h2so4 pour ta réponse.

Ca à l'air de fonctionner sauf que je ne retrouve pas les fichiers.

bonjour,

par défaut les fichiers sont créés dans le même répertoire que celui où se trouve le fichier qui contient la macro. tu peux ajouter un chemin devant le nom de fichier

 fname = "e:\test\" & oent & " Immobilier.xlsx"

C'est génial,

Merci beaucoup pour votre aide si précieuse

Bonjour

La macro donnée m'est très utile mais j'aimerais savoir comment faire pour que les nouveaux fichiers créés gardent la mise en forme du premier : entête, pied de page, échelle...

Totalement néophyte, j'ai essayé en copiant des bouts de code récupérés avec l’enregistreur de macros mais rien ne fonctionne.

Je ne vois pas ou mettre le code pour que ça marche.

En vous remerciant