Adapter nombre de pages word en fonction de mes données excel

Version imprimable

Voir 40 message(s) de cette discussion en une page

09/04/2021, 17h13
Gwelawen

Adapter nombre de pages word en fonction de mes données excel

Bonjour à tous,

Vous m'avez beaucoup aidée jusqu'ici alors j'espère pouvoir encore en profiter :mrgreen:

Je vais essayer d'être claire mais j'ai moi même du mal à formuler ce qu'il me faut…

Je dois, à partir d'un document excel qui est lui-même une extraction d'une base de données, générer un document word.

Mon fichier excel :
Je lui donne une référence et il se rempli avec toutes les données à extraire de celle-ci.
Ces références peuvent contenir de 1 à 28 objets différents et les données de chaque objet est également extrait en même temps dans des tableaux.
Jusque là tout est OK (grâce à certaine personne de ce forum).

A partir de là je veux créer un word.
Pour ce faire, j'ai fait un modèle rempli de signets que je rempli grâce à ma macro.
Le modèle word se compose ainsi : 4 pages pour présenter la référence et 4 pages pour détailler chaque objets (toujours sur le même format c'est réglementé)
Ca aussi c'est OK

Mon problème :
Etant donné que je peux avoir des références qui ne contiennent qu'un objet comme je peux en avoir qui en ont 28 je voudrais que ma macro me génère directement un document de 8, 12, 16, …, 116 pages.

Est-il possible de dire à ma macro que si telle cellules n'est pas vide elle peut générer 4 pages supplémentaires, en gros répéter les 4 dernières pages et les remplir avec le tableau correspondant ?
Ou bien inversement, si je fais un modèle de 116 pages, est ce que je peux dire à ma macro que si telle cellule est vide on supprime les pages restantes ?

Si oui, comment ? Ou toute autre solution… je suis toute ouïe…

J'espère avoir été claire^^

Merci d'avance à ceux qui essaieront de m'aider!
09/04/2021, 17h58
Invité

Citation:

Envoyé par Gwelawen

Bonjour,

Une solution consisterait à créer un modèle Word dans lequel vous auriez défini vos 4 pages que vous auriez sauvegardé en tant que Quickpart. Il suffirait de vous placer en fin de document et d'appeler l'objet Quickpart chaque fois que vous en auriez besoin.

Pour comprendre, ouvrez un fichier Word, dans le menu Insertion cliquez sur Quickpart, Organisateur de blocs de construction.
Une fois compris le système, vous sélectionnez vos 4 pages et Insertion, Quickpart et vous enregistrez la sélection dans la galerie des composants Quickpart.
Une fois l'objet enregistré, vos 4 pages sont disponibles dans la fenêtre Quikcpart.

Pour le code, il vous faudra créer une macro depuis votre document Word pour enregistrer la séquence qui vous permet d'importer votre Quickpart, puis l'adapter à votre code Excel.
12/04/2021, 07h54
Gwelawen

Citation:

Envoyé par Eric KERGRESSE

Bonjour,

Une solution consisterait à créer un modèle Word dans lequel vous auriez défini vos 4 pages que vous auriez sauvegardé en tant que Quickpart. Il suffirait de vous placer en fin de document et d'appeler l'objet Quickpart chaque fois que vous en auriez besoin.

Pour comprendre, ouvrez un fichier Word, dans le menu Insertion cliquez sur Quickpart, Organisateur de blocs de construction.
Une fois compris le système, vous sélectionnez vos 4 pages et Insertion, Quickpart et vous enregistrez la sélection dans la galerie des composants Quickpart.
Une fois l'objet enregistré, vos 4 pages sont disponibles dans la fenêtre Quikcpart.

Pour le code, il vous faudra créer une macro depuis votre document Word pour enregistrer la séquence qui vous permet d'importer votre Quickpart, puis l'adapter à votre code Excel.

Merci beaucoup, je vais essayer.

Quelle type de macro je dois créer dans word ?
12/04/2021, 08h21
Invité

Citation:

Envoyé par Gwelawen

Il n'y a qu'un seul type, mais sauvegardez-là dans votre fichier Word en cours et pas dans le Normal.dot qui est la destination par défaut.
12/04/2021, 08h26
Gwelawen

Citation:

Envoyé par Eric KERGRESSE

Il n'y a qu'un seul type.

C'est-à-dire ? Je débute à peine avec les macro excel et j'ai encore jamais essayé les macros Word...
12/04/2021, 08h38
Invité

Citation:

Envoyé par Gwelawen

Comme dans Excel, vous allez créer d'abord votre macro pour enregistrer les différentes séquences pour importer votre Quickpart. A la fin de la séquence, vous terminez la macro et vous faîtes Alt-F11 pour ouvrir l'éditeur VBA. Vous irez ensuite dans le module qui aura été généré pour voir ce que la macro aura enregistré.
Dans Word la macro est enregistrée par défaut dans le fichier Normal.dot, d'où ma remarque pour la sauvegarder dans votre fichier en cours. Il est possible que la macro n'enregistre pas toutes les séquences mais pour ce que vous devez faire cela devrait aller.
12/04/2021, 08h53
Gwelawen

Citation:

Envoyé par Eric KERGRESSE

Comme dans Excel, vous allez créer d'abord votre macro pour enregistrer les différentes séquences pour importer votre Quickpart. A la fin de la séquence, vous terminez la macro et vous faîtes Alt-F11 pour ouvrir l'éditeur VBA. Vous irez ensuite dans le module qui aura été généré pour voir ce que la macro aura enregistré.
Dans Word la macro est enregistrée par défaut dans le fichier Normal.dot, d'où ma remarque pour la sauvegarder dans votre fichier en cours. Il est possible que la macro n'enregistre pas toutes les séquences mais pour ce que vous devez faire cela devrait aller.

J'essaye et je reviens quand je bloque :lol:

Ok,

Je pense avoir trouvé comment coder ma macro pour insérer le quickpart avec le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Macro1() Dim objTemplate As Template Dim objBB As BuildingBlock Set objTemplate = ActiveDocument.AttachedTemplate Set objBB = objTemplate.BuildingBlockTypes(wdTypeCustomQuickPart) .BuildingBlocks ("Tuyauterie supplémentaire") objBB.Insert Selection.Range, RichText:=True End Sub
Par contre je ne vois pas comment lui dire de l'insérer à la fin du document ni comment lui dire où et comment prendre les infos dans les bonnes cases excel...

Citation:

Envoyé par Eric KERGRESSE

Comme dans Excel, vous allez créer d'abord votre macro pour enregistrer les différentes séquences pour importer votre Quickpart. A la fin de la séquence, vous terminez la macro et vous faîtes Alt-F11 pour ouvrir l'éditeur VBA. Vous irez ensuite dans le module qui aura été généré pour voir ce que la macro aura enregistré.
Dans Word la macro est enregistrée par défaut dans le fichier Normal.dot, d'où ma remarque pour la sauvegarder dans votre fichier en cours. Il est possible que la macro n'enregistre pas toutes les séquences mais pour ce que vous devez faire cela devrait aller.

Bonjour, je bloque toujours...

Différents points :
J'ai enregistré hier mon quickpart dans mon fichier en cours mais il était enregistré dans normal.dotm ce matin… j'ai essayé de changer mais il ne me propose que normal.dotm ou buildingblocks…

J'ai créé la macro dans VBA Word pour insérer le quick part mais impossible de la lancer via ma macro Excel avec WordApp.Run (NewMacros.Macro1)

La macro word enregistrée est :
Code:

1 2 3 4 5 6 7 8 9 10 Sub Macro1() ' ' Macro1 Macro ' ' Application.Templates( _ "C:\Users\h49980\AppData\Roaming\Microsoft\Templates\Normal.dotm"). _ BuildingBlockEntries("Tuyauterie supplémentaire").Insert Where:=Selection _ .Range, RichText:=True End Sub
J'ai aussi un autre problème c'est que du coup je vois que le chemin mène à un fichier de mon ordi alors qu'il faudrait que ce soit un fichier du serveur…

Au secours! Je rame… :cry:

Citation:

Envoyé par Gwelawen

Si cela vous paraît trop compliqué, regardez cette autre méthode. La procédure TestFormaterUnDocWord permet de générer et de sauvegarder un .docm qui contiendra N fois les 4 pages d'un document modèle au format .docm. Le zip contient le fichier Excel et un modèle .docm de 4 pages.

En phase de développement, je vous conseille de déclarer vos variables comme dans le code joint. Une fois votre programme au point, déclarez l'instance Word en late binding, pour vous affranchir des différentes versions de Word qui pourraient être utilisées.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
Option Explicit
 
Sub TestFormaterUnDocWord()
 
    FormaterUnDocWord 5, ActiveWorkbook.Path & "\Modèle pages 1 à 4.docm", ActiveWorkbook.Path & "\TestDoc03.docm"
 
End Sub
 
Sub FormaterUnDocWord(ByVal Nb4Pages As Integer, ByVal CheminCompletDuModele As String, ByVal NomCompletSauvegarde As String)
 
Dim WdApp As Word.Application, WdDoc As Word.Document, WdModele As Word.Document  ' En early binding (Si Word est référencé) pour la phase développement
' Dim WdApp As Object, WdDoc As Object, WdModele As Object ' En late binding sans que Word soit référencé pour l'exploitation en réel
 
Dim Repertoire As String
Dim I As Integer
Dim HeureDebut, HeureFin, TempsTotal
 
    HeureDebut = Timer    ' Définit l'heure de début.
 
    On Error GoTo FinWord
 
    Application.ScreenUpdating = False
 
 
    Repertoire = ActiveWorkbook.Path & "\"
 
    Set WdApp = CreateObject("Word.Application")
 
    With WdApp
 
         .Visible = True
         Set WdModele = .Documents.Open(CheminCompletDuModele)
         Set WdDoc = .Documents.Add
 
         For I = 1 To Nb4Pages
             WdModele.Range.Copy
             With WdApp.Selection
                  .EndKey unit:=6 'wdStory
                  .Paste
                  .EndKey unit:=6 'wdStory
                  If I < Nb4Pages Then .InsertBreak Type:=wdPageBreak
             End With
         Next I
         WdModele.Close savechanges:=False
 
         With WdDoc
              .SaveAs2 NomCompletSauvegarde
              .Close
         End With
 
    End With
 
    HeureFin = Timer
    TempsTotal = HeureFin - HeureDebut
    MsgBox "Temps total du traitement : " & Round(TempsTotal, 0) & " seconde(s)", vbInformation
 
    GoTo FinWord
 
FinWord:
 
    Application.ScreenUpdating = True
 
    WdApp.Quit
    Set WdApp = Nothing: Set WdDoc = Nothing: Set WdModele = Nothing
 
End Sub

13/04/2021, 16h15
Gwelawen

Citation:

Envoyé par Eric KERGRESSE

Si cela vous paraît trop compliqué, regardez cette autre méthode. La procédure TestFormaterUnDocWord permet de générer et de sauvegarder un .docm qui contiendra N fois les 4 pages d'un document modèle au format .docm. Le zip contient le fichier Excel et un modèle .docm de 4 pages.

En phase de développement, je vous conseille de déclarer vos variables comme dans le code joint. Une fois votre programme au point, déclarez l'instance Word en late binding, pour vous affranchir des différentes versions de Word qui pourraient être utilisées.

Depuis mon appel au secours de ce matin j'ai fini par réussir à lancer la macro qui insert le quickpart et au bon endroit^^ (oui, j'ai sauté de joie quand ça a fonctionné!)
Du coup mon idée maintenant (surtout ne pas hésiter à me dire si c'est de la m**de ou si ça marchera jamais^^) :
- Créer différents Quickpart en fonction du nombre de pages que je doit insérer rempli de signets à remplir avec mon fichier excel
- Coder dans VBA excel mes boucles pour remplir tous mes signets
- Créer différentes macro d'insertion quickpart en fonction du nombre de pages que je ferai se déclencher dès le début en fonction du nombre de page (j'ai une case excel qui me le dit donc j'ai essayé avec If Then et ça a l'air de marcher^^)

En gros je voudrais dire à excel, y'a tant de pages donc fait mon modèle Word adapté puis rempli tous les signets.

C'est jouable ou je me complique trop la vie ou je vais droit dans le mur ?

Si jamais c'est jouable, mon seul soucis est le chemin du Quickpart car faut que n'importe qui puisse executer la procédure (fichiers à dispo sur le réseau de la boite)
13/04/2021, 16h25
Invité

Citation:

Envoyé par Gwelawen

Avant de vous répondre, avez-vous réussi à placer votre Quickpart dans le document modèle, ou bien est-il toujours dans votre Normal.dot ?
Si le QuickPart est dans votre document modèle, testez le sur un autre poste que le vôtre pour voir s'il contient bien votre Quickpart.
13/04/2021, 16h28
Gwelawen

Citation:

Envoyé par Eric KERGRESSE

Avant de vous répondre, avez-vous réussi à placer votre Quickpart dans le document modèle, ou bien est-il toujours dans votre Normal.dot ?
Si le QuickPart est dans votre document modèle, testez le sur un autre poste que le vôtre pour voir s'il contient bien votre Quickpart.

Non, justement lors de l'enregistrement il ne me propose que Normal.dot ou Buildblock comment je peux l'enregistrer dans mon modèle ?
13/04/2021, 16h37
Invité

Citation:

Envoyé par Gwelawen

Non, justement lors de l'enregistrement il ne me propose que Normal.dot ou Buildblock comment je peux l'enregistrer dans mon modèle ?

En resélectionnant les 4 pages et en enregistrant la sélection dans Building Blocks.dotx
Pièce jointe 595597

Regardez ensuite sur un autre poste que le vôtre si vous avez ce schéma dans l'éditeur VBA et si vous pouvez importer votre Quickpart comme sur votre poste.
Pièce jointe 595598
13/04/2021, 16h41
Gwelawen

Citation:

Envoyé par Eric KERGRESSE

Je vais faire ça et je demanderai à mes collègues demain (on est en télétravail) merci!

Et si jamais c'est bon mon idée de faire différents quickpart et différentes macro est bonne ?
13/04/2021, 16h48
Invité

Citation:

Envoyé par Gwelawen

Et si jamais c'est bon mon idée de faire différents quickpart et différentes macro est bonne ?

Va se poser le problème de l'identification des champs et des signets. Je verrai plutôt une solution qui serait compatible avec les deux solutions (Quickpart et celle du fichier transmis cet après midi). Au lieu d'importer les 4 pages directement sur le document principal, on génère et on remplit un document intermédiaire avec les signets composant les 4 pages puis on importe le document rempli dans le document principal.
13/04/2021, 17h08
Gwelawen

Citation:

Envoyé par Eric KERGRESSE

Va se poser le problème de l'identification des champs et des signets. Je verrai plutôt une solution qui serait compatible avec les deux solutions (Quickpart et celle du fichier transmis cet après midi). Au lieu d'importer les 4 pages directement sur le document principal, on génère et on remplit un document intermédiaire avec les signets composant les 4 pages puis on importe le document rempli dans le document principal.

Oui, je suis d'accord… Je vais me retrouver avec des boucles à 3 variables… :arf:

Ce que tu dis serait génial mais comment je fais pour lui dire que pour les 4 premières pages faut prendre ces valeurs là et pour les 4 suivantes ces valeurs ci et ainsi de suite ?
Et aussi faut pas oublier que les 4 premières pages sont différentes et je vois pas du coup où elles sont dans ton code… à moins que ce soit le Modèle pages 1 à 4 ? et après les 4 pages répétitives en quick part ?

Je pense qu'en cette fin de journée mon cerveau est tordu aussi… :fou:
13/04/2021, 17h16
Invité

Citation:

Envoyé par Gwelawen

Je ne comprends pas bien : Comment sont organisées tes données ? Le modèle de fichier que j'ai joint, c'est ni plus ni moins que ton Quickpart.

Dans le code que je t'ai transmis, tu importes ton Quickpart et tu le remplis avec ta série de données correspondant à une série de 4 pages. Je ne vois pas le problème.
Si les 4 premières pages du document sont complètement différentes, tu prends la série de données ad doc et tu remplies tes 4 premières pages avec.
La question est de savoir comment sont organisées tes données dans ta base.
13/04/2021, 17h31
Gwelawen

C'est moi qui avait bloqué sur un truc en effet^^

Citation:

Envoyé par Eric KERGRESSE

La question est de savoir comment sont organisées tes données dans ta base.

La base de données, c'est pas moi qui l'ai faite et du coup elle est organisée en tableaux :
- 1 avec les données de la référence (4 premières pages)
- 28 qui sont alignés avec les données des objets qui composent la référence… (1 objet = les 4 pages Quickpart)

Du coup en gros pour l'info "infoA_1" d'un objet, la même info pour l'objet suivant "infoA_2" est situé sur la même ligne mais 7 colonnes plus loin

Je sais pas si c'est clair…

(Oui, je voulais que les données soient mises en colonnes >_<!)
13/04/2021, 17h43
Invité

Citation:

Envoyé par Gwelawen

Le code est donc de tester la présence d'une donnée dans chacun des 28 tableaux et le cas échéant de les déverser à chaque fois après avoir généré le document de 4 pages. Cela ne doit pas être très compliqué.

Nb : Ce genre de présentation est inexploitable s'il s'agit de faire des analyses, il est peut-être encore temps de revoir la présentation. Il aurait été préférable d'avoir un seul tableau avec 1 indice de 1 à 28 pour identifier la série.

Voir 40 message(s) de cette discussion en une page