Vider le presse papier avant de fermer le fichier

ericTA · 19 Janvier 2017

Salut à tous,
voila mon problème j'utilise en fichier Excel pour faire des beaux tableaux que je copie sous Word, j'usqu'a là tout va bien.
J'ai une macro sous word qui ferme Excel (qui ma bien pas de problème) sauf que à la fermeture d'exec j'ai une fenêtre qui s'ouvre est qui me dit "Le presse-papier contient une grande quantité d'informations..."
J'aimerai ne pas avoir cette fenêtre.
j'ai essayé de vider le presse papier avant de fermer Excel (à partir de Word) avec une macro

Dim oDataObject As DataObject
Set oDataObject = New DataObject
oDataObject.SetText ""
oDataObject.PutInClipboard
Set oDataObject = Nothing

Toujours le message, après j'ai mis cette macro, dans BeforeClose de ThisWorbook du fichier Excel, même combat.
j'ai remplacé ce code par une copie d'une cellule vide, pareil.
Voyez vous une explication
mais surtout une solution
Merci d'avance
Eric

DoubleZero · 19 Janvier 2017

Bonjour, ericTA, le Forum,

Comme ceci ?

VB:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' nom d'onglet adapter
    With Sheets("a"): .Range("a1").Copy .Range("a1"): End With
End Sub

A bientôt

Boo2bafoot · 19 Janvier 2017

Bonsoir EricTA et tous les autres,

A tester également :

Code:

Private Sub Workbook_BeforeClose

Application.CutCopyMode = False

End Sub

Bonne soirée

Vider le presse papier avant de fermer le fichier

ericTA

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

Boo2bafoot

XLDnaute Nouveau

Discussions similaires