Discussion :

[dev_php51]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Minick]

Salut,

Tu as inverse ligne et colonne (i et j)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Print #1, f.Cells(i, j).Formula + ",";

La synthaxe de Cells est Cells(Ligne,Colonne).

[dev_php51]

merci a toi

[Minick]

Salut,

De rien.

Pense a cliquer sur