Discussion :

[Tanoak_LaCapuche]

Bonjour à tous.

Voilà j'ai un besoin que je pensais pouvoir gérer en OpenXml (étant plus expérimenté en C#) mais au final je pense que ce sera bien plus simple avec une macro vba.

Pour l'idée, j'ai un document .docx dont la structure est la suivante :

--- > tableau d'une seule ligne, avec 4 colonnes représentants les caractéristiques d'un défaut (Nom, commentaires etc.. )

--- > Puis à la suite une série d'images en logigramme du code générant ce défaut.

----> Et ainsi de suite pour plusieurs défauts.

Ce que je désirerais faire, c'est créer un .pdf pour chaque défaut. (Avec nom, commentaires, et juste les images associées)

Voilà c'est un peu global comme question, mais je voulais savoir si fonctionnellement c'était faisable, et si vous pouviez m'aiguiller.


N’hésitez pas si j'ai pas été assez clair.

Merci pour votre temps.

[Heureux-oli]

Salut,

On peut en VBA sélectionner un tableau.

Partant de là, on peut aller jusqu'au tableau suivant en prenant le contenu.

Mais ce qu'on ne sait pas faire, c'est définir une zone d'impression qui ne commence pas au début d'une page et qui ne finit pas à la fin d'une page.

Je pense qu'il sera nécessaire de passer par des fichiers intermédiaires et un copier coller d'une zone du document que l'on aura sélectionnée.

[Tanoak_LaCapuche]

Salut oli,

Merci pour ta réponse. J'ai lu ton tuto sur le word justement, merci pour ça aussi !

Oui je pensais justement copier coller la sélection dans un nouveau fichier, et c'est ce fichier temporaire que je passerais en pdf.

Pour sélectionner le tableau pas de soucis, je vais au suivant avec un GotoNext si j'ai bien assimiler le tuto, par contre je ne vois pas comment sélectionner tout ce qu'il y a entre les deux... ?

[Heureux-oli]

Salut,

Juste une question qui me passe par la tête. Tes images sont-elles flottantes ou en ligne avec le texte ?

[Tanoak_LaCapuche]

Re,


Mes images sont centrées, d'ailleurs les tableaux également.
En revanche je n'ai vraiment aucun texte dans le document, juste le tableau les images à la suite et le tableau suivant.
Je ne sais pas si cela répond à ta question correctement.

[Heureux-oli]

Salut,

Je viens de faire un test avec une image en ligne et une image flottante.
Si l'image flottante est ancrée correctement, elle est copiée.

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
19
20
21
22
 
Sub CopieZoneDeDoc()
Selection.HomeKey unit:=wdStory
 
ActiveDocument.Tables(2).Range.Select
Selection.Collapse direction:=wdCollapseStart
Selection.Bookmarks.Add Name:="SS", Range:=Selection.Range
Selection.HomeKey unit:=wdStory
ActiveDocument.Tables(3).Select
Selection.Collapse direction:=wdCollapseStart
Selection.Bookmarks.Add Name:="SE"
 
ActiveDocument.Range(Start:=ActiveDocument.Bookmarks("SS").Start, End:=ActiveDocument.Bookmarks("SE").End).Select
Selection.Copy
 
Documents.Add
Selection.Paste
 
 
 
 
End Sub

Dans cet exemple, je copie ce qui se trouve entre le tableau 2 et 3.

Il faut adapte rle code pour le dernier tableau du document.
Et faire une boucle sur tous les tableaux, mais ce n'est pas le plus difficile à réaliser.

[Tanoak_LaCapuche]

Merci beaucoup de m'avoir consacré de ton temps !

J'essaye tout ça cet aprèm et je te tiens au courant.

[Tanoak_LaCapuche]

Salut Oli,

Tout d'abords un grand merci, ce code marche nickel une fois adapté correctement.

J'ai pas encore traité le cas du dernier défaut, mais je suppose que je devrais mettre un signet à la fin du document. Y a t-il une syntaxe pour définir la fin d'un word ??

Sinon je voudrais également une fois le pdf généré et sauvegardé correctement supprimer le doc temporaire sans le sauvegarder, le Close suffit-il ?

J'ai essayé, le Close lance la boîte de dialogue "voulez-vous sauvegarder ?"
Est-il possible de ne pas la lancer en ne sauvegardant pas ?

Autant pour moi en fouillant un peu.
J'ai juste mis le doc.Saved à true pour que l'appli le voit comme déjà sauvegardé.

[Tanoak_LaCapuche]

C'est bon pour la fin, il suffit d'un

Code :

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

Selection.EndKey

Et de placer un signet à cet endroit là.


Merci encore !