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
 

Statistiques des forums

Discussions
311 733
Messages
2 082 008
Membres
101 864
dernier inscrit
elrecruiter