Discussion :

[xbb12]

bonjour à toutes et tous,

je cherche à copier des onglets d'un classeur vers un nouveau classeur.
La ligne de code :
Sheets(Array("Onglet2", "Onglet1")).copy
fait exactement ce que je souhaite à condition que le nom des onglets ne change pas...

Dans mon cas, j'ai déclaré la variable suivante :

Dim sNomsDesOnglets As String

et j'enregistre le nom des onglets à l'aide d'une boucle dans cette variable du coup ma variable sNomDesOnglets = "Onglet1, Onglet2"

Mon problème apparait donc au moment où le programme arrive sur la ligne de code suivante :
sheets(Array(sNomsDesOnglets)).copy

Le message d'erreur est le suivant :
Erreur d'execution '9' :
L'indice n'appartient pas à la sélection.

si je comprends il ne reconnait pas le nom de mes onglets, mais comment corriger ce problème...

Un grand MERCI par avancepour votre aide précieuse.
Cordialement.

[Fvandermeulen]

Salut,

A moins que le nombre de feuille à copier soit toujours identique je ne vois pas trop comment utiliser la Array, car comme tu l'as constaté on ne peut pas intégrer les virgules dans la concaténation.

A ta place je ferais le .Copy dans la boucle, ça va ralonger un peu le temps d'exécution mais au moins ca passe.

Eventuellement un Select Case mais ça suppose de connaître le min et max de feuille à copier

A+

[xbb12]

Ok merci pour l'info, je contourne donc le problème en copiant l'onglet dans ma boucle...

Encore merci !