Microsoft 365 Edition commentaires Excel

[Yann21]

Bonjour,

Je tiens une base de données d'ouvrages sur Excel.
Chaque ligne du tableau correspond à un ouvrage.
Pour le résumé de l'ouvrage, comme il y a peu de places dans les cellules, je l'ai saisi en commentaires.
Je souhaiterai pouvoir éditer ces commentaires, un peu sous forme de fiches, pour revoir tous mes résumés.
L'impression des commentaires directement sur Excel en fin de page est peu satisfaisante.
Auriez-vous des solutions à me proposer ?

PS Attention Excel distingue maintenant les commentaires et les notes (depuis 365), et plusieurs sites proposent des manipulations qui ne fonctionnent que sur des notes et pas sur les commentaires.

Bien cordialement.

 

[MP59]

Bonsoir Yann21
un petit exemple en PJ

 

[Yann21]

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.

 

[Yann21]

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

 

[MP59]

https://www.cjoint.com/c/KCypGoQJCBC
voici le fichier avec la macro (dans le VBE) pour que chaque commentaire devienne un pdf.
il faut dans le code mettre :
-la bonne fourchette de ligne à imprimer (dans le for i = to )
-le bon complément de chemin pour l'endroit où il faut que les pdf s'enregistrent.

Chez moi ça marche parfaitement, en quelques secondes un cinquantaine de PDF sont créés.

Bien Cordialement
MP59

 

[Yann21]

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

 

[MP59]

"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.

 

[Yann21]

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

 

[MP59]

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.

 

[Yann21]

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

 

[MP59]

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