[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é) ?
Configuration: Mac OS X
Safari 1,3.0

1 réponse

  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