Scipt VBA X lignes en VBA Fermé

Question

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...



Configuration: Mac OS X (10.9) / Firefox 29.0

eriiic · Answer

Bonjour,

Tu t'es relu et tu arrives à te comprendre ?
eric

Maurice · Answer

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

Scipt VBA X lignes en VBA

2 réponses

Discussions similaires

Newsletters