Bonjour,
tout est dans le titre…
Je souhaite que les commentaires restent affichés sur la feuille, mais lorsque j’exporte la feuille en pdf, ces commentaires ne doivent pas être visible.
En principe, je réalise l’export en cliquant sur un bouton qui lance la macro qui lance l’export.
Quelqu’un a-t-il une idée?
Déjà merci,
Christian
Bonjour et bienvenue @Chov,
cette macro peut-elle masquer les commentaires juste avant l’export et les réafficher après l’export ?
D’autre part, pourquoi exporter vers PDF via une macro, alors qu’un bouton existe déjà, ou bien un raccourci clavier. Fait-elle d’autres traitements ?
“masquer les commentaires juste avant l’export et les réafficher après l’export”
Ce serait une solution, mais je ne vois pas comment le faire
Pour préciser l’objectif de la macro:
j’ai besoin d’une manip simple pour la sauvegarde car ceux qui utiliseront le fichier ne sont pas très familiarisés.
Vu que le bouton “export pdf” exporte toutes les feuilles et que l’objectif est de ne sauver qu’une zone de la feuille courante, et de donner au fichier un nom prélevé dans une cellule précise de la feuille, j’écris une macro qui peut se lancer depuis la feuille.
Sur la feuille, j’ai ajouté un bouton (avec la propriété non imprimable) qui lance la macro.
J’ai aussi ajouté des commentaires à certaines cellules pour aider les utilisateurs qui encodent.
Mais je ne veux pas que ces commentaires soient exportés.
Bonjour ,
Vous parlez bien de commentaires insérés via le menu bouton droit-> insérer un commentaire ?
L’exportation en pdf via le menu Fichier->exporter au format pdf délivre des options dont le fait d’exporter des cellules sélectionnées auparavant .(Sélection/Feuilles sélectionnées) .Si vous ne cochez pas “Commentaires en tant qu’annotations PDF”,les commentaires ne seront pas inclus .Une macro créée en utilisant le menu Outils->Macros-> enregister une macro permet de le faire .
Merci PKG,
Je vais m’inspirer de cela pour les macros.
Je te tiendrai au courant.
Je me suis inspiré de cela dans ma macro. j’ai dû introduire un petit temps d’attente entre la désactivation et l’export sinon cela ne marchait pas. Seul petit soucis restant: le commentaire n’est plus sauvé, mais il apparaît encore une petite icône: je suppose l’indicateur de commentaire. j’ai essayé de le désactiver dans /outils/options/calc/affichage, mais cela n’a rien changé.
Bonjour ,
Apparemment on ne me lit pas : Exporter une feuille en pdf sans les commentaires de cellule - #6 by aboulafia
Merci aussi à aboulafia…
Je suis perplexe, mais mon problème est solutionné.
Comme je l’ai dit plus haut, je dois absolument couper l’affichage des commentaire avant la sauvegarde pdf; sinon je retrouve le commentaire dans mon pdf, même en ayant décoché la case “Commentaires en tant qu’annotations PDF”.
Je trouvais toutefois encore un logo à la place diu commentaire, Ce logo a disparu en utilisant la macro suivante:
function ExportPdfSelection(chemin as string)
dim propFich(1) as new com.sun.star.beans.PropertyValue
dim filterProps(1) as new com.sun.star.beans.PropertyValue
dim adresseDoc as string
filterProps(0).Name = "Selection"
filterProps(0).Value = thisComponent.currentController.activeSheet
filterProps(1).Name = "ExportNotes"
filterProps(1).Value = FALSE
propFich(0).Name = "FilterName"
propFich(0).Value = "calc_pdf_Export"
propFich(1).Name = "FilterData"
propFich(1).Value = filterProps()
adresseDoc = convertToURL(chemin)
thiscomponent.storeToURL(adresseDoc, propfich())
end function
Mais je dois toujours désactiver les commentaires avec le code suivant:
sub cmt_off
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ShowAnnotations", "", 0, Array())
end sub
sub cmt_on
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ShowAnnotations", "", 0, Array())
end sub
Mais je considère mo problème comme “résolu”.
Comment puis-je le marquer comme “résolu”?
Merci encore à tous pour l’aide.
Christian.