Export lignes

hello à tous

tout d'abord merci pour votre forum, que j'ai trouvé grâce à Google, encore lui

alors je suis sous excel 2007, je ne connais pas les macros.

j'ai un fichier de 10083 ligne, et je dois traiter uniquement que 150 lignes dans un logiciel de gestion.

je voudrais pouvoir extraire 150 lignes par 150 lignes de mon fichier de 10083 et donc, mettre 150 lignes par fichier.

et tant à faire il faudrait que les fichiers porte un nom bien sur diffèrent, peut importe le nom, et qu'il soit dans le même dossier !

est ce possible ?

et surtout comment ?

Merci de votre aide

Christophe

Bonsoir et bienvenue,

Oui c'est possible, envoie ta feuille avec la structure réelle en supprimant

des lignes pour que çà passe sur le forum

Amicalement

Claude

hello

merci de ta réponse

mais ma feuille ne peux pas être mise en ligne

Ma feuille ne comporte qu'une seule colonne si ca peut aider !

merci

envoie quand même, 10 lignes suffit

change les données si confidentiel

re hello

en fait j'ai deux colonnes.

colonne A numéro

colonne B données

j'ai joint 1 fichier avec 10 lignes.

Merci

re,

Tu ne peux lancer la macro qu'une fois (sans supprimer les feuilles créées)

Sub PaquetsDe150()
'Macro par Claude Dubois pour "freezzz" Excel-Pratique le 22/06/10
Dim Lg%, i%, J%, sh$
Application.ScreenUpdating = False
Lg = Range("A65536").End(xlUp).Row
sh = ActiveSheet.Name
    For i = 1 To Lg Step 150
        Range(Cells(i, 1), Cells(i + 149, 2)).Copy
        Sheets.Add After:=Sheets(Sheets.Count)
            With ActiveSheet
                .Paste .Range("a1")
                .Name = "P" & J + 1
            End With
        Sheets(sh).Activate
        Application.CutCopyMode = False
        J = J + 1
    Next i
End Sub

Amicalement

Claude

Bonsoir, Claude

comme tu le dis si souvent, il faut éviter les .Select

Or, un .Activate, c'est la même chose....

ton code légèrement modifié :

Sub PaquetsDe150()
    'Macro par Claude Dubois pour "freezzz" Excel-Pratique le 22/06/10
Dim Lg%, i%, J%
Dim Sh As Worksheet
Set Sh = Sheets("Feuil1") 'A adapter
Application.ScreenUpdating = False
Lg = Range("A65536").End(xlUp).Row
With Sh
    For i = 1 To Lg Step 150
        .Range(.Cells(i, 1), .Cells(i + 149, 2)).Copy
        Sheets.Add After:=Sheets(Sheets.Count)
        With ActiveSheet
            .Paste .Range("a1")
            .Name = "P" & J + 1
        End With
        Application.CutCopyMode = False
        J = J + 1
    Next i
End With
End Sub

Amicalement

Bonjour felix,

Très juste,

Je prends toujours bonne note de tes remarques,enfin j'essaye !

Bonne journée (ou nuit chez toi)

Claude

hello

merci bcp de votre aide, cela m'a bien aidé

zetes des chefs

Si tu repasse par là, n'oublie pas la petite formalité