Discussion :

[iriben]

Bonjour,

J'ai écrit une fonction ChargeDatas (ci-dessous) qui doit charger différents type de fichiers "à plat" dans différents fichier/onglets/cellules. Et qui me retourne le n° de la dernière ligne lue car je m'en sert plus tard pour la mise en forme.
Lors de l'éxécution de cette fonction, je n'ai aucun pb sur un petit fichier (moins de 65536 lignes), mais sur un gros fichier (115000 lignes), j'ai l'erreur "1004 : Application-defined or object-defined error" dans ma fonction. Et bien sûr le pb survient lors du traitement de la 65536ème ligne.... comme par hasard.
J'ai pourtant tout défini en Long, mais ça ne veut pas passer. Et à force de chercher j'ai les yeux qui se croisent...
Si quelqu'un veut bien m'aider.
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
24
25
26
27
Function ChargeDatas(Repert as String, NomFic as String, NomOngl as String, LigDebData as Long, ColMax as Long) As Long
 
    Dim LILIG As Long
    Dim LICOL As Long
 
    On Error GoTo Err_Execute
    ChargeDatas = -1
    Application.CutCopyMode = False
    Workbooks.OpenText Filename:=Repert & NomFic, _
            Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= xlNone, ConsecutiveDelimiter:=False, _
            Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, DecimalSeparator:=",", TrailingMinusNumbers:=True
    LILIG = 0
    If ColMax = 0 Then ColMax = 255
    Do While Not IsEmpty(Cells(LILIG + 1, 1))
        For LICOL = 1 To ColMax
            Workbooks(NomXls).Sheets(NomOngl).Cells(LILIG + LigDebData, LICOL) = Cells(LILIG + 1, LICOL)
        Next
        LILIG = LILIG + 1
    Loop
    Workbooks(NomFic).Close SaveChanges:=False
    ChargeDatas = LILIG
    Exit Function
 
Err_Execute:
    Call ModuleCommun.WriLog("A", "===> Erreur Chargement données : " & Err.Number & " : " & Err.Description)
 
End Function

[Nico Chg]

Bonjour

N'hésite pas a Utiliser les balises désigné par # pour poster du code, ça ne le rend que plus lisible

Essaie de déclarer en Single pour voir ?

[iriben]

Désolé pour les balises, c'est la 1ère fois que je poste. D'ailleurs y-a-til un endroit où l'utilisation de ces balises est expliquée ?

Sinon, j'ai essayé avec Single au lieu de Long, et j'ai le même message d'erreur à la même ligne

Ben.

[Nico Chg]

Et bien, je pense que tu peux editer ton premier post comme il suit :
Ecris [CODE ] devant le début de ton code et [/CODE ] après la dernière ligne de ton code (En enlevant les espaces que j'ai mis avant ])

Ensuite, et bien mes compétences sont assez limités, donc je ne saurais dire d'ou vient l'erreur.

Je vois que tu fais du traitement Ligne par Ligne sur un/des classeurs,

Code :

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

1
2
3
For LICOL = 1 To ColMax
Workbooks(NomXls).Sheets(NomOngl).Cells(LILIG + LigDebData, LICOL) = Cells(LILIG + 1, LICOL)
Next

Je ne saurais trop de conseiller de passer par un tableau, tu va gagner énormément en temps d’exécution. Et tu vas peut être même contourner l'erreur.
Pour te renseigner, tu peux trouver un superbe tutoriel ici

Sinon, et bien je pense que nous pouvons attendre qu'un membre chevronné vienne faire un tour sur ce post

[illight]

Essaye de voir ici :

http://silkyroad.developpez.com/VBA/LesVariables/#LII-D

Tu trouveras peut-être un élément de réponse

Je n'ai pas l'impression que ça vienne des variables car un long peut aller jusqu'à 2 147 483 647 (voir lien ci-dessus)

Etant donné que tu utilises Excel 2010 ça devrait marcher.


Par contre, il y a des variables dont on ne connait pas la valeur :

Code :

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

Workbooks(NomXls).Sheets(NomOngl).Cells(LILIG + LigDebData, LICOL) = Cells(LILIG + 1, LICOL)

Que vaut LILIG quand ça plante ?
Que vaut LigDebData ? A priori c'est une variable de ta fonction, mais on ne sait pas à quoi ça correspond...
Que vaut LICOL ?

[Marc-L]

Bonjour, bonjour !

Pour les balises de code, c'est pourtant expliqué dans les règles de ce forum !
Et rien qu'en regardant les icônes lors de la rédaction du post …

Serait-ce trop demander de préciser la ligne en erreur ou faudrait-il recourir aux services d'une voyante ?!

[iriben]

Bonjour illight,

Lorsque cela plante, LILIG vaut 65536, désolé de ne pas avoir été plus clair dans mon 1er post.
Ensuite j'appelle cette fonction de cette façon (LiRet étant elle aussi définie en Long) :

Code :

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

1
2
 
LiRet = ChargeDatas(CheminTxt, NomTxt & ".INDICES.txt", "DATA_BRUTES", 2, 22)

Donc LigDebData vaut 2 et LICOL va de 1 à 22


Bonjour Marc-L,

Tout d'abord, merci pour cet accueil chaleureux...
Pour les balises, je me répète mais c'est la 1ere fois que je poste sur un forum quelqu'il soit, donc désolé encore de ne pas avoir eu un reflexe qui parait évident chez vous. Avez-vous vu que j'ai réussi à utiliser la balise CODE lors de mon précédent poste ? En progrès, yesssss.
Pour la ligne de code qui plante, je ne sais pas laquelle c'est, car Excel me dit juste Erreur 1004. C'est bien pour cela que je fais appel à ce forum qui contient j'en suis sûr des experts confirmé qui n'auront pas besoin de voyante pour m'aider.

[parmi]

Code :

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

Workbooks(NomXls).Sheets(NomOngl).Cells(LILIG + LigDebData, LICOL) = Cells(LILIG + 1, LICOL)

J'imagine que tu travailles avec des fichiers xls (mais je peux me tromper...)
Si LILIG = 65536 et que tu additionnes LigDebData, ça doit dépasser le nombre total de lignes, non ?

[iriben]

Bonjour parmi,
Je travaille avec des fichiers XLSM (Excel 2010 sous Windows 7) car j'ai justement besoin de traiter des gros fichiers de données (115000 lignes).
Donc la limite des 65536 lignes doit sauter.

[parmi]

Workbooks(NomXls) est un fichier xlsm ?

Plutôt étonnant de voir que ça plante toujours à 65536 lignes qui est justement le nombre de lignes d'un xls...

[iriben]

Bonjour parmi,
NomXLs est une variable paramètre qui contient bien le nom d'un classeur Excel avec l'extension ".xlsm"
Et oui, cela est très étonnant que cela plante à cette 65536ème ligne... D'autant plus que j'ai porté cette macro Excel de 2003 à 2010 pour justement pouvoir gérer des gros fichiers de plus de 65536 lignes. C'est à n'y rien comprendre. J'en perds mon latin, heu mon VBA Excel

[Marc-L]

D'où l'explication de la limite de 65 536 lignes de la version 2003 !

Bon ben c'est simple :
création d'un nouveau classeur à partir de la version 2010 en .xlsb ou .xlsm via Enregistrer sous …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[illight]

Si tu fais un simple

Code :

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

cells(65537,1).value

Est-ce que ça te renvoie aussi la même erreur ?

D'ailleurs, c'est bizarre car normalement l'erreur 1004 n'est pas un dépassement de capacité

[SfJ5Rpw8]

bonjour,


enlève la ligne :

Code :

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

On Error GoTo Err_Execute

et dis nous sur qu'elle ligne à lieu l'erreur...

[iriben]

Bonjour Marc-L,

Effectivement, j'avais bien créer mon fichier XLSM en partant de mon fichier XLS 2003 puis j'ai fais un Enregistrer sous. Ce qui est étrange c'est qu'en faisant comme cela j'avais bien la limite de 1 048 576 lignes dnas chaque onglet, mais bon.
Du coup, j'ai créé un nouveau classeur XLSM 2010, puis j'ai récupéré tous mes onglets et macros par copier/coller. J'ai relancé ma macro, mais hélas j'ai exactement la même erreur sur la même ligne

[SfJ5Rpw8]

...mais hélas j'ai exactement la même erreur sur la même ligne

j'ai beau relire je ne vois pas ou tu indique la ligne de code qui est provoque ton message d'erreur ...

[Marc-L]

iriben, ne pas repartir de l'original mais bien d'un classeur vierge ‼

[iriben]

Quand je parle de cette ligne, je ne parle pas de la ligne de code, mais de la 65536ème ligne traitée dans mon fichier source.

J'ai lancé un test en enlevant le

Code :

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

On Error GoTo Err_Execute

et j'ai eu l'erreur "Run-time error '9': Subscript out of range" et quand je clique sur le bouton "Debugg", la macro pointe sur une ligne de code extérieure à ma fonction ChargeDatas.
Par contre, étant en mode debugg, j'ai pu aller voir la tête de mon onglet qui doit recevoir les données, et il n'y a que 65536 lignes dans cet onglet !!!!! En regardant le nom de mon fichier Excel, il est bien en .XLSM mais avec la mention [Mode Compatibilité] !!!! Cela doit venir de là.
En fait, j'ai une procédure de gestion de report qui utilises des modèles Excel, (en l'occurence un modèlme XLSM) et je fais un SaveAs sous un autre nom. J'ai dû mal écrire cette procédure SaveAs pour que mon fichier final soit un XLSM 2010 :

Code :

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

ActiveWorkbook.SaveAs Filename:=NomXls, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

ActiveWorkbook étant mon modèle Excel que je viens d'ouvrir
NomXls étant une variable contenant le chemin, le nom et l'extension ".xlsm" de mon fichier final

[SfJ5Rpw8]

On en est au même point tu ne nous as toujours pas montré la ligne de code qui est la code de ton erreur !

... et quand je clique sur le bouton "Debugg", la macro pointe sur une ligne de code extérieure à ma fonction ChargeDatas....

[iriben]

Excuses moi pour cet oubli, voilà la ligne en question :

Code :

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

Workbooks(NomXls).Sheets(NomOngl).Cells(LILIG + LigDebData, LICOL) = Cells(LILIG + 1, LICOL)

mais je ne suis pas sur que cela t'aide car à ce stade Excel n'arrive pas à écrire sur la ligne 65537. A juste titre car l'onglet en question n'en possède que 65536.
J'ai d'ailleurs trouvé le pb depuis, et c'est grâce à vous tous d'ailleurs, merci à tous. En me mettant sur des pistes, j'ai trouvé la source du pb : comme vous avez pu le constater, ma procédure a été portée de 2003 vers 2010, et j'ouvre un modèle Excel qui me sert de base de travail. Et bien figurez vous que j'ai mal paramétré ma nouvelle procédure en 2010 puisque j'ouvrais toujours le modèle Excel de 2003 !!! Une erreur de débutant vous me direz, mais bon....
Encore merci à tous