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??
	
	| 12
 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
	
	| 12
 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
	
	| 12
 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
	
	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
	
	| 12
 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
						
					
Partager