Bonjour
peut-^tre que...
La macro agit sur un cadre de commentaires existant déjà: est le cas chez toi ou faut il créer ce cadre?
si il faut créer le cadre
Private Sub Worksheet_Activate()
If Range("C4").Comment Is Nothing Then Range("C4").AddComment 'crée le cadre s'il n'existe pas
With Range("C4").Comment
.Text Sheets("Feuil1").Range("A1").Value 'inscrit la valeur en A1 feuille 1
.Shape.TextFrame.AutoSize = True 'ajuste la taille au texte en feuil1!A1
End With
End Sub
code d'après Jacques Boisgontier
ci joint tite démo
Pour joindre un classeur (toujours enregistré au format XL97-2003):"scrolle" sous le cadre du message-onglet:ajouter des fichiers joints
[/code]