Microsoft 365 Bug macro Dim objData As New MSForms.DataObject

[Claudy]

Bonjour,
après un passage de Win 7 vers win10, j'ai du réinstaller mes macros perso dont celle ci:

Sub CopyToClipboard2()
   [CODE]Dim objData  As New MSForms.DataObject

Dim strText

strText = ActiveCell.Value
objData.SetText strText
objData.PutInClipboard
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub[/CODE]

elle fonctionnait parfaitement avant mais là elle bug sur

Dim objData  As New MSForms.DataObject

Et je ne trouve plus MicrosoftForms 2.0 Object Library dans les références


Merci d’avance pour votre aide,

Claudy

 

[Claudy]

Me revoilou....
J'ai retouvé MicrosoftForms 2.0 Object Library dans les références ...tout simplement en crèant un usf quelconque!
Bonne journée,
Claudy