Discussion :

[VBA1987]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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.

[Patrice740]

Bonjour,

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

[VBA1987]

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

[Philippe Tulliez]

Bonjour,

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.