Macro pour supprimer message du presse papier

[BREBIOU]

bonsoir, j'ai une macro faite avec l'enregistreur, elle m'ouvre un fichier texte, copie le contenu et le colle dans une autre feuille.
Quand je ferme le fichier ca me dis que le presse papier contient une grande quantitée d'information et me demande si je veus conserver les données copier dans le presse papier ou si je veu les supprimer, je repond toujour "NON".
Que dois je rajouter à ma macro pour qu'elle reponde automatiquement "NON" ? merci à vous

 

[denisR]

Re : Macro pour supprimer message du presse papier

bonsoir
as tu essayer de mettre un "displayalerts = false" en debut de macro

a+

 

[BREBIOU]

Re : Macro pour supprimer message du presse papier

Je vien de rajouter le

displayalerts = false
au debut de la macro ,ca ne change rien
mémé en le mettant à la fin, jai aussi le message.

 

[MichelXld]

Re : Macro pour supprimer message du presse papier

bonsoir

tu peux tester avant de fermer le fichier:

Application.CutCopyMode = False

ou en vidant le presse papier:

'necessite d'activer la référence Microsoft Forms 2.0 Object Library
  Dim oDataObject As DataObject
 
  Set oDataObject = New DataObject
  oDataObject.SetText ""
  oDataObject.PutInClipboard
  Set oDataObject = Nothing

Bonne soirée
MichelXld

 

[Ti_]

Re : Macro pour supprimer message du presse papier

salut

Salut
Tu peux aussi tout simplement écrire
Cells(1, 1).Copy: Application.CutCopyMode = False

et ça devrait suffire

 

[BREBIOU]

Re : Macro pour supprimer message du presse papier

Merci Ti_, avec , Cells(1, 1).Copy: Application.CutCopyMode = False, je n'est plus de message.

bonne soirée