1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Sub testaaaaaa()
Dim chemin As String, memo As Object, plage As Range, ligne As String, derlig As Long, dercol As Long, T As String, X, fichier As String
chemin = ThisWorkbook.Path & "\fichiersdecoupés"
If Dir(chemin, vbDirectory) = "" Then MkDir (chemin)
Set memo = CreateObject("htmlfile")
With ActiveSheet
Set plage = ActiveSheet.UsedRange
ligne = Join(WorksheetFunction.Index(plage.Value, 1, 0), ";")
derlig = ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
dercol = plage.Column + plage.Columns.Count - 1
For i = 2 To derlig Step 798
a = a + 1
clearall = memo.parentwindow.clipboardData.setData("Text", "") 'on vide le clipboard au cas ou il y aurait quelque chose
ind2 = IIf(i + 798 < derlig, i + 798, derlig)
.Range("A" & i, .Cells(ind2, dercol)).Copy
T = Replace(Replace(memo.parentwindow.clipboardData.GetData("TEXT"), vbTab, ";"), vbCrLf, ";" & vbCrLf)
fichier = chemin & "\fichier " & a & ".csv"
X = FreeFile
Open fichier For Output As #X
Print #X, ligne & vbCrLf & T
Close #X
Next
End With
Application.CutCopyMode = False
End Sub |
Partager