XL 2016 Code VBA pour éclater un fichier en x fichier par mois

[J17]

Bonjour,
Je souhaiterai votre aide pour avoir un code vba qui me découpe un fichier source en x fichiers (un nouveau fichier pour chaque mois).
Mes fichiers sources contiennent plus de 250 000 lignes d'écritures comptables sur plusieurs mois.
Pourriez vous, s'il vous plait, m'aider ?
Je vous mets en pièce jointe un fichier source comme exemple qui est moins volumineux
Je vous en remercie par avance
Bien cordialement
JC

 

[vgendron]

avant de lancer la macro, supprimes tous les fichiers qui ont été générés précedemment
relance la macro==> si tu as encore le message, c'est que tes données ne sont pas triées
(c'est ce que je mettais dans un message précédent en réponse à Sylvanu==> ma macro suppose que la colonne A est triée en ordre croissant==> il te suffit donc de la trier avant de lancer la macro)

 

[vgendron]

avec le tri de la colonne A

 

[J17]

avant de lancer la macro, supprimes tous les fichiers qui ont été générés précedemment
relance la macro==> si tu as encore le message, c'est que tes données ne sont pas triées
(c'est ce que je mettais dans un message précédent en réponse à Sylvanu==> ma macro suppose que la colonne A est triée en ordre croissant==> il te suffit donc de la trier avant de lancer la macro)

Merci beaucoup pour ton analyse,
En effet, cela fonctionne très bien en faisant un tri avant de lancer la macro

Pourrais tu, s'il te plait, rajouter le tri des données sources dans ton code VBA ?

Dans les fichiers générés, les données sont un peu modifiées, exemple, si j'ai une référence 00000123 dans le fichier source, dans la copie, je retrouve 123.
Idem, dans le fichier source, j'ai des montants 0,00 et dans le fichier généré, le retrouve 0.

Serait il possible, s'il te plait, avoir les mêmes données dans les fichiers mensuels générés ?

Merci par avance

JC

 

[J17]

avec le tri de la colonne A

En effet, cela fonctionne super bien

 

[J17]

En effet, cela fonctionne super bien

Dans les fichiers générés, les données sont un peu modifiées, exemple, si j'ai une référence 00000123 dans le fichier source, dans la copie, je retrouve 123.
Idem, dans le fichier source, j'ai des montants 0,00 et dans le fichier généré, le retrouve 0.

Serait il possible, s'il te plait, avoir les mêmes données dans les fichiers mensuels générés ?

Merci par avance

 

[vgendron]

Avec le reformatage des dates et numéro de ref à 10 chiffres

 

[sylvanu]

cependant chaque fichier généré contient une ligne à la fin du mois suivant.

Oups ! 😡
Petit bug, un "-1" oublié.

 

[J17]

Avec le reformatage des dates et numéro de ref à 10 chiffres

Merci beaucoup pour tes recherches et modif
Cela ne fonctionne pas, uniquement quelques valeurs sont conservées, mais beaucoup sont modifiées

 

[vgendron]

Merci beaucoup pour tes recherches et modif
Cela ne fonctionne pas, uniquement quelques valeurs sont conservées, mais beaucoup sont modifiées

je n'ai reformaté que 3 colones (2 date et ref interne)
tu devrais pouvoir appliquer la meme méthode pour les autres colonnes

le pb est qu'initialement, ton fichier ne contient pas de nombre. mais du texte

 

[J17]

je n'ai reformaté que 3 colones (2 date et ref interne)
tu devrais pouvoir appliquer la meme méthode pour les autres colonnes

le pb est qu'initialement, ton fichier ne contient pas de nombre. mais du texte

Sur ref interne, on retrouve des lignes avec les 00000 par exemple et d'autres non

 

[J17]

Oups ! 😡
Petit bug, un "-1" oublié.

Merci beaucoup cela fonctionne bien également

Cependant, dans les fichiers générés, les données sont un peu modifiées, exemple, si j'ai une référence 00000123 dans le fichier source, dans la copie, je retrouve 123.
Idem, dans le fichier source, j'ai des montants 0,00 et dans le fichier généré, le retrouve 0.

Serait il possible, s'il te plait, avoir toutes les mêmes données dans les fichiers mensuels générés ?

Merci par avance

 

[vgendron]

pour reformater

Sub Export(Tabdata() As Variant, NomFile As String, MoisEnCours As Integer, AnnéeEnCours As Integer)
    Workbooks.Add
    Set WbDest = ActiveWorkbook
    With WbDest.Sheets("Feuil1")
        .Range("A1").Resize(UBound(Tabdata, 2), UBound(Tabdata, 1)) = Application.WorksheetFunction.Transpose(Tabdata) 'on colle le résultat
        
        'on reformate les données
        .Range("A2").Resize(UBound(Tabdata, 1)).NumberFormat = "dd/mm/yyyy"
        .Range("C2").Resize(UBound(Tabdata, 1)).NumberFormat = "General"
        .Range("E2").Resize(UBound(Tabdata, 1)).NumberFormat = "0000000000"
        .Range("G2").Resize(UBound(Tabdata, 1)).NumberFormat = "General"
        .Range("I2").Resize(UBound(Tabdata, 1), 2).NumberFormat = "0.00"
        .Range("M2").Resize(UBound(Tabdata, 1)).NumberFormat = "dd/mm/yyyy"
        .Name = MoisEnCours & "_" & AnnéeEnCours
    End With
    
    WbDest.SaveAs Filename:=NomFile, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    WbDest.Close
    
End Sub

 

[J17]

pour reformater

Sub Export(Tabdata() As Variant, NomFile As String, MoisEnCours As Integer, AnnéeEnCours As Integer)
    Workbooks.Add
    Set WbDest = ActiveWorkbook
    With WbDest.Sheets("Feuil1")
        .Range("A1").Resize(UBound(Tabdata, 2), UBound(Tabdata, 1)) = Application.WorksheetFunction.Transpose(Tabdata) 'on colle le résultat
       
        'on reformate les données
        .Range("A2").Resize(UBound(Tabdata, 1)).NumberFormat = "dd/mm/yyyy"
        .Range("C2").Resize(UBound(Tabdata, 1)).NumberFormat = "General"
        .Range("E2").Resize(UBound(Tabdata, 1)).NumberFormat = "0000000000"
        .Range("G2").Resize(UBound(Tabdata, 1)).NumberFormat = "General"
        .Range("I2").Resize(UBound(Tabdata, 1), 2).NumberFormat = "0.00"
        .Range("M2").Resize(UBound(Tabdata, 1)).NumberFormat = "dd/mm/yyyy"
        .Name = MoisEnCours & "_" & AnnéeEnCours
    End With
   
    WbDest.SaveAs Filename:=NomFile, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    WbDest.Close
   
End Sub

Merci beaucoup pour ce code
A quel niveau dois je l'insérer ?
Merci par avance

 

[vgendron]

à la place de celui qui existe déjà
en bas du module 1

 

[J17]

à la place de celui qui existe déjà
en bas du module 1

Cela fonctionne mais que sur les premières lignes, est ce à cause du code sur le module 2 qui fait une sélection jusqu'à la ligne 22 par la macro