[VBA Excel] comment.cellule récup presse-pap

Sérieux -  
 Utilisateur anonyme -
Bonjour.

Quelqu'un peut-il me dire pourquoi cette instruction (en gras) ...

With ActiveCell.AddComment
.Visible = False
.Text GetFromClipboard
End With

... ne marche pas (Erreur d'exécution 1004 : La méthode 'Text' de l'objet 'Comment' a échoué) ?
A voir également:

1 réponse

Réponse 1 / 1
Utilisateur anonyme
 
Bonjour,

suggestion : 

Option Explicit

Dim MaDonnee As DataObject
'

Sub CaptureDonnees()

    Dim Commentaires As String

    Set MaDonnee = New DataObject

    MaDonnee.GetFromClipboard
    Commentaires = MaDonnee.GetText(1)
    With ActiveCell.AddComment(Commentaires)
        .Visible = False
    End With

End Sub
'


Lupin
0