Claudy
XLDnaute Accro
Bonjour,
après un passage de Win 7 vers win10, j'ai du réinstaller mes macros perso dont celle ci:
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
Et je ne trouve plus MicrosoftForms 2.0 Object Library dans les références
Merci d’avance pour votre aide,
Claudy
après un passage de Win 7 vers win10, j'ai du réinstaller mes macros perso dont celle ci:
VB:
Sub CopyToClipboard2()
[CODE]Dim objData As New MSForms.DataObject
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
Code:
Dim objData As New MSForms.DataObject
Merci d’avance pour votre aide,
Claudy
Pièces jointes
Dernière édition: