temps d'exécution trés long d'une macro vba

[inviteeae1b5f3]

Bonjour les futuristes,

j'ai besoin d'aide sur une application que j'ai programmé en VBA, ça marche bien sauf au moment ou l'application commence à copier des graphes à partir de feuilles Excel dans des Slides powerpoint. en totale j'ai presque une 40 taine de graphes à copier, est c'est vachement lourd, alors que sur cette partie le travail qu'elle doit faire c'est juste du copier coller automatiser.

ca prend une 20taine de minutes. si quelqu'un à une idée sur la cause je lui serai extremement reconnaissante, par ce que vraiment c'est gênant,et il ne me reste plus beaucoup de temps pour rendre l'application à mon maitre de stage qui n'est pas du tout fort coté programmation. merci encore d'avance.
-----

[invite895675d5]

Petite piste (mais je n'ai pas vu ta macro) :
Je ne sais pas si l'opération que tu veux faire utilise le presse papier de windows ou celui d'office. Je m'explique, le presse papier de windows écrase le document précédent tandis que celui d'office garde tous les documents en mémoire avec un risque de saturation de la mémoire et donc d'utilisation de la swap d'où lenteurs. Si c'est le cas, il faut trouver un moyen de vider le presse papier après chaque copie.

Quelques questions pour cerner le problème :
1- Est-ce que les graph excel sont dans le même fichier ? Car si tu dois ouvrir un fichier excel différend à chaque fois, le problème de lenteur viens de là.
2- L'inverse, est-ce que tu colles les graph dans des fichiers powerpoint différents ? Même cause même problèmes.
3- Plusieurs fichiers excel, plusieurs fichiers powerpoint...
4- Si tu as un seul fichier excel et un seul fichier powerpoint : vérifie que l'ouverture de l'un des deux (les deux ?) n'est pas faite dans une boucle, ce qui te le ferais ouvrir plusieurs fois.
5- Quand tu fais cette opération à la main, combien de temps ça prend ?

[inviteeae1b5f3]

Bonjour nicolas,

merci d'avoir répondu, ça fait déja du bien

j'ai vérifié les étapes une par une, et il parrait que le copier/coller manuelle de Excel vers Powerpoint est aussi lent que ma macro, ~18 minutes, même avec le presse papier vide! donc ca explique le problème, je t'en remercie.

mais je m'acroche encore, et je pense à ne pas utiliser le copier/coller, comme je le fais avec les zones de texte, auquelles j'insère directement le contenu d'une cellule excel, genre:

Dim Sh As PowerPoint.Shape

Sh.TextFrame.TextRange.Text = Worksheets(1).Range("C1").offs et(1)

j'avoue que je suis pas trop forte en VBA, j'ai esseyer d'inserer un graphe dans une zone de texte, mais ca n'a pas marché.

j''ai esseyer aussi, ca
Sh.Diagram=Worksheets(1).Chart Objects(1)

ca marche pas aussi... une bonne ligne de code, me sauvera la vie, merci encore une fois

[inviteeae1b5f3]

salut problème résolu
pour ceux qui seront peut être confronté au même problème:

mauvais code:

Worksheets("nom de la feuille").ChartObjects(1).Copy
PptDoc.Slides(1).Shapes.Paste

il copie le graphe tel qu'il est. d'ou la lenteur... solution: le copier comme image.

CopyPicture au lieu de Copy.

l'application est devenue super légère même pas 2 minute! haliluah!

siii simple mais efficace.

[A voir en vidéo sur Futura]