récupérer une cellule copiée en VBA

bonsoir Jojo

cet exemple permet de récuperer dans une variable le contenu du presse papier


Sub recupererDonneePressePapier()
'source : http://dj.joss.free.fr/index.htm
'nécéssite d'activer la référence "Microsoft Form 2.0 Object Library."
Dim Resultat As String

With New DataObject
.GetFromClipboard
Resultat = .GetText(1)
End With

MsgBox Resultat

End Sub


bonne soirée
MichelXld

Merci michel.

Pour mon simple problème, étant sur la cellule active il y avait une solution simple qui consitait à lire la cellule active avant de la copier :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/10/2004 par José HOFMAN
'
Dim Aa As String

Aa = ActiveCell

Application.CutCopyMode = False
Selection.Copy

....
End Sub