Scipt VBA X lignes en VBA
ferrandjames
-
Maurice -
Maurice -
Bonjour, j'ai un fichier excel avec a peu près 5000 lignes sur une une seul colone, mais j'aimerai pouvoir exporter en CSV tout les 150 lignes ma colone, jusqu'au 5000 et avec un nom different, j'ai essayé plein decript sur le net, mais rien ne marche !! ssssnnniiifff...
Pouvez vous m'aider, ca m'eviterer de me taper une trentaine de manip longue et lobotomisante !!
merci d'avance... de tout coeur...
Pouvez vous m'aider, ca m'eviterer de me taper une trentaine de manip longue et lobotomisante !!
merci d'avance... de tout coeur...
A voir également:
- Scipt VBA X lignes en VBA
- Site x - Guide
- Sites X : Pornhub, YouPorn et Redtube sont de nouveau accessibles en France - Guide
- Partager photos en ligne - Guide
- Photoscape x - Télécharger - Retouche d'image
- Direct x - Télécharger - Pilotes & Matériel
2 réponses
Bonjour
Voila une Idée de Macro
Sub MultiCsv()
Application.ScreenUpdating = False
Chemin = ActiveWorkbook.Path & Application.PathSeparator
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Saut = 150
M = Int(Nlig / Saut) + 1
D = 2
For L = 1 To M
TT = 150 * L
Sep = ";"
Open Chemin & "Fichier" & L & ".csv" For Output As #1
Print #1, "Titre de la colonne" & Sep
For T = D To TT
Tempo = ""
Tempo = Tempo & CStr(Cells(T, 1).Value) & Sep
Print #1, Tempo
If T > Nlig Then Exit For
Next
Close
D = D + Saut
Next
Application.ScreenUpdating = True
MsgBox "Terminer"
End Sub
A+
Maurice
Voila une Idée de Macro
Sub MultiCsv()
Application.ScreenUpdating = False
Chemin = ActiveWorkbook.Path & Application.PathSeparator
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Saut = 150
M = Int(Nlig / Saut) + 1
D = 2
For L = 1 To M
TT = 150 * L
Sep = ";"
Open Chemin & "Fichier" & L & ".csv" For Output As #1
Print #1, "Titre de la colonne" & Sep
For T = D To TT
Tempo = ""
Tempo = Tempo & CStr(Cells(T, 1).Value) & Sep
Print #1, Tempo
If T > Nlig Then Exit For
Next
Close
D = D + Saut
Next
Application.ScreenUpdating = True
MsgBox "Terminer"
End Sub
A+
Maurice
