Discussion :

[repié]

Bonjour

Je rélaise une grosse copie d'un classeur à l'autre grace à une macro et à la fin de cette copie, souhaite fermer le classeur d'origine.
Mais comme les données ont été copiées, elles sont dans le presse papier et, à la fermeture, celui-ci maffife le classique message "Vous avez copié une grosse quantité de donnée. voulez vous conserver les données"

comment pourrait-je éviter l'affiche de ce message?

[SilkyRoad]

bonjour

tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CutCopyMode = False

si cela ne marche pas tu peux essayer cette procedure qui vide le presse papier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub viderPressePapier()
'nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library."
Dim Cible As dataObject
Set Cible = New dataObject
Cible.setText ""
Cible.putInClipboard
Set Cible = Nothing
End Sub

bonne journée
michel

[jmfmarques]

Je crois me rappeler que ces messages sont considérés comme des messages d'erreur et peuvent donc être évités en ajoutant au moment de la fermeture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On error Resume Next

De cette façon, cependant, on "perdrait" tous les autres messages d'erreurs éventuels !

Pour éviter tout celà (mais c'est bien plus compliqué), il vaudrait mieux utiliser l'API de Windows pour gérer le "buffer" (tant pour copier, que pour coller ou pour le libérer).

A moins que VBA ne possède une fonction de libération du buffer, à lancer donc avant la fermeture ?

[repié]

Je ne pense pas que ce soit un message d'erreur mais d'informations (l'icône est celle du point d'exclamation....)

Sinon je viens de tester ce code mais il ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CutCopyMode = False

par contre celui ci fonctionne à merveillle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub viderPressePapier()
'nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library."
Dim Cible As dataObject
Set Cible = New dataObject
Cible.setText ""
Cible.putInClipboard
Set Cible = Nothing
End Sub

Merci beaucoup

Juste une derniere question:
étant donné que la référence "Microsoft Forms 2.0 Object Library." doit être activée, est ce que je doit prévenir les utilisateurs de ma macro qui travaille sur un autre poste?

[SilkyRoad]

rebonjour

normalement tu dois pouvoir directement utiliser le classeur sur les autres postes , sans aucun soucis

dans le doute et pour éviter un eventuel probleme de version ascendante ou descendante tu peux ecrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Cible As Object

bon apres midi
michel

[repié]

Ok merci beaucoup!