bonjour,

je suis debutant (mais motivé ^^) et j'ai un gros probleme
mon code permet d'enregistrer une feuille du classeur dans le format htm

le probleme c'est la memoire: j'effectue cet action toute les 5s et ma memoire vive s'incremente de la taille de mon fichier sans jamais ce vider

d'apres ce que j'ai pu voir la fonction ".copy n'envoie pas les données dans le presse papier de windows ni dans celui d'office,comment faire pour supprimer les ancien fichier enregistrer de la memoire vive??

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
'Exporte la feuille "html" dans un autre fichier au format ".htm"
'Application.DisplayAlerts = False
   ' Nom = "vitesse_lignes"
    'Filename = Nom
    'Sheets("Html").Copy
    'ActiveWorkbook.SaveAs Filename:="C:\" & Filename, fileformat _
       ' :=xlHtml
    'ActiveWorkbook.Close  
'Application.DisplayAlerts = True

j'ai essayer pas mal de chose
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
    OpenClipboard 
    EmptyClipboard
    CloseClipboard
=>ca ne fait pas de beug mais ca efface rien

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
=>su ou fonction non defini sur Openclipboard

clipboard.close
=>ca ne marche pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Application.CutCopyMode = False
=> ca marche pas non plus


je sait vraiment plus quoi faire pour effacer la memoire vive apres la fonction ".copy"

je vient d'essayer aussi

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public declare function CloseClipboard Lib "user32" () As long 
Public declare function EmptyClipboard Lib "user32" () As long 
Public declare function OpenClipboard Lib "user32" (ByVal hwnd As long) As long 
 
Sub ClipboardClear() 
dim rtn As long 
rtn = OpenClipboard(0&) 
rtn = EmptyClipboard 
rtn = CloseClipboard 
end Sub
 
ou bien :
Sub ClearCB() 
Set Dummy = New DataObject 
Dummy.SetText "" 
Dummy.PutInClipboard
end Sub
=>ca beug pas mais ne resoud pas mon probleme
apres tout c'est essai raté je me demande si c'est bien dans le presse papier que ca va...

Merci d'avance pour vos reponse