Scipt VBA X lignes en VBA
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...
2 réponses
-
ContributeurBonjour,
Tu t'es relu et tu arrives à te comprendre ?
eric
-
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
