Excel macro extraire onglet avec mise en page Résolu/Fermé

Question

Bonjour, 

J'ai récupéré une macro qui fonctionne très bien pour scinder un onglet en X fichiers en fonction d'un critère (la colonne A sur ce fichier).
http://www.cijoint.fr/cjlink.php?file=cj201008/cijtHs07NY.xls 
Il y a juste un truc pas trop gênant : je dois trier le fichier manuellement sur la colonne A avant de lancer la macro, sinon elle n'extrait pas toutes les lignes.

Ce que je voudrais demander ici, c'est s'il est possible de copier également la mise en page qui est à refaire sur chaque fichier extrait. Pouvez-vous me dire ce qu'il faut inclure dans la macro ?
Merci d'avance pour votre aide.

gbinforme · Answer

bonjour

je dois trier le fichier manuellement sur la colonne A avant de lancer la macro, sinon elle n'extrait pas toutes les lignes.

J'ai totalement détrié ton classeur, lancé la macro et rien n'a été perdu car les 7 fichiers étaient complets : la macro fait automatiquement le tri sur la colonne A.

??

 s'il est possible de copier également la mise en page 

Je suppose que tu parles de la largeur des colonnes ?

Si tu veux utiliser la largeur automatique tu peux la rajouter dans la macro, sinon il faut récupérer la largeur du classeur de base : que préféres-tu ?

gbinforme · Answer

RE bonsoir,

Je te proposes de changer cette partie de la macro pour avoir ta mise en page :

        'copier les valeurs de "DF traitée"
        .Rows(ligneDebutCopie & ":" & ligneFinCopie).Copy
        newWbk.Sheets(1).Range("A2").Activate
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        newWbk.Sheets(1).Range("A1").Select
        
        'sauver le nouveau classeur


Il me semble que cela devrait être plus correct : à toi de voir.

Sur ton fichier cela donne :

global	1319 lignes
F1	428 lignes
F2	29 lignes
F3	174 lignes
F4	455 lignes
F5	18 lignes
F6	59 lignes
F7	162 lignes
total	1325 lignes
- 6 titres	1319 lignes

Donc c'est parfaitement normal pour moi.