Code VBA dupliquer onglets - réduire les délais

Bonjour,
A partir d'un fichier mère xlsm pas très lourd 150 Ko, je duplique au max 7 onglets pour créer un nouveau fichier et lorsque la macro exécute ce passage elle mouline pendant environ 15 secondes.. :?

Ci-dessous mon code, avez vous des suggestions qui pourrait réduire ce délai. (j'utilise déjà "Application.ScreenUpdating = False")

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'Duplique les onglets pour créer le nouveau fichier Sheets(Array("Commands", "List", "Master Checklist", "Cash Mgmt", "Model Portfolio", _ "Broker Commissions", "DTL - STAR", "PfC Targets")).Select Sheets(Array("Commands", "List", "Master Checklist", "Cash Mgmt", "Model Portfolio", _ "Broker Commissions", "DTL - STAR", "PfC Targets")).Copy   Chemin_Sauvegarde = "\\Blabla\Blabla2\blabla3\Fund\" ChDir Chemin_Sauvegarde     ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename(Chemin_Sauvegarde & Nom_Sauvegarde, fileFilter:="Excel Files (*.xls), *.xls")

---

Merci par avance pour votre aide ;)

Bonjour,
Je ne sais pas si cela peut aider mais déjà, vous pouvez supprimer la première ligne d'instruction avec la méthode Select qui ne sert strictement à rien si ce n'est de ralentir l'exécution de la procédure.

Bonjour,

Peut-être en dupliquant le classeur puis supprimer les feuilles superflues.

Merci pour vos deux propositions, la suppression de la ligne select a en effet fait gagner quelques secondes (va savoir pourquoi..), la duplication du classeur devrait être encore plus rapide.

Merci pour votre aide :resolu:

Bonjour,

Citation:

---

va savoir pourquoi.

---

Tout simplement parce-que l'action de sélectionner ou d'activer une ou plusieurs feuilles prend un certain temps.
On le répète régulièrement dans nos réponses, sauf cas particuliers, la sélection d'objets tels que Workbook, Worksheet, Range, etc. est parfaitement inutile et ralentit la procédure.