Problème comptabilité 2003/2010 + Optimisation de code

Bonjour, je développe sous excel 2003 une macro opérant des tout un tas de chose sur des fichiers textes.
Je les importe donc sur excel, jusque là, pas de problème.

Cependant, migration futur sous 2010 qui s'annonce, je rencontre des difficultés. Certains paramètres ne semble plus être pris en compte sous 2010, surement des variable à changer mais je n'y arrive pas.

Voici le code:

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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

Public Sub ChargementFichiers()   Dim monClasseur As String Dim TempClasseur As String monClasseur = ActiveWorkbook.Name   'Copie des tableaux de reference dans le classeur Workbooks.OpenText Filename:= _ TraitImpPp.Range("ImportEs").Value _ , Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _ Array(Array(0, 1), Array(3, 1), Array(12, 1), Array(25, 1)), TrailingMinusNumbers:= _ True TempClasseur = ActiveWorkbook.Name [surligner]Sheets("es").Copy Before:=Workbooks("ControleImputationAvantPaye.xls").Sheets(2)[/surligner] Workbooks(TempClasseur).Close Rows("1:1").Insert Shift:=xlDown Range("A1") = "Societe" Range("B1") = "Matricule" Range("C1") = "Date de début" Range("D1") = "Date de fin"   Workbooks.OpenText Filename:= _ TraitImpPp.Range("Import4k").Value _ , Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _ Array(Array(0, 1), Array(9, 1), Array(52, 1), Array(82, 1), Array(93, 1), Array(113, 1), _ Array(131, 1), Array(141, 1), Array(145, 1)), TrailingMinusNumbers:=True TempClasseur = ActiveWorkbook.Name [surligner]Sheets("4k").Copy Before:=Workbooks("ControleImputationAvantPaye.xls").Sheets(3)[/surligner] Workbooks(TempClasseur).Close Rows("1:1").Insert Shift:=xlDown Range("A1") = "Matricule" Range("B1") = "Nom" Range("C1") = "Prenom" Range("D1") = "Lib1" Range("E1") = "Lib2" Range("F1") = "Date de début" Range("G1") = "Date de fin" Range("H1") = "Calc"   Workbooks.OpenText Filename:= _ TraitImpPp.Range("ImportVk").Value _ , Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _ Array(Array(0, 1), Array(9, 1), Array(52, 1), Array(82, 1), Array(87, 1), Array(104, 1), _ Array(123, 1), Array(146, 1), Array(156, 1), Array(160, 1)), TrailingMinusNumbers:= _ True TempClasseur = ActiveWorkbook.Name [surligner]Sheets("vk").Copy Before:=Workbooks("ControleImputationAvantPaye.xls").Sheets(4)[/surligner] .... ... End Sub

---

Sous 2010 ça m'indique comme erreur que mon classeur temporaire est trop grand pour être déplacé, et d'autres fois que l'indice n'appartient pas à la sélection ... Alors que ça marche parfaitement sous 2003.

Deuxième soucis, ma macro mets plus de 8 minutes à s'éxecuter, ce qui est du à un test que je fais sur une des colonnes de mon fichier comportant plus de 45.000 lignes, comparaison et addition de valeurs par rapport à une autre: =SI(SOMME.SI(A:A;A2;I:I)=100;"";"ano") ). Je dois vérifir que pour un id connu, la somme de ses itération en colonne I soit 100, sinon c'est une anomalie.

Merci de votre aide !

Cordialement, arkhang.

Bonjour,

Je ne suis pas absolument certain puisque je ne connais pas tes fichiers, mais je pense que c'est dû au nombre de lignes différent entre les versions xls (65536) et xlsx ou xlsm (1048576)
Comme tu copies l'onglet d'un fichier xls dans un xlsm, je présume, le nombre de lignes n'est pas compatible...

Pour ta formule, ça peut dépendre comment tu l'inscris (?)

Bonjour,

Le fichier qui plante comporte environ 40 000 lignes, testant ma macro sous 2010, mon classeur de base est en xls, mais celui de 40k que j'ouvre via ma macro s'ouvre en xlsx ... Pourtant ne faisant pas plus de 65k de lignes, pourquoi me mettre ce type d'erreur ?

Bonjour,

un code bien conçu sous 2003 passe sans souci dans les versions ultérieures à plus de 90% …

Un message d'erreur n'apporte pas grand chose sans savoir quelle ligne déclenche cette erreur !

Donc suivre le code en mode pas à pas via la touche F8 et/ou en plaçant un point d'arrêt
tout en vérifiant le contenu des variables soit directement en les pointant dans le code
soit via la fenêtre des Variables locales …

Bonjour Marc,

j'avais surligner dans le code énoncé plus tôt, mais il semblerait que ça ne fonctionne pas.

Voici où ça plante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Public Sub ChargementFichiers()   ... ... Sheets("es").Copy Before:=Workbooks("ControleImputationAvantPaye.xls").Sheets(2) ... ... .... Sheets("4k").Copy Before:=Workbooks("ControleImputationAvantPaye.xls").Sheets(3) ... ... ... Sheets("vk").Copy Before:=Workbooks("ControleImputationAvantPaye.xls").Sheets(4) .... ... End Sub

---

C'est le copiage de la nouvelle feuille ouverte vers le classeur source qui semble planter

Commencer une ligne par « Sheets("es"). » veut dire que cette feuille (et mieux vaut utiliser Worksheets …)
se trouve dans le classeur actif et, si ce n'est pas le cas, la feuille n'est donc pas trouvée, d'où l'erreur !

Donc mieux vaut préciser le classeur avant la feuille …

Justement, c'est le fichier texte que j'ouvre et formate, il s'agit donc bien de la feuilles active, sous 2003 je ne rencontre aucun problème, et je copie donc cette feuilles active dans ma classeur source, et c'est là qu'une erreur me parlant d'incompatibilité de taille de la feuille se montre alors que, une fois encore je me répète, ça marche parfaitement sous 2003

Je travaille principalement avec les versions 2003 et 2007.
Souvent depuis une version 2003 et à 99% je n'ai aucun souci vers les versions plus récentes …

Respecter la hiérarchie d'Excel (application, classeur, feuille, méthode ou propriété, …) est source de tranquillité !

Sinon reste à suivre la progression du code en mode pas à pas pour en comprendre la cause …

Je reviens sur ce que je disais...
Il faudrait que tu expliques de quel type de fichier tu copies ta feuille et dans quel type de fichier tu colles cette feuille.
Si la feuille d'origine est en xlsx et que tu la copies dans un fichier xls, ça ne fonctionnera pas puisque trop de lignes pour un xls.

Il te faudrait alors utiliser une autre méthode que la copie d'onglet.
Crée une nouvelle feuille et copie les données seulement.

Exact ‼

Et tu l'avais pourtant déjà notifié, tellement évident que je suis passé à côté
croyant que le demandeur l'avait pourtant pris en compte !

C'est tellement plus facile avec le classeur sous les yeux …

Et pour ce qui est des paramètres, il arrive que 2007 en ait ajouté de nouveaux, mais pas l'inverse.
Donc, passer de 2003 à 2007 ou 2010 ne devrait pas être un problème. L'inverse pourrait ne plus fonctionner à cause de ces paramètres non reconnus par 2003 ou encore à cause de nouvelles fonctions comme SOMME.SI.ENS et autres...

Merci !
C'est résolu ... En fait, je pense que ça devait juste être un bug d'Excel, ce matin désespéré, j'ai retenté une dernière fois le coup, et ça marchait ... Je n'ai pourtant rien modifié -__-.

Pour répondre à vos question, ayant établit le classeur/macro sous 2003, c'est un xls, mais quand je le lance sous 2010, le traitement qui ouvre un nouveau classeur, est un xlsx, ce qui est logique.

Bon, problème résolu !