Vider le presse papier avant de fermer le fichier

[ericTA]

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]

Bonjour, ericTA, le Forum,

Comme ceci ?

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]

Bonsoir EricTA et tous les autres,

A tester également :

Private Sub Workbook_BeforeClose

Application.CutCopyMode = False

End Sub

Bonne soirée