Microsoft 365 Edition commentaires Excel

Bonsoir Yann21
un petit exemple en PJ

Bonsoir MP59,

Merci pour ta proposition.
Dans l'idéal j'aurai souhaité qu'avec la macro, il m'imprime automatiquement le texte du commentaire dans un PDF.
Je vais peut être mettre mon fichier en pièce jointe, ce serait plus clair.
Les commentaires sont dans la colonne M.

https://www.cjoint.com/c/KCrthBg1RT4 voici le fichier sur ce lien

J'ai mis le code avec les modifs puis j'ai exécuté la macro mais je n'ai pas de résultats. J'ai du zapper un truc :

Sub testComment()
Dim str As String
For i = 562 To 598 'à amménager avec la première et la dernière ligne à traiter
On Error Resume Next
Sheets(1).Activate
str = Sheets("Feuil1").Cells(i, 13).CommentThreaded.Text

Sheets("Feuil2").Range("A1").Value = str

Dim nomFichier As String
nomFichier = Sheets("Feuil1").Cells(i, 4) & Sheets("Feuil1").Cells(i, 5) & Sheets("Feuil1").Cells(i, 6) & Sheets("Feuil1").Cells(i, 8)
nomFichier = Replace(nomFichier, """", "") 'supp des "
nomFichier = Replace(nomFichier, "?", " ") ' supp des ?
nomFichier = Replace(nomFichier, ":", " ") ' supp des :
nomFichier = Left(nomFichier, 50) ' ne retenir que les 50 premiers caractères

'il faut ici, à la 2° ligne, mettre le complément du bon chemin sur votre ordinateur
Sheets("Feuil2").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\" & nomFichier & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Next i
Sheets("Feuil2").Range("A1").Value = ""
End Sub

"C:\xxxxxxxxxxxxxxxxxxx \ " & nomFichier & ".pdf" _ : remplacer les xxxxx par ce qui manque.
et verifiez si les pdf ne sont pas directement à la racine c:\ surtout si vous n'avez pas eu de message d'erreur.

J'ai refait un essai mais en vain.
J'ai mis un autre chemin : "D:\OneDrive - GROUPE SAINT-BENIGNE\" & Test & ".pdf" _
Je ne vois pas où est le problème

As-tu essayé avec mon fichier (qui contient la feuille 2 avec une mise en forme des cellules) ?
Si tu copies uniquement le code dans ton fichier et qu'il n'y a pas de feuille2 cela ne peut pas fonctionner.

je viens de relancer chez moi j'ai bien le résultat voulu.

Ah oui cela fonctionne, c'est excellent ! Merci beaucoup
C'est cool ce programme

De rien.
Peux-tu le valider comme solution, merci.