Déplacer des onglets dans un nouveau fichier

[Boby94]

Bonjour à tous,

Lors de l'execution d'une macro, je déplace un certain nombre d'onglet dans un nouveau fichier excel.
J'utilse une boucle simple qui est ci dessous

nb = Sheets.Count
For i = nb To 3 Step -1
Windows(appli).Activate
Sheets(i).Select
Sheets(i).Copy before:=Workbooks(save).Sheets(1)
Next i

La boucle fonctionne jusqu'à ce que i =10 (dans ce cas précis nb=44). Je ne comprend pas du tout ce qu'il se passe.
Est ce que quelqu'un pourrait m'aider?

Edit:
Bon voila, ca faisait une demi que je bloquais, et dès que je post, je trouve enfin la solution.
Enfin, très bizarre car j'ai juste quitter et réouvert mon fichier pour que ca marche (vive excel 😛)

 

[Bigfish]

Re : Déplacer des onglets dans un nouveau fichier

Salut,

nb = Sheets.Count
For i = nb To 3 Step -1
Windows(appli).Activate
Sheets(i).Select
Sheets(i).Copy before:=Workbooks(save).Sheets(1)
Next i

La boucle fonctionne jusqu'à ce que i =10 (dans ce cas précis nb=44). Je ne comprend pas du tout ce qu'il se passe.
Est ce que quelqu'un pourrait m'aider?

Quel est le message d'erreur et quelle ligne est surlignée en jaune ?

A+🙂

 

[Boby94]

Re : Déplacer des onglets dans un nouveau fichier

Le problème est résolu.
Mais pour info, c'etait une err 1004 , la fonction copy de worksheet qui ne marchait pas et la ligne soulignée était celle ci:
Sheets(i).Copy before:=Workbooks(save).Sheets(1)