Bonjour,
je n'arrive pas à insérer le range d'une colonne d'un fichier dans la case commentaire d'un autre fichier.
J'ai essayé avec Comment.Add Range, avec set=range rien n'y fait ...


Si vous pouviez m'aider ce serait super !
Merci beaucoup !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub Test()
'Active la feuil1 du premier fichier
Sheets("feuil1").Activate
'Va chercher le fichier qui correspond à une certaine date dans la cellule AA1 de la feuil1
Workbooks.Open Filename:="chemin du fichier" & Range("AA1").Value & ".xlsx"
'Copie la colonne J
Range("J:J").Copy
'Retourne sur la feuil1 du premier fichier
Windows("premier fichier.xlsm").Activate
Sheets("feuil1").Activate
'insère un commentaire en A55 de la feuil1
Range("A55").AddComment
    'je bloque !!!
    Range("A55").Comment.Add ????
 
 
'je définis les caractéristiques
Range("A55").Comment.Visible = True
 
    With Range("A55").Comment.Shape
        .Width = 200 'Largeur commentaire
        .Height = 90 'Hauteur
        .OLEFormat.Object.Font.Size = 10 'Taille du texte
        .OLEFormat.Object.Interior.ColorIndex = 34 'Couleur de fond
        .TextFrame.Characters.Font.ColorIndex = 11 'Couleur de la police
        .TextFrame.Characters.Font.Bold = True 'Ecriture gras
        .OLEFormat.Object.Font.Name = "Calibri" 'Type de police
        .TextFrame.AutoSize = True 'adapter la taille du comment en fonction du texte
    .ScaleHeight 18, msoFalse, msoScaleFromTopLeft
    .ScaleWidth 9.8, msoFalse, msoScaleFromBottomRight 'positionnement du tableau
 
    End With
 
End Sub