Copier d'excel, Coller vers autre application

Claudy

XLDnaute Accro
Bonjour,
Il pourrait arriver avec certaines applications que le "Copier Coller" classique ne fonctionne pas, ou alors il faut passer par un éditeur de texte (wordpad, stickynote, ou autres...).
Personnellement, j'ai trouvé cette macro bien pratique, à placer dans le personal.xlsb et l'associer à une icône dans la barre d'outils d’accès rapide.
La macro:
VB:
Sub CopyToClipboard2()
'Activer: Outils>>Références>>MicrosoftForms 2.0 Object Library
   Dim objData As New MSForms.DataObject
    Dim strText

    strText = ActiveCell.Value
    objData.SetText strText
    objData.PutInClipboard
'éventuellement, dans un tableau, on connait ainsi la dernière valeur copiée.
With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 15773696
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
Claudy
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas