Pb de copie de feuille

[thomasly@neuf.fr]

Bonsoir,


Je souhaite copier une feuille en x feuilles par le code
Dim i
For i = 1 To 100
Sheets("Feuil1").Copy after:=ActiveSheet
ActiveSheet.Name = "SD_" & i
Next i


Mais au bout d'un certain nombre de copies, j'ai une erreur :

Un problème d'exécution '1004'
La méthode Copy de la classe Worksheet a échoué

Suivant la feuille à copier, l'erreur se produit à 27ème copie, 33ème copie ...


Sachant que si je teste ce code sur un classeur vierge par ex. je peut copier jusq'à 300 copies sans erreur.


Quelqu'un peut expliquer ?



Merci d'avance

 

[Papou-net]

Re : Pb de copie de feuille

Bonsoir Thomas,

J'ai déjà constaté également ce phénomène : il semble se produire lorsque l'on fait des essais successifs, avec suppression des feuilles entre chaque test. Il suffit alors d'enregistrer et fermer le fichier, et plus de problème à la réouverture. Je pense que c'est un problème de gestion de mémoire d'excel, mais je ne saurais l'expliquer plus clairement.

Cordialement.

 

[thomasly@neuf.fr]

Re : Pb de copie de feuille

Bonsoir Papou-net,

Effectivement, j'ai remarqué qu'il suffit de fermer le classeur et réouvrir. Ce pendant, je vois mal prévoir un message pour avertir l'utilisateur qu'il faut fermer + réouvrir pour continuer. ça fait un peu du bricolage !


ça me conforte un peu que ce phénomène ne semble pas lié à mon pc ou à mon code.

Or je dois absolument copier, je cherche donc toujours une solution pour ce problème.


Merci pour d'autres idées.

 

[thomasly@neuf.fr]

Re : Pb de copie de feuille

Bonjour,

J'ai fini par trouver une solution, si ça peut intéresser quelqu'un :

En cherchant sur le net, l'explication de l'erreur de copie est :
VBA EXCEL - BUG : Copie feuille [Résolu]

Pour éviter l'erreur, j'ai adopté :

. Ajouter un nouveau classeur
. Copie la feuille modèle dans le nouveau classeur
. Exporter les modules utilisés par la feuille modèle ( Menu, barre commandes ...)
. Importer les modules dans le nouveau classeur
( J'ai trouvé un code pour copier directement un module d'un classeur vers un autre, mais j'ai pas réusssi à faire marcher pour l'instant. Si quelqu'un a un code qui marche bien, je suis preneur )
. Fermer et Enregistrer le nouveau classeur
. Importer la feuille modèle depuis le nouveau classeur


Après teste, ça marche bien


Merci

@+