Libre Office Draw : assembler des fichiers images en un seul fichier PDF

[tiogran]

Dernier message de la page précédente :

Super tu avances à grand pas...
Pour le logg gênant,
Dans

Code : Tout sélectionner

Function RecupererNombreFichiers(url_folder)

, il faut effacer l'instruction qui demande d'imprimer l'index... Excuses généralement je les enleves une fois que j'ai contrôlé que tout étais ok... Cela me fait penser que dans une phase de devellopement, il est important de mettre ce genre de "témoin" à des endroits importants mais bref faut penser à les enlever après
L'instruction à oter de la fonction est

Code : Tout sélectionner

print x

tout simplement, l'équivalent de

Code : Tout sélectionner

echo $x

en bash...

La deuxieme fenetre fait suite a ton choix d'annuler (et tu as eu raison) la procédure...

Quant aux extensions... Les extensions sont un précepte windoziens que beaucoup considèrent comme une faille de sécurité... En effet MS se base sur l'extension pour la lecture de fichiers: grave erreur puisque un executable comme par exemple un intrusif comme (fictif) "Trojan.apk" renommé par un moins inquiétant mais tout aussi dangereux "La reine des neiges à l'olympia.mp3" suffit à MS pour se faire berner. Linux quant à lui est beaucoup précautionneux car c'est le type de données contenus dans le fichier qui détermine la façon dont il va chercher à l'ouvrir et dans le cas de "La reine des neiges à l'olympia.mp3 il te dira "attention à tes fesses c'est un executable et en plus elle chante faux."
Pour notre affaire, j'ai testé les images n'ont pas besoin d'etre avec extensions... tiens moi au courant si c'est toujours le cas pour toi...

[Linuxing]

Je n'ai pas retiré les extensions des images, étant donné que ce n'est pas obligé

J'ai donc fait le changement suivant dans la macro, supprimant print x :



Ensuite, après avoir enregistré le changement et ouvert le fichier Draw, j'ai Exécuté la macro, une première fenêtre apparaît:



Je clique sur OK et puis j'ai ceci :



Ça décolle presque, mais pas encore

Au fait, depuis ces opérations, mon programme de capture d'écran semble être hésitant et l'application de graphisme Shutter ne s'ouvre plus

Quelques heures plus tard... après redémarrage du PC, Shutter semble refonctionner

[tiogran]

Je n'ai pas retiré les extensions des images, étant donné que ce n'est pas obligé

en fait un peu si "A1.jpg" et "A1" c'est pas la même chose.

Néanmoins il paraît necessaire de faire "avec" les extensions mais cela change enormément la donne car si je poursuis cette route il va falloir gérer les .jpeg, .jpg; .png et autres... Je vais donc changer mon fusil d'épaule et tenter une approche différente (ne t'inquietes pas j'ai déja bien mon idée). Le résultat en sera d'autant plus interressant, exploitable; le problème EST la solution.. Je te prépare un truc aux petits oignons j'espère que ca va fonctionner car je ne l'ai jamais encore fait (d'ou l'intérêt)
Pour le souci avec schutter, je te propose de ne pas le laisser ouvert lorsque tu fais la manipulation, il y a peut etre conflit car shutter et libreoffice manipule peut être en même temps les mêmes objets, après je suis amateur donc certaines choses m'échappent c'est pour cela que nous devons rester précautionneux.

Pour ce qui est de la macro actuelle, fais un essai sur quelques images nommés comme tu m'avais indiqué à l'origine (A1, A2 etc...) Normalement le dernier message d'erreur devrait disparaitre. S'il réapparait, tu fermes le message et regardes à quelle ligne s'est arrêtée la macro . Les messages d'erreur sont difficiles à interprété hors contexte. A premier vue, Basic ne peut envoyer un argument à l'une des images: peut être que l'objet en question à cet instant dans la boucle n'est justement pas une image ou que l'objet ne peut être modifié (ouvert avec shutter??)

Je prépare une nouvelle macro mais je te préviens ca va se corser un peu mais ne t'inquietes je vais te guider pas à pas. Il va me falloir un peu de temps et donc pour faciliter les choses, il faudrait que tu maitrises les techniques suivantes.
- Renommer un module
- Insérer un nouveau module
- Creer une boite de dialogue (il sera plus facile pour moi de partir d'une structure existante)
- Renommer une boite de dialogue.
Tout ceci se fait en mode graphique et c'est super bien expliqué ici : https://help.libreoffice.org/Basic/Orga ... Modules/fr" onclick="window.open(this.href);return false;
A bientot!

[Linuxing]

Pour ce qui est de la macro actuelle, fais un essai sur quelques images nommés comme tu m'avais indiqué à l'origine (A1, A2 etc...) Normalement le dernier message d'erreur devrait disparaitre. S'il réapparait, tu fermes le message et regardes à quelle ligne s'est arrêtée la macro . Les messages d'erreur sont difficiles à interprété hors contexte. A premier vue, Basic ne peut envoyer un argument à l'une des images: peut être que l'objet en question à cet instant dans la boucle n'est justement pas une image ou que l'objet ne peut être modifié (ouvert avec shutter??)

J'ai fait un essai avec 4 images nommées sans les extensions : A1-A2-A3-A4



Au moment de lancer la procédure, une fenêtre me dit que le nombre de fichiers, sans compter le lanceur = 6 (alors qu'il n'y a que 4 images )

Je lance l'affaire et j'obtiens la fenêtre :



Et, dans la macro elle-même, je découvre ceci :



En tous cas, si j'enlève les extensions une à une... j'en ai 118

Merci

[tiogran]

Au moment de lancer la procédure, une fenêtre me dit que le nombre de fichiers, sans compter le lanceur = 6 (alors qu'il n'y a que 4 images )

En effet, il y a tes 4 images plus le fichier .draw et le fichier .lock qui lui est associé. Remarque: le fichier .lock est caché sur linux mais pas sur MS.
C'est pour cela que dans cette fonction:

Code : Tout sélectionner

Function RecupererNombreFichiers(url_folder)
   ....
  RecupererNombreFichiers = x-2 'les fichiers images = nbre total de fichiers - doc lanceur - fichier .lock
End function

Et, dans la macro elle-même, je découvre ceci :

C'est de ma faute, le sous programme est inexistant car j'ai oublié de te le donner; il n'est pas de moi mais de M Marcelly et M Godard et s'agissant de ces sous programmes qu'ils appellent routines utilitaires: Je les héberge dans Libre Office et non pas dans le document lui-même et de fait dans ton document il n'y est pas.
Je voyais bien que tu n'étais pas encore à l'aise avec l'EDI et je voulais éviter de te balader de bibliotheque en bibliotheque; résultat, en voulant te préserver je t'ai amener à l'erreur.
Voici donc le script manquant à intégrer dans le même module que le reste de la macro. Pour ce faire, ouvres l'EDI ou est hébergé la macro et rajoutes le à la suite de la macro.

Code : Tout sélectionner

REM Routine utilitaire créé par M Marcelly et M Godard dans l'ouvrage  de Programmation OpenOffice.org et Libre Office
Sub resizeImageByWidth(uneImage As Object, largeur As Long)
Dim imageInfo As Object, Proportion As Double, Taille1 As Object

imageInfo = uneImage.Graphic
Taille1 = imageInfo.SizePixel
Proportion = Taille1.Height / Taille1.Width
Taille1.Width = largeur ' largeur en 1/100 de mm
Taille1.Height = Taille1.Width * Proportion
uneImage.Size = Taille1
End Sub

En tous cas, si j'enlève les extensions une à une... j'en ai 118

Merci

De rien, on touche au premier objectif.

Réessaies le code et tiens moi au jus; je vais revenir sur cette macro pour vérifier que d'autres obstacles ne te barrent pas la route.

[Linuxing]

Salut tiogran,

Point de faute de ta part, seule compte la volonté d'y arriver

Alors voici ce que j'ai fait...

J'ai joint ton dernier ajout à la macro existante et lancé ensuite la procédure dans le dossier contenant 4 images sans les extensions (uniquement A1, A2, A3, A4) et... ça marche !

Il serait aussi bien que les images insérées soient centrées sur chaque page car dans le test elles se logent dans coin supérieur gauche ; avec 118 fichiers, il faudrait aussi les centrer manuellement une à une dans ce cas...

Dans le même dossier contenant les 4 images sans extension, j'ai ajouté les 114 autres qui comportent une extension, puis j'ai relancé la procédure et... ça foire !




Ce sont donc bien les extensions qui coincent

Dans le cas présent, je devrais enlever en une seule fois les 118 extensions pour que ça marche, mais que faire alors avec une autre série de fichiers qui se présenterait de la même façon, rebelote ?

Ceci dit, on peut en convenir de le faire sans extension et de garder comme option de renommer en A1, A2, A3... les fichiers d'un répertoire ultérieur s'il devait être transformé en PDF

[tiogran]

Il serait aussi bien que les images insérées soient centrées sur chaque page car dans le test elles se logent dans coin supérieur gauche ; avec 118 fichiers, il faudrait aussi les centrer manuellement une à une dans ce cas...

Il y a quantité de paramètres pour l'insertion d'image dont la position à l'insertion donc ne t'inquietes pas on va modifier çà

Dans le même dossier contenant les 4 images sans extension, j'ai ajouté les 114 autres qui comportent une extension, puis j'ai relancé la procédure et... ça foire !

tu en aurais douté?

Ce sont donc bien les extensions qui coincent

coincer est un état provisoire en programmation c'est simplement que la macro est faite pour fonctionner sans extensions; je l'ai écrite pour cela...

Dans le cas présent, je devrais enlever en une seule fois les 118 extensions pour que ça marche, mais que faire alors avec une autre série de fichiers qui se présenterait de la même façon, rebelote ?

la prochaine approche va prendre en compte le probleme des extensions mais avant nous devons faire un petit diagnostic des nouveaux objectifs...

Ceci dit, on peut en convenir de le faire sans extension et de garder comme option de renommer en A1, A2, A3... les fichiers d'un répertoire ultérieur s'il devait être transformé en PDF

en effet dans la procédure présente j'ai du mal à voir comment faire autrement. Tout la macro est basée sur le fait que les images s'appellent par une constante de la forme :"A" & x où x prends diverses valeur...
C'est pourquoi je compte prendre le problème dans un autre sens et tu verras ca va être assez surprenant fais moi confiance. Avec le recul, je pense qu'il faut pour lancer la macro une sorte d'interface extérieure au répertoire et unique...
1. Depuis cette interface on sélectionne le dossier ou seuls les images seront présentes.
2. Ensuite tant qu'a parcourir toutes les images plutot que de les renommer autant dire tout de suite à quelle page elles sont destinées...
3. Dans la foulée, on créé un document draw, on insère la nouvelle page et l'image qui va avec...
4. On export en PDF soit par une commande UNO (commande source du mode graphique) avec les parametres par défaut soit si tu as des besoins particuliers pour le doc pdf on les définit et on les applique...

L'étape 1 c'est bon j'ai déja écrit ce qu'il faut. L'étape 3 on en connait déja les grandes lignes même si quelques ajustements sont nécessaires. L'étape 4 je ne l'ai pas écrite mais j'ai déja beaucoup pratiqué. Mon questionnement va plus sur l'étape 2 étant donné que tu utilises un programme externe à Libre Office. Toutes la question est de savoir sous quelle forme sortent les images de ce programme... Il faut donc que je le testes...

Pour en revenir à Libre Office, il y a quelques choses de très important qu'il faut que tu comprennes et c'est le cas dans quasiment tout les logiciels open source. Quelque soit la manipulation que tu executes en mode graphique via les menus, le code qui permet cette commande est ouvert c'est à dire que tu peux la consulter, la modifier tout ou partie.
Donc la démarche est de se dire voilà ce que j'arrive a faire en mode graphique et donc il me faut comprendre comment faire la même chose par ce que c'est sûr un code pour le faire existe!!
ex: pour enregister; la méthode c'est

Code : Tout sélectionner

store()

, pour enregistrer sous c'est

Code : Tout sélectionner

StoreAsUrl

ou

Code : Tout sélectionner

StoreToUrl

etc etc etc pour toutes les menus, les polices, les tailles des polices, les effets de caractères, les parametres d'affichage 50%, centré, a gauche, a droite tout je dis bien absolument TOUT!

Personellement les questions à se poser de suite sont:
Pour alimenter le dossier ou tes images seront regroupées; Seront-elles toutes générées par shutter?
et enfin la question qui tue:
Les images proviennent-elles en intégralité de navigateur internet?

[Linuxing]

Personellement les questions à se poser de suite sont:
Pour alimenter le dossier ou tes images seront regroupées; Seront-elles toutes générées par shutter?
et enfin la question qui tue:
Les images proviennent-elles en intégralité de navigateur internet?

Une chose est certaine, en programmation, ce n'est pas vraiment un jeu d'enfant que de faire une macro

Pour ce qui est de mes images, elles peuvent, selon le cas, provenir de :

- APN
- page numérisée
- téléchargée sur un site

Dans le cas traité actuellement, ces images sont des factures scannées sur mon PC

Shutter n'est qu'un intervenant occasionnel pour faire du graphisme sur les images, comme je l'ai notamment fait avec des flèches et commentaires insérés sur mes screenshots précédents

[tiogran]

Une chose est certaine, en programmation, ce n'est pas vraiment un jeu d'enfant que de faire une macro

C'est juste que cela ne fait pas partie de notre culture de programmer, dans certains pays les enfants apprennent à coder très tôt et je peux te garantir qu'il y a une génération qui arrive qui va nous mettre à l'amende. Sais-tu qu'une partie non négligeable de pirate informatiques sont des adolescents passant leur soirée sur youtube pour choper des techniques de hack?

Pour ce qui est de mes images, elles peuvent, selon le cas, provenir de :
- APN
- page numérisée
- téléchargée sur un site

Le multiplicité des sources nous obligent à prévoir une procédure un peu complexe. S'il faut renommer chaque image le gain de temps sera moins important que ce qu'il pourrait être.
A propos de source d'images saches que mozilla intègre une fonction qui permet de transformer la page que tu vois en PDF et qu'il effectue lui même la pagination.

Shutter n'est qu'un intervenant occasionnel pour faire du graphisme sur les images, comme je l'ai notamment fait avec des flèches et commentaires insérés sur mes screenshots précédents

Libre Office offre aussi des services similaires.

Pour te parler de mon cas personnel, un doc PDF unique me permettra de regrouper en un seul document diverses recherches sur un sujet donné... Par exemple "tout sur l'export PDF en basic"

Mais revenons à nos moutons:
-Visualiser une image te permet-il de définir précisement la page de destination?

[Linuxing]

J'ai FireShot dans Mozilla, mais ce dernier ne m'est d'aucune aide pour mes images dans un répertoire personnel

Nous avons avancé au stade actuel, puisqu'il est déjà établi qu'en supprimant toutes les extensions la procédure marche En gardant cette optique, nous pourrions nous en contenter en choisissant tout simplement de supprimer les extensions en cas de création d'un PDF, tout en prévoyant une éventuelle commande qui les enlève toutes en une seule fois

Toujours dans cette optique, il me suffirait de convenir que mes fichiers actuels et futurs resteraient dans cette forme de nomination : A1, A2, A3

Une fois ces paramètres maintenus, il serait alors bon de faire un ajout dans la macro pour le centrage automatique de l'insertion sur chaque page

Maintenant, s'il existe une formule qui permette la création de PDF sans contrainte de nom, d'extension ou que sais-je, tant mieux... je suis preneur

J'ai vu que Libre Office offrait également des options graphiques

Pour ta question «Visualiser une image te permet-il de définir précisément la page de destination ? », je ne sais pas comment l'interpréter

[tiogran]

En gardant cette optique, nous pourrions nous en contenter en choisissant tout simplement de supprimer les extensions en cas de création d'un PDF, tout en prévoyant une éventuelle commande qui les enlève toutes en une seule fois

en effet, je m'y attaque...

Toujours dans cette optique, il me suffirait de convenir que mes fichiers actuels et futurs resteraient dans cette forme de nomination : A1, A2, A3

En effet, la seule contrainte à respecter que cela soit une lettre qui débute le nom du fichier. Si tu devais la changer ca serait à cet endroit là

Code : Tout sélectionner

Sub InsererUneImageDansPage(doc, unePage, url_folder, x)
   .....
   props(0).Value = convertToURL(url_folder & "A" & x+1)
End Sub

ou tu modifies "A" par toute autre caractère ou séquence de caractère...

Une fois ces paramètres maintenus, il serait alors bon de faire un ajout dans la macro pour le centrage automatique de l'insertion sur chaque page

Enleves ce code là voir si par défaut ca te convient:

Code : Tout sélectionner

resizeImageByWidth(lImage, 11000) 'les parametres suivant sont ajustable au 1/100 de mm
   positionImage.x = 6500
   positionImage.y = 5300
   lImage.Position = positionImage

Maintenant, s'il existe une formule qui permette la création de PDF sans contrainte de nom, d'extension ou que sais-je, tant mieux... je suis preneur

A priori pas de souci , je te prépare çà

Pour ta question «Visualiser une image te permet-il de définir précisément la page de destination ? », je ne sais pas comment l'interpréter

Ce que je veux dire c'est qu'en admettant que tu puisses avoir un aperçu d'une image, en la voyant tu puisses te dire tiens celle là va à la page 13...