Problème Macro VBA

Version imprimable

Problème Macro VBA

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:

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.

01/03/2011, 15h21
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

Bonjour,

Si tu ne connais pas le nombre de lignes :
Code:

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é.

01/03/2011, 15h46
BAYRAL

1 pièce(s) jointe(s)

Macro VBA

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()
01/03/2011, 19h58
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é.
01/03/2011, 20h04
pgz

Bonsoir.

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

Cordialement,

PGZ