Discussion :

[mizou00]

bonsoir à tous

je voudrais importer un long fichier texte avec 1000 colonnes environ,
je veux qu'il soit réparti sur plusieurs feuilles !
j'ai le code suivant mais ca ne marche pas
Merci bcp pour votre aide

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 Fichier_TXT_Volumineux()
Dim Resultat, Chemin As String
Dim Lecture As Integer
Dim Compteur As Variant
Chemin = Application.GetOpenFilename
If Chemin = "" Then End
Lecture = FreeFile()
Open Chemin For Input As #Lecture
Application.ScreenUpdating = False
Compteur = 1
Do While Seek(Lecture) <= LOF(Lecture)
Line Input #Lecture, Resultat
ActiveCell.Value = Resultat
If ActiveCell.Row = 65536 Or ActiveCell.Column = 256 Then
ActiveWorkbook.Sheets.Add
Else
ActiveCell.Offset(1, 0).Select
End If
Compteur = Compteur + 1
Loop
Close
Application.ScreenUpdating = True
End Sub

[Invité]

Bonjour

j'ai le code suivant mais ca ne marche pas

C'est à dire message d'erreur ? Le résultat n'est pas celui attendu ?

Merci d'être clair dans vos explications.

Philippe

[mizou00]

oui voila ce n'est pas le résultat attendu
j'ai un fichier avec 1031 colonnes
je veux que chaque 256 colonnes soient affiché dans une feuille du même classeur
pouvez vous m'aider ?

[mayekeul]

bonjour,

d'après ce que je peux voir, ton code copie une ligne de ton fichier texte sur une cellule, la ligne suivante est copiée sur la cellule du dessous, etc...
ton code ajoute une feuille dès qu'il arrive à la ligne 65536 sur ton fichioer excel

Aussi, il y a une variable compteur dont l'utilité n'est pas claire...

il y a t-il un délimiteur de colonnes dans le fichier texte?

ce que tu dois faire, c'est d'abord découper la ligne par tranche de 256 colonnes( soit en 5 ), copier chaque partie de la ligne sur une feuille distincte. ensuite, seulement passer à la ligne suivante.

si on dépasse 65536 lignes, recréer 5 feuilles et continuer l'opération sur ces 5 feuilles, jusqu'a la fin du balayage du fichier texte.

voilà en gros ce que j'ai déduis/compris de ton probleme

si tu as des questions...

[mizou00]

oui effectivement c'est ce que je veux faire mais je suis débutant en vba
si tu peux m'aider stp ?

[mayekeul]

je peux mais il faut répondre a toutes les questions

il y a t-il un délimiteur de colonnes dans le fichier texte?

[mizou00]

Bonsoir à tous,

J'ai le code suivant pour faire des calculs dans une feuille, je veux que ma macro me fasse les calculs jusqu'à la ligne 676 dans les deux colonnes A et B, les deux equation ne sont pas fixes je les changerai par la suite

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
Sheets("Feuil1").Select
 
i = 2
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "T"
 
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Attach Failure Ratio"
 
    Do While ??? ''''''' jusqu'a la ligne 676
    Range("A&i").Select
    ActiveCell.FormulaR1C1 = _
        "=('Données(4)'!R[3]C[113]+'Données(4)'!R[3]C[115]+'Données(4)'!R[3]C[101]+'Données(4)'!R[3]C[103]+'Données(4)'!R[3]C[105]+'Données(4)'!R[3]C[107])"
 
    Range("B&i").Select
    ActiveCell.FormulaR1C1 = _
        "=('Données(4)'!R[3]C[215]+'Données(4)'!R[3]C[212]+'Données(4)'!R[3]C[225]-RC[-1])/('Données(4)'!R[3]C[215]+'Données(4)'!R[3]C[212]+'Données(4)'!R[3]C[195]+'Données(4)'!R[3]C[193])"
    i = i + 1
    Loop

NB: Le code ne marche pas

[mayekeul]

bonjour,

je n'ai pas testé les formules
mais je pense que ton problemes était la boucle

j'ai modifié le code en ce sens

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
24
Sub marchepas()
Dim I
Dim sh As Worksheet
 
'définir une référence sur la feuille
Set sh = Sheets("Feuil1")
 
'ligne de départ
I = 2
 
'attribuer des valeurs
sh.Range("A1").Value = "T"
sh.Range("B1").Value = "Attach Failure Ratio"
 
'départ de la boucle
Do Until I = 676    'I étant le numéro de ligne, on boucle jusque la 676eme
    sh.Cells(I, 1).FormulaR1C1 = _
        "=('Données(4)'!R[3]C[113]+'Données(4)'!R[3]C[115]+'Données(4)'!R[3]C[101]+'Données(4)'!R[3]C[103]+'Données(4)'!R[3]C[105]+'Données(4)'!R[3]C[107])"
    sh.Cells(I, 2).FormulaR1C1 = _
        "=('Données(4)'!R[3]C[215]+'Données(4)'!R[3]C[212]+'Données(4)'!R[3]C[225]-RC[-1])/('Données(4)'!R[3]C[215]+'Données(4)'!R[3]C[212]+'Données(4)'!R[3]C[195]+'Données(4)'!R[3]C[193])"
    I = I + 1
Loop
 
End Sub