Discussion :

[RJA_261]

Bonjour à tous,
Je suis très ravis d'être intégré dans le forum.

En faite, il y a un petit projet que j'aimerai effectué si mes pensés sont réalisable.
J'ai un dossier qui comporte des sous-dossier dont chacun comporte des centaine d'images en ".png"
Ce que je veut faire est d'insérer tous les images du dossier dans un fichier Word et que chaque image s'affiche sur une nouvelle page.
Le but est de lancer une impression à un seul coud au lieu de d'imprimer un image après l'autre.


Cordialement,

[E KERGRESSE]

Bonjour,

Pourquoi Word ?

[RJA_261]

Bonjour,

En fait, il se peut qu'on rajoute quelques informations et de retouche pour certaines images.
et j'ai pensé que Word est le seul l'outils favorable. mais je serai ravis si on trouve une autre manière plus simple de le faire.

Cordialement,

[ec]

Je n'ai pas testé l'idée que je propose :

Microsoft Access gère des tables, composées des enregistrements (équivalant des lignes d'un tableau Excel). Chaque enregistrement est composés de champs (équivalant des colonnes d'un tableau Excel) de différents types. Un de ces types de champs est dévolu à une ou plusieurs pièces attachées à chaque enregistrement. Ces pièces jointes peuvent être des images (typiquement photos d'identité par exemple). On peut saisir des textes à imprimer avec chaque photo dans chaque enregistrement et imprimer le tout dans un "Etat Access" dont on peut paramétrer la disposition de chaque page en paramétrant d'imprimer une page par enregistrement. (Cela fonctionnera un peu comme un mailing Word).
L'attachement de la photo se fait manuellement pour chaque enregistrement, mais avec une procédure VBA il doit être possible de faire cet attachement automatiquement.

Par contre Access ne fera pas d'optimisation de la photo (balance des couleurs, luminosité, contraste etc.). il faudra faire ces optimisations auparavant dans un logiciel de post traitement de photos.

[Nain porte koi]

Bonjour,

une solution...
1 - insérer tous les images du dossier
2 - Ctrl+H
Rechercher : ^g
Remplacer par : ^&^p^m
3 - Remplacer tout

Explication :
^g correspond à une image
^& correspond au contenu recherché (trouvé en fait)
^p pour ajouter un paragraphe, vous pouvez en ajouter plusieurs
^m correspond à un saut de page

une fois le R&R fait vous pouvez continuez à modifier les images et ajouter des textes

[ec]

Bonjour,

une solution...
1 - insérer tous les images du dossier
2 - Ctrl+H
Remplacer : ^g
Remplacer par : ^&^p^m
3 - Remplacer tout

Explication :
^g correspond à une image
^& correspond au contenu recherché (trouvé en fait)
^p pour ajouter un paragraphe, vous pouvez en ajouter plusieurs
^m correspond à un saut de page

une fois le R&R fait vous pouvez continuez à modifier les images et ajouter des textes

Une solution ou une énigme ?

[Nain porte koi]

Qqchose n'est pas clair ?
peut-être "R&R" Recherche et Remplace

Edit : je me suis trompé dans la première réponse, ça n'est pas "Remplacer" mais "Rechercher"

[Krispé]

Bonjour

Onglet Insertion > Image > ouvrir le dossier contenant les images
Ctrl A pour toutes les sélectionner
Insérer

Il restera à insérer des sauts de page éventuellement s'il y a plusieurs images sur une page.

C'est à faire pour chaque dossier.

Chris

[ec]

Bonjour

Onglet Insertion > Image > ouvrir le dossier contenant les images
Ctrl A pour toutes les sélectionner
Insérer

Il restera à insérer des sauts de page éventuellement s'il y a plusieurs images sur une page.

C'est à faire pour chaque dossier.

Chris

Cela peut être complété par une macro.

1. Placer le curseur juste avant la première photo
2. Déclencher l'enregistrement de la macro
3. Touche flèche à droite (pour placer le curseur après la photo)
4. Insertion saut de page (automatiquement le curseur se place juste avant la photo suivante)
5. Arrêt de l'enregistrement de la macro
6. insertion d'un bouton dans la barre d'accès rapide pour déclencher l'exécution de la macro.

Exécution de la macro

Charger les photos dans un nouveau document comme indiqué par Krispé

1. Placer le curseur juste avant la première photo
2. Cliquer sur le bouton de la macro dans la barre d'accès rapide pour chaque photo.

Je l'ai testé sur 133 photos de 2000px de plus grand côté et sur 55 photos de 300px de plus grand côté. J'ai eu une ou deux fois la création d'une page vide comme seul défaut. Cela prend un peu plus d'une minute pour 133 photos. (test pour 100 photos sans se presser 1 minute)
Pour les développeurs VBA il sera très facile de dénombrer les photos et de faire une boucle autant de fois que nécessaire pour répéter automatiquement la macro. On pourra même intégrer à la procédure VBA le choix du dossier et le téléchargement des photos du dossier. Une fois le dossier sélectionné dans la procédure toutes les pages seront générées avec une photo par page.



Sur cette image indication de la position de départ pour l'enregistrement et l'exécution de la macro. Dans la barre d'accès rapide on peut voir le bouton de déclenchement de la macro que j'ai créé "SautDePagePhoto".

[ec]

J'ai crée en VBA la boucle pour résoudre le problème. Je l'ai testée sur 3516 photos ayant 2000 px de coté le plus long. La procédure a tourné pendant 6 minutes et qq secondes (ASUS UX 425 Intel I7 32 Go Ram). Mais le plus long a été le chargement des photos dans Word (environ 15 minutes). A la fin de l'intégration j'avais 1900 pages environ. Au total, après exécution de la procédure, mon document compte 3417 pages. Donc il y a quelque part une page vide (Probablement provoqué par une photo verticale qui occupait toute la page). Sur le disque il prend 2 Go une fois enregistré.

On lance la procédure SautDepagePhoto après chargement des images, comme indiqué dans mon message précédent.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub SautDePagePhoto()
    Dim NbImg As Long, x As Long
    NbImg = CompteImages
    For x = 1 To NbImg
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.InsertBreak Type:=wdPageBreak
    Next x
End Sub
 
Function CompteImages() As Long
    Dim vlNbImg As Long
    With ActiveDocument
        vlNbImg = .InlineShapes.Count + .Shapes.Count
    End With
    CompteImages = vlNbImg
'    MsgBox vlNbImg
End Function