none
Probleme de presse papier office 2016 Windows 10 et VBA RRS feed

  • Question

  • Bonjour

    ci joint un programme test qui fonctionne sur Windows 7 - Excel 2007 - référence Library 12.0

    Private Sub CommandButton1_Click_test()
    Dim MyData As New DataObject
    Dim var As Variant

            MyData.SetText "xxx"
            varx = MyData.GetText
            MyData.PutInClipboard

    End Sub

    sur Windows10 - excel 2016 - ref Library 16.0 je ne récupère pas les données dans le presse papier (il affiche 2 petit carré). A noter, j'ai déjà remarqué ce défaut en faisant un copier coller de phrase internet vers Excel?

    Y a t'il un paramètre à modifier sur Windows ou Excel ou d'autre instructions existante. Le but est de récupérer le texte d'une case lui ajouter la date et envoyer le tous dans le presse papier.

    Merci

      Merci pour ton aide, j'ai testé les modifs, il n'y a pas de changement dans le résultat ��,ci contre le résultat du copier coller par la méthode VBA.  Microsoft Forms 2.0 Object Library est bien installé dans la bibliothèque. J'ai modifier ma façon de procéder pour contourner le problème afin de parer au plus pressé. Merci A+    


    • Modifié Rafael34 lundi 26 octobre 2015 18:29
    lundi 26 octobre 2015 11:17

Réponses

  • Bonjour,

    J'ai quelques peu réécrit votre code est il semble fonctionné correctement (W8.1 et Excel 16)

    Remarque 01 : pour utiliser le presse papier vous avez besoin de la bibliothèque : Microsoft Forms 2.0 Object Library

    Remarque 02 : la méthode GetText permet de récupérer le contenu du presse-papier

    à lire : http://excel-macro.tutorialhorizon.com/vba-excel-putting-text-in-the-windows-clipboard/

    Le code :

    Private Sub CommandButton1_Click()
        
        Dim MyData As New MSforms.DataObject
        Dim varx As Variant
            
        varx = ActiveWorkbook.Sheets("Feuil1").Range("C9").Value & " " & Now()
        MyData.SetText varx
        MyData.PutInClipboard
        
    End Sub


    En espérant avoir pu rendre service (MehdiH)
    Retrouvez moi sur Office Users

    • Marqué comme réponse Rafael34 lundi 26 octobre 2015 18:23
    lundi 26 octobre 2015 12:52