problème Copy After:=Sheets(Sheets.Count)

[DanielC]

Bonsoir,
J'ai écrit une macro VBA en excel 2003 qui lit une base pour créer d'autre classeurs dans lesquels il y autant d'onglets que de comptes rencontrés dans la base.
Les comptes sont d'un nombre variable, de 1 à 50.
Dans le classeur créé j'ai un modèle que je recopie et le rename avec le N° de compte que je récupère dans la base avec le code suivant :
Sheets("modèle").Select
Sheets("modèle").Copy After:=Sheets(Sheets.Count)
Sheets("modèle (2)").Select
Sheets("modèle (2)").Name = compte
Cela fonctionne parfaitement jusqu'au 22 ème compte puis la mlacro se plante.Avec le motif suivant : "la méthode Copy de la classe Worsheet à échoué".
Quelqu'un aurait t'il une solution à me proposer ?

Merci d'avance

Daniel C

 

[kiki29]

Re : problème Copy After:=Sheets(Sheets.Count)

Salut, voir Copying worksheet programmatically causes run-time error 1004 in Excel et solution proposée

 

[ROGER2327]

Re : problème Copy After:=Sheets(Sheets.Count)

Bonsoir

Voir La copie d'une feuille de calcul par programmation provoque l'erreur d'exécution 1004 dans Excel. Sur un site francophone, c'est plus convenable.​

ROGER2327

Premier Vendémiaire CCXVIII
Bonne année !​

 

[DanielC]

Re : problème Copy After:=Sheets(Sheets.Count)

Merci à tous les deux.
J'étais sur le lien français indiqué par Roger2327. (Notice de microsoft).
J'ai utilisé la dernière solution proposé par eux, a savoir :
ne pas faire de "Sheets("modèle").Copy After:=Sheets(Sheets.Count)" en utilisant une feuille du classeur. Mais de créer le modèle en tant que modèle (fichier xlt) ne contenant que le modèle en question.
Puis dans la macro d'insérer ce modèle autant de fois que nécessaire. (commande : Sheets.Add Type:=chemin\nomfichier )
Cela marche très bien.
Il faut juste que je trouve encore la commande qui m'insère les feuilles l'une derrière l'autre et pas l'inverse.
merci à vous
Bonsoir
Daniel C

 

[kiki29]

Re : problème Copy After:=Sheets(Sheets.Count)

Salut, via l'aide en ligne sur Add rubrique exemples Sheets et WorkSheets
avec le choix de Before ou After suivant l'emplacement désiré

     ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)

 

[DanielC]

Re : problème Copy After:=Sheets(Sheets.Count)

Merci kiki29
ca marche effectivement comme çà.
Et pour indiquer le nom d'un fichier on peut écrire la commande sous la forme :
Sheets.Add after:=Worksheets(Worksheets.Count), Type:=chemin & "\" & nommodèle
avec chemin et nommodèle qui sont des variables.
A+
Daniel