Discussion :

[asprogramer]

Bonjour à toutes et à tous. Je travail dans une boite qui veut migrer des données d'un logiciel à un autre (changement de prestataire). L'ancien prestataire m'a transmis des fichiers csv de 1046105 lignes (j'arrive à le lire grâce à Excel 2007). En fait pour faciliter l'intégration (l'importation) dans le nouveau logiciel j'aimerais divisier ce fichiers en plusieurs de 40000 lignes par exemples. Ma question est la suivante je ne sais pas comment m'y prendre (raccourci clavier ou autre). Je vous remercie par avance pour tous les conseils que vous me communiquerez.

[Jean-Philippe André]

salut,

si tu utilises Excel 2007, tu as l'ensemble des lignes visibles.

Un bout de code VBA fera l'affaire a mon avis

[asprogramer]

Je connais pas trop vba pourriez vous me communiquez un fichier avec le code à réaliser. Je vous en remercie par avance.

[Tydher]

Dans un module tu créer un code VBA qui te copie une plage de cellule, le tout dans une boucle qui teste si la cellule suivante contient des informations

Ca serait quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
While Cells(i,1) <> ""
'Selection de la plage de colonne
Range(Cells(i, 1), Cells(i+4000, 10)).Select
'Copie de la selection
    Selection.Copy
'Ouverture d'un fichier préalablement créér
    Set classeurDest = Application.Workbooks.Open(Application.GetOpenFilename, , True)
'Selection de la feuille 1    
classeurDest.Sheets("Feuil1").Select
'Collage de la plage de cellule
    ActiveSheet.Paste
i = i+4000

A adapter selon le nombre de colonne que tu as et la structure du fichier Excel

[asprogramer]

merci je vais tester ça.