Claudy XLDnaute Accro 9 Octobre 2020 #1 Bonjour, 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 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 Code: 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 Pièces jointes Capture.PNG 18.8 KB · Affichages: 33 Dernière édition: 9 Octobre 2020
Bonjour, 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 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 Code: 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 XLDnaute Accro 9 Octobre 2020 #2 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 Vote positif 0 Vote négatif
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