Discussion :

[Sofoulaki]

Bonjour,

J'ai deux problèmes sr ce même sujet.
1) J'ai developpé une macro dans un classeur qui permet de copier une feuille template dans ce même classeur un certain nombre de fois. Cependant, au bout d'un certain nombre de feuilles copiés dans ce même classeur j'ai le message suivant "la methode copy de la classe worksheet a echoué". Si je ferme Excel et que je relance la macro, elle termine de copier les feuilles manquantes.

2) A la fin de mon programme, je crée un classeur dans lequel je copie un certain nombre de feuilles. ET là j'ai le même problème. J'ai essayé d'ouvrir ce classeur dans une autre application dans le but de pouvoir faire un xlapp=nothing à la fin du programme, mais Excel n'arrive pas à copier les feuilles dans une autre appli.

Etant donné qu'àchaque fois pour que le programme s'achève, il me suffit de relancer Excel, et d'exécuter de nouveau la macro, je me suis dit qu'il y avait une histoire de mémoire là-dessous, mais je n'y connais rien...


Pouvez-vous m'aider?


Merci de toute aide sur le sujet.

Sofoulaki

[JackOuYA]

bonsoir,


tu utilise quel code pour ta copie ? l'erreur apparaît aprés la copie de combien de feuilles?

[Sofoulaki]

Pour la copie de la feuille template dans le même classeur j'utilise :

Code :

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

1
2
Worksheets(strSpecModel).Copy after:=Worksheets(Sheets.Count)
Worksheets(Sheets.Count).Name = strNom

ça plante au bout de 15 feuilles

Pour la copie dans le nouveau classeur, j'utilise :

Code :

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

1
2
3
4
Set OriginBook = ThisWorkbook
Workbooks.Add
Set DestBook = ActiveWorkbook        
DestBook.SaveAs (strFullName)

Pour chaque feuille OriginSpec, voilà en gros ce que je fais

Code :

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

1
2
3
4
5
OriginWbk.Worksheets(OriginSpec).Copy_  after:=DestWbk.SheetsDestWbk.Sheets.Count)
DestWbk.Sheets(OriginSpec).Activate
OriginWbk.Worksheets(OriginSpec).Cells.Copy
DestWbk.Worksheets(OriginSpec).Range("A1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

Pour 15 feuilles ça marche, si je refait la même manip sans fermer excel puis relancer Excel, ça plante au bout de 10 feuilles, et si je relance ça plante à la premiere feuille. Que puis-je faire? sacanht que normalement en phase de test je dois monter à 70-80 feuilles...

Merci de toute aide

[decondelite]

Code :

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

1
2
Worksheets(strSpecModel).Copy after:=Worksheets(Sheets.Count)
Worksheets(Sheets.Count).Name = strNom

A mon avis, ce code peut planter si tu as des feuilles de graphiques: Sheets.Count renvoie le nombre total de feuilles, graphiques compris.
Or, Worksheets est la collection des feuilels de calcul uniquement: si tu lui indique un index supérieur à son nombre d'éléements, ta méthode Copy a toutes les chances de planter.

Cela t'a-t-il aidé?

Pour ton deuxième problème je verrai après: un bug à la fois, c'est ma devise!

[Sofoulaki]

Bonjour,

Tout d'abord merci de ton aide.
J'ai remplacé tous mes "Sheets" par "Worksheets", mais cela ne change rien (je n'ai que des feuilles de calcul dans mon classeur).

Je pense vraiment qu'il s'agit d'un problème de "mémoire" car il suffit que je relance Excel pour que ça fonctionne.

Toutes les idées sont les bienvenues

Sofoulaki

[AlainTech]

Sauve ton fichier toute les 10 feuilles.
Ca devrait aider.