Lenteur fonctions .Copy et .ExportAsFixedFormat VBA EXCEL

Bonjour à tous, cela fait un bye, je continue à me balader sur le forum en mode underground mais je suis un peu bloqué aujourd'hui donc je voudrai avoir des avis.

je suis sur une fonction VBA qui copie une feuille EXCEL "origine" afin d'en manipuler les données par la suite, l'imprimer et la supprimer. Cela fonctionne bien et mais j'ai une boucle qui peut être amenée à effectuer une centaine de fois cette manipulation et la copie est très longue (beaucoup de shapes dans la feuille en question), et lors de cette boucle, EXCEL freeze (page blanche + Microsoft EXCEL - Ne répond pas) puis tout redevient normal après traitement.

J'ai optimisé le code avec:

Code:

---

1 2 3

Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.DisplayAlerts = False

---

La fonction de copie native à EXCEL:

Code:

---

1 2	ThisWorkbook.Sheets("RECAP").Copy After:=Worksheets("RECAP") ActiveSheet.Name = "TRAIT_RECAP"

---

Mais la lenteur ne provient pas du code VBA car je constate une lenteur identique en manuel.

Avez-vous une idée? je pensais placer la feuille "origine" à copier dans un autre classeur EXCEL et faire une copie de ce fichier (surement moins long??) puis injecter les infos en appelant le classeur EXCEL ainsi copié??

Vous avez peut-être une solution plus simple à mettre en place, mon gros problème étant le freeze "Page Blanche" du style tout à planter... je voudrai constater l'avancer du traitement avec une progressbar...

Merci pour votre aide. ;)


P.S. Précision importante: je suis sur Excel 2010 et Windows 7

Bonjour,

Quelques points avec plus de questions que de réponses:

1.

Citation:

---

mais j'ai une boucle qui peut être amenée à effectuer une centaine de fois cette manipulation et la copie est très longue (beaucoup de shapes dans la feuille en question)

---

=> est-ce-que vous avez besoin des shapes? Sinon, il vaut mieux créer une feuille et ne copier que le range des données ....;
=> pourquoi en boucle et une centaine de fois?

2. Votre solution classeur externe me parait assez compliquée et je ne pense pas qu'elle vous fasse gagner du temps ....

3. Progressbar: c'est gérable assez facilement via le statusbar. Voir exemple sous http://www.developpez.net/forums/d15...e-progression/

Citation:

---

Envoyé par vinc_bilb

=> est-ce-que vous avez besoin des shapes? Sinon, il vaut mieux créer une feuille et ne copier que le range des données

---

Oui, pour des raisons de mise en page.

Citation:

---

Envoyé par vinc_bilb

=> pourquoi en boucle et une centaine de fois?

---

il s'agit d'une dématérialisation de rapports, les feuilles générées sont ensuite enregistrées en PDF, il peut y avoir une centaine de rapports...

Citation:

---

Envoyé par vinc_bilb

2. Votre solution classeur externe me parait assez compliquée et je ne pense pas qu'elle vous fasse gagner du temps ....

---

Mon gros problème n'est pas vraiment par rapport au temps que cela prend... Mais plutôt sur le fait qu'Excel freeze sur des traitements assez long, page blanche avec un Microsoft EXCEL - ne répond pas". Apparemment, c'est un problème depuis EXCEL 2010 (cf. forum Microsoft)

je viens d'essayer avec un DoEvents dans la boucle mais rien de mieux.. je regardes pour ton exemple de StatusBar mais j'ai un doute du fait qu'Excel affiche une page blanche le temps du traitement...

est-ce que je suis plus clair? Merci en tout cas d'avoir répondu. :roll:

Bon, je suis un peu coincé, il semble que ce soit un problème à partir d'EXCEL 2010 et pas de solution selon Microsoft...

https://support.microsoft.com/fr-fr/kb/2790615

Le code fonctionne mais cela fait juste bizarre de voir une page blanche lors de ce traitement avec de temps en temps une fenêtre Publication qui s'affiche lors de l'impression...

Tester avec une statusbar, idem... je ne vois pas trop comment faire là...

8O

bonjour
peut etre si les shapes ne sont pas necessaire ne copier que la plage

1 copier le usedrange
2 ajouter un sheet
3paste

voir
1 variable plage devient usedrange
2 ajout de sheet
3 nouveausheet.cells(1,1).resize(page.rows.count,plage.columns.count)=plage

merci pour ton post Patrick, je vais tenter ça et essayer aussi mon idée du FileCopy avec un classeur externe pour voir si cela limite la casse...

je vous donne des news :roll:

je reviens clôturer ce thread comme convenu.

mes tests se sont avérés infructueux hier soir, il s'agit bien d'une lenteur EXCEL et on ne peut pas outrepasser comme expliqué sur le lien vers le site Microsoft + haut.

Le freeze était en grande partie dû à la copie des feuilles en question et, la nuit portant conseils, j'ai finalement trouvé un moyen de réaliser mon traitement sans copier la feuille en question.

Lenteur aussi de la fonction "ExportAsFixedFormat" me permettant de générer une impression PDF, code nettement optimisé en passant le paramètre "Quality:=xlQualityMinimum" à la place du Standard et en passant ce paramètre "Application.Calculation = xlManual" à la place de xlAutomatic (temps d'attente ainsi divisé par 10).

je vous place ci-dessous une procédure publique qui désactive les évènements trouvée sur un site anglophone, cela pourra peut être servir à quelqu'un:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Sub BlockEvScreenCalc(Optional ByVal bWlacz As Boolean = True, _ Optional Status As String = "") On Error Resume Next With Application If bWlacz Then .EnableEvents = True .Calculation = xlCalculationAutomatic .ScreenUpdating = True .Cursor = xlDefault Else .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False .Cursor = xlWait End If .StatusBar = Status End With End Sub

---

à coller dans un module.

Pour appeler la procédure:

Code:

---

1 2 3 4

Call BlockEvScreenCalc(False, "Texte affiché dans la statusbar") 'votre traitement Call BlockEvScreenCalc(True)

---

Voili voilou, merci encore de m'avoir apporter des éléments, j'ai gagné du temps.

Cdt, koubiac. :)

Bonjour
oui si tu veux résolu mais il est completement ridicule de copier 100 fois la meme feuille ,modifier les données,imprimer,supprimer
c'est un fichier qui va etre amener a te causer des soucis selon le pc que tu utilise

pour moi
1 copie 1 fois (je dis bien 1!!! fois ) de la feuille

2 depart de boucle sur 100

3 modif de données

3 imprimer

5 on recommence a l'etape 3

6 fin de boucle sur 100 supprimer la copie

si ce shema ne convient pas pour que tu veux faire alors le principe de la copie d'origine est hors contexte

et tu peux bien sur toujour bloquer le update ,calculate etc.....

ce genre de travail je le fait en moins d'une minute su 100 feuilles

replop, pas compris ton dernier post Patrick, effectivement nous n'avons pas les mêmes capacités en prog VBA EXCEL, chez moi c'est très ponctuel, ce qu'il peut te paraître simple peut paraître un peu plus obscure pour d'autres, mais no problem... l'important étant (je crois) que mon problème soit résolu... Effectivement, je n'ai pas posté le code donc tu naviguais à l'aveugle, et au final, j'ai carrément supprimé la fonction qui copiait la feuille, franchement peu d’intérêt...

Merci en tout cas pour tes interventions et ton suivi, bien cdt, koubiac.