Print #1 et plus de 256 lignes
Bonjour,
j'utilise un script afin de créer un fichier txt avec sepateur de ce que je veux
et je vien de m'apercevoir que l'on ne peut pas depasser les 256 lignes
pouvez vous me conseiller
merci d'avance
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Sub separat()
Dim i, j, DernièreLigne, DernièreColonne, f As Worksheet
Dim path As String
Dim debut As String
chemin = ActiveWorkbook.path
path = chemin & "\" & "import.txt"
Set f = ActiveSheet
DerniereLigne = f.Range("A1").SpecialCells(xlCellTypeLastCell).Row
DerniereColonne = f.Range("A1").SpecialCells(xlCellTypeLastCell).Column
Open path For Output As #1
Print #1, debut
For i = 1 To 110
For j = 1 To 1980
Print #1, f.Cells(i, j).Formula + ",";
'pour séparateur ";" tu remplaces si ton séparateur est une virgule
Next j
Print #1, f.Cells(i, j + 1).Formula
Next i
Close #1
End Sub |
Il remonte un erreur 1004 a la ligne 257.
Crdt
