Discussion :

[BAYRAL]

Bonjour,
J'ai une macro Excel 2003 qui lit des fichiers texte et les mets en forme pour excel.
Cette macro fonctionne très bien jusqu'à 65536 lignes (maximum Excel 2003).
JE voudrais l'adapter pour pouvoir traiter + de lignes. Y a t'il une solution. CI-dessous le paragraphe de la macro 2003 qui crée le fichier Excel :

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
25
26
27
28
29
Function Fournir_Fichier_xls()
    '////////////////////////////////////////////////////////////////////////////////////////
    '// Génére le fichier EXCEL
    '////////////////////////////////////////////////////////////////////////////////////////
 
    Application.ScreenUpdating = False
 
    Dim InputData
    Dim Valeur As String
 
    Workbooks.Add
 
    'Désactivation du message d'alerte lors de la suppression de la feuille
    Application.DisplayAlerts = False
 
    ActiveWorkbook.SaveAs Filename:=NameExcel
    Application.DisplayAlerts = True
 
    'Affectation du Nom des feuilles
    Sheets("Feuil1").Activate
    Sheets("Feuil1").Select
    Sheets("Feuil1").Name = "Enregistrements Fichier CAMCOT"
 
 
    'Désactivation du message d'alerte lors de la suppression de la feuille
    Application.DisplayAlerts = False
    Worksheets("Feuil2").Delete
    Worksheets("Feuil3").Delete
    Application.DisplayAlerts = True

Merci par avance pour votre aide.

[LouiMz]

Bonjour,

Heu je crois qu'il manque du code. Il s'agit juste ici de la création et de la mise en forme des feuilles du classeur.

Cordialement

[Theze]

Bonjour,

Si tu ne connais pas le nombre de lignes :

Code :

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

1
2
3
4
5
6
7
 
Dim DerLigne As Long
 
'première ligne non vide de la colonne A de Feuil1
With Worksheets("Feuil1")
    DerLigne = .Range("A" & .Rows.Count).End(xlUp).Row
End With

Pour mettre du code, utilise les balises CODE (#)

Hervé.

[BAYRAL]

LE problème n'est pas de savoir combien de lignes le fichier texte contient car le résultat est 176000 lignes, mais de pouvoir adapter la macro pour qu'elle ne s'arrete pas au bout de 65536 lignes.
je joints à ce message la macro Excel.
Il faut prendre la partie
Function Fournir_xls()

[Theze]

Bonsoir,

A moins d'avoir mal compris mais il faudrait savoir combien de lignes font tes fichiers textes en mettant un compteur, c'est peut être eux qui limites le nombre de lignes à 65536 ?

Hervé.

[pgz]

Bonsoir.

En FAQ : Comment importer dans Excel des fichiers txt contenant plus de 65536 lignes ?

Cordialement,

PGZ