[déplacé VB6 - VBA] Exécution de plus en plus lente

Question

Bonjour
J'ai terminé un projet(pour des élèves de 4ans !) qui manipule  des images.A chaque exécution 200 images ou plus sont crées  puis détruites.
La macro ralentit au fil des utilisations.Si je ferme et ouvre à nouveau elle repart a "pleine vitesse".J'ai pensé corriger le défaut en faisant éxécuter le code ci dessous (que je ne comprends d'ailleurs pas,cf ma fiche)mais rien n'y fait.
Le numéro des images que je crée augmente à chaque fois(actuellement :Image 613850).
Pour mettre au point cet outils j'ai fait plus de 150 versions.Un nettoyage et de quoi et comment est-il nécessaire?
Option Explicit
 
 
 
 Declare Function OpenClipboard Lib "user32" _
(ByVal hwnd As Long) As Long

 Declare Function EmptyClipboard Lib "user32" () As Long
 Declare Function CloseClipboard Lib "user32" () As Long
Sub ClearClipboard()
Dim oDataObject As DataObject

Set oDataObject = New DataObject
oDataObject.SetText ""
oDataObject.PutInClipboard

Set oDataObject = Nothing
Application.CutCopyMode = False

OpenClipboard 0
EmptyClipboard
CloseClipboard



Merci beaucoup

End Sub

Embrun-Man

PCPT · Answer

salut,

ce code ne fera rien de particulier...
quel est le problème et le code exact?


[hr]

[déplacé VB6 -> VBA] Exécution de plus en plus lente

1 réponse

Votre réponse

Discussions similaires