Microsoft 365 Edition commentaires Excel

  • Initiateur de la discussion Initiateur de la discussion Yann21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Yann21

XLDnaute Occasionnel
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.
 
Solution
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
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/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
 
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
 
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.
1616756539081.png
1616756614449.png
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
525
Réponses
3
Affichages
557
Réponses
0
Affichages
914
Retour