scinder un fichier à chaque changement de variable + enregistrement automatique

[Sand2207]

Bonjour à toutes et tous,

Allez, un cadeau pour cet après-midi 😉

J'ai une problématique de division automatique de fichier par région et enregsitrement de chacun de ces fichiers sous un nom différent dans un répertoire cible qui serait par exemple O:\entreprise\FV

Pour essayer d'être claire, dans le fichier joint par exemple, j'aimerais spliter le fichier joint en 3 fichiers (car il y a 3 régions : Z1, Z2 et Z3)
Et que ces 3 fichiers soient enregistrés automatiquement sous les noms Help Z1, Help Z2 et Help Z3.

Mon objectif est d'envoyer aux régions leurs chiffres de ventes avec juste la vue toute France et pas les données des autres régions 🙂

J'espère avoir été claire.

Merci beaucoup

Sand

 

[mromain]

Re : scinder un fichier à chaque changement de variable + enregistrement automatique

bonjour Sand2207

voici une macro qui a l'air de fonctionner :

Sub test()
Dim curCell As Range, newWbk As Workbook, dossierSauvegarde As String

dossierSauvegarde = "E:\aMiki\XLS\test\"

With ThisWorkbook.Sheets("Sans sous-total")
    .Range(.Cells(3, 1), .Cells(3, 1).End(xlToRight).End(xlDown)).Sort key1:=.Cells(3, 1), order1:=xlAscending
    Set curCell = .Cells(3, 1)
    While curCell.Value <> vbNullString
        If curCell.Value <> curCell.Offset(-1, 0).Value Then
            Set newWbk = Application.Workbooks.Add
            newWbk.SaveAs Filename:=dossierSauvegarde & "HELP_" & curCell.Value & ".xls", FileFormat:=56
            .Range("A1").EntireRow.Copy newWbk.Sheets(1).Range("A1")
            .Range("A2").EntireRow.Copy newWbk.Sheets(1).Range("A2")
        End If
        curCell.EntireRow.Copy newWbk.Sheets(1).Range("A1").End(xlDown).Offset(1, 0)
        If curCell.Value <> curCell.Offset(1, 0).Value Then newWbk.Close True
        Set curCell = curCell.Offset(1, 0)
    Wend
End With
End Sub

a+

 

[Sand2207]

Re : scinder un fichier à chaque changement de variable + enregistrement automatique

Merci mromain pour cette réponse rapide.😎

J'ai changé le répertoire de destination et j'ai une erreur 400 qui s'affiche ...

😕

 

[mromain]

Re : scinder un fichier à chaque changement de variable + enregistrement automatique

salut Sand2207,

as-tu mis le \ à la fin du répertoire ?
dossierSauvegarde = "E:\aMiki\XLS\test\"

a+

 

[Sand2207]

Re : scinder un fichier à chaque changement de variable + enregistrement automatique

Bonjour,

Oui j'ai bien mis le "\" (Alt Gr + 8)

Merci de ton aide

 

[mromain]

Re : scinder un fichier à chaque changement de variable + enregistrement automatique

re salut,

peux-tu exécuter la macro "pas-à-pas" afin de voir quelle ligne buggue stp.
-tu te met sur la macro dans VBE et tu avance avec la touche F8-

a+

 

[Sand2207]

Re : scinder un fichier à chaque changement de variable + enregistrement automatique

J'ai "ça" quand je lance la macro

😱

 

[Sand2207]

Re : scinder un fichier à chaque changement de variable + enregistrement automatique

Olà,

C'est cool que tu sois connecté
Quand j'execute pas à pas, la dernière ligne à être surlignée en jaune est celle là
"newWbk.SaveAs Filename:=dossierSauvegarde & "HELP_" & curCell.Value & ".xls", FileFormat:=56"
et quand je fais F8, j'ai alors la fenêtre d'erreur

 

[mromain]

Re : scinder un fichier à chaque changement de variable + enregistrement automatique

re,

essaye en enlevant ", FileFormat:=56".

a+

 

[Sand2207]

Re : scinder un fichier à chaque changement de variable + enregistrement automatique

Tout roule !

Merci beaucoup, tu viens de me faire gagner un temps fou et un risque d'erreur quasi proche de zéro.

Merci, merci, merci, c'est super.

🙂🙂🙂🙂🙂🙂

Bonne fin de journée à toi & peut-être à bientôt sur le site

Sand

 

[mromain]

Re : scinder un fichier à chaque changement de variable + enregistrement automatique

re,

je ne vois rien sur ta photo...

a+

 

[Sand2207]

Re : scinder un fichier à chaque changement de variable + enregistrement automatique

Bonjour à toutes et tous,

Encore mon probleme macro ...
Le fichier a changé de tête ... et j'ai une erreur bizarroide quand je le modifie + il faut que je fasse un découpage sur un autre onglet + ajouter un onglet complet
Pfff ...

Bref, en gardant la mise en forme, il faut que je découpe ce fichier joint par région pour les onglets RO secteur et RO ABJ + insérer l'onglet RO RGCDR.

Pouvez-vous m'aider ?

Merci beaucoup 🙂

 

[Sand2207]

Re : scinder un fichier à chaque changement de variable + enregistrement automatique

🙁

Personne ne veut m'aider, j'essaie de modifier ma macro dans tous les sens et je n'y arrive pas 🙁