découpe de fichier automatique

[jv44]

Bonjour à vous tous !!!

Merci d'avance à tout les courageux qui me répondrons !

Je voudrais savoir si il était possible de créer une petite maccro (dans l'idéal en add-ing) pour découper un fichier excel en plusieur fichiers (en ayant le chois du nombre de fichiers...) ...?

exemple :

un fichier de 5 000 lignes je voudrais le découper en 5 fichiers de 1 000...

Désolé si je ne suis pas très très clair, à noter que mon niveau est plus que basic sur excel !

 

[kjin]

Re : découpe de fichier automatique

Bonsoir,
Une vrai boucherie...

Sub zzzzzzzz()
Dim d As Range, r As Range, pfile$, x%, j%, ws As Worksheet
Set d = ActiveSheet.UsedRange
pfile = ActiveWorkbook.Path
x = d.Rows.Count
j = 1
For i = 0 To x Step 1000
    Set r = d.Offset(i).Resize(1000)
    Set ws = Sheets.Add
    r.Copy ws.Range("A1")
    ws.Copy
    Application.DisplayAlerts = False
    With ActiveWorkbook
        .SaveAs pfile & "\saucisson" & j & ".xls"
        .Close True
    End With
    ws.Delete
    Application.DisplayAlerts = True
    j = j + 1
Next
End Sub

les fichiers sont sauvegardés dans le répertoire courant, à adapter donc...
A+
kjin

 

[jv44]

Re : découpe de fichier automatique

Bonsoir,
Une vrai boucherie...

Sub zzzzzzzz()
Dim d As Range, r As Range, pfile$, x%, j%, ws As Worksheet
Set d = ActiveSheet.UsedRange
pfile = ActiveWorkbook.Path
x = d.Rows.Count
j = 1
For i = 0 To x Step 1000
    Set r = d.Offset(i).Resize(1000)
    Set ws = Sheets.Add
    r.Copy ws.Range("A1")
    ws.Copy
    Application.DisplayAlerts = False
    With ActiveWorkbook
        .SaveAs pfile & "\saucisson" & j & ".xls"
        .Close True
    End With
    ws.Delete
    Application.DisplayAlerts = True
    j = j + 1
Next
End Sub

les fichiers sont sauvegardés dans le répertoire courant, à adapter donc...
A+
kjin

C'est nikel !!! merci beaucoup ! juste une question qui va surement paraitre stupide mais, comment le mettre en .xla ?

 

[jv44]

Re : découpe de fichier automatique

Bonjour bonjour,

Nouveau défit pour vous excelien (un jour j'y arriverais !).

toujours sur le meme sujet de découpe de fichiers, j'aimerais "compliquer" la tache !!

J'aimerais pouvoir inserer sur chaque fichiers générés une premiere ligne entête, en allant le chercher dans le second onglet ou en le reprenant en haut du chichier.

je vous joint un fichier d'exemple avec déjà la maccro de découpe initiale.

 

[kjin]

Re : découpe de fichier automatique

Bonjour,

...(un jour j'y arriverais !)

Pour sûr...
Une autre méthode à base de tableaux

Sub Decoupe()
Dim d As Range, r As Range, pfile$, x%, j%, ws As Worksheet
nb = InputBox("Combien de saucissons faut-il créer ?", "DECOUPAGE FICHIER")
If IsEmpty(nb) Or Not IsNumeric(nb) Then Exit Sub
Set d = ActiveSheet.UsedRange.Offset(1)
tablo1 = Feuil2.Range("A1", Feuil2.Range("IV1").End(xlToLeft)).Value
pfile = ActiveWorkbook.Path
x = d.Rows.Count
j = 1
Application.ScreenUpdating = False
For i = 0 To x Step Int(nb)
    tablo2 = d.Offset(i).Resize(Int(nb)).Value
    Set ws = Sheets.Add
    With ws
        .Range("A1").Resize(1, UBound(tablo1, 2)) = tablo1
        .Range("A2").Resize(UBound(tablo2, 1), UBound(tablo2, 2)) = tablo2
        Erase tablo2
        .Copy
        Application.DisplayAlerts = False 'attention: écrase les fichiers existants
        With ActiveWorkbook
            .SaveAs pfile & "\import gestes co" & j & " (Dec" & nb & ")" & ".xls"
            .Close True
        End With
        .Delete
        Application.DisplayAlerts = True
    End With
    j = j + 1
Next
Application.ScreenUpdating = True
End Sub

J'ai supprimé tous les boutons pour n'en garder qu'un et ajouté une boite de dialogue
A+
kjin

 

[jv44]

Re : découpe de fichier automatique

lalala je suis impréssionnée ! et adméton que l'entête fasse 5 lignes c'est aussi faisable ?

 

[kjin]

Re : découpe de fichier automatique

Bonjour,

admettons que l'entête fasse 5 lignes c'est aussi faisable ?

As tu testé ?
A+
kjin

 

[jv44]

Re : découpe de fichier automatique

Bonjour,

oui cependant sa ne me ramene que la premiere ligne de l'entete.

l'entete en exemple :

 

[kjin]

Re : découpe de fichier automatique

Re,

oui cependant sa ne me ramene que la premiere ligne de l'entete.

Oui, j'avais lu colonnes ! Désolé
Les lignes d'entête seront-elles situées sur la feuille2 ou pas ?
Si non peut-on envisager, par exemple, de sélectionner au préalable les lignes de la feuille1 qui serviront à l'entête ?
A+
kjin

 

[jv44]

Re : découpe de fichier automatique

Si non peut-on envisager, par exemple, de sélectionner au préalable les lignes de la feuille1 qui serviront à l'entête ? <<< biensure c'est même mieux !

 

[kjin]

Re : découpe de fichier automatique

Re,

Re,
Si non peut-on envisager, par exemple, de sélectionner au préalable les lignes de la feuille1 qui serviront à l'entête ?

En fait c'est une fausse bonne idée car une fois que l'on a sélectionné les lignes qui serviront d'entête, il faut également indiquer la ligne à partir de laquelle commencent les données à exporter; plus clairement, si je sélectionne lignes 1 à 5 pour l'entête, les données commenceront-elles à la ligne 7 ou peut-être 8..., ou doit-on considérer quelles commencent toujours tout de suite après les lignes d'entête, c'est à dire ici, 6 ?
A+
kjin

 

[jv44]

Re : découpe de fichier automatique

Re bonjour

je te joins un fichier "type", c'est a dire ce à quoi devrais ressembler chaques fichiers apres découpage désolé si je ne suis pas très très claire !

 

[jv44]

Re : découpe de fichier automatique

personne pour voler à mon secour ?