Bonjour à tous,
Depuis le passage d'Office 2010 à Office 2016 certains pc de mon service rencontrent une erreur lors de l'exécution d'un code vba et plus précisément lors de la mise en forme d'un commentaire.
If ActiveCell.Comment Is Nothing Then
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=Message
'========================== Modification 2 suite passage Office 16 =======================
With ActiveCell.Comment.Shape
.Width = 150 'Largeur commentaire
.TextFrame.Characters.Font.Size = 10 'Taille du texte
.TextFrame.Characters.Font.Bold = True 'Ecriture gras
.TextFrame.Characters.Font.Name = "Tahoma" 'Type de police
.TextFrame.AutoSize = True
.Fill.ForeColor.SchemeColor = 2
End With
'========================== Modification 2 suite passage Office 16 =======================
'Mis en commentaire
' With ActiveCell.Comment.Shape
' .Width = 150 'Largeur commentaire
' .OLEFormat.Object.Font.Size = 10 'Taille du texte
' .TextFrame.Characters.Font.Bold = True 'Ecriture gras
' .OLEFormat.Object.Font.Name = "Tahoma" 'Type de police
' .TextFrame.AutoSize = True
' .Fill.ForeColor.SchemeColor = 2
' End With
L’erreur se produit sur la ligne .TextFrame.Characters.Font.Size = 10 'Taille du texte et anciennement sur la ligne
' .OLEFormat.Object.Font.Size = 10 'Taille du texte
Je vous remercie par avance de votre aide.