Discussion :

[Bullwyf]

Bonjour à toutes et à tous,

Je souhaite optimiser un mémoire pour gagner du temps dans mon métier. Je réponds à des appels d'offres dans lesquels je dois fournir un mémoire.

Ce mémoire est composé de plusieurs parties (souvent entre 1 à 10 parties). Ces parties sont de type: Présentation de l'entreprise, organisation etc.

J'ai déjà commencé par l'automatisation de champs pour remplir mon document automatique avec des macros, cependant, toutes les parties ne sont pas obligatoire dans ma réponse. C'est pour cela que je souhaiterai réaliser un formulaire ou autre pour sélectionner les parties obligatoires à l'aide de case à cocher.

Connaissez-vous une macro qui pourrait m'aider à ce sujet ?

D'avance je vous remercie de votre aide.

PS: Je me permets de vous joindre mon fichier Word afin d'être plus précis. Mémoire.docx

[Heureux-oli]

Salut,

Dans mes tutos, il y a la réalisation d'un document à tiroir. Je pense que ça devrait faire l'affaire

[Bullwyf]

Bonsoir,

Merci à toi pour cette réponse. Je regarde lundi ton article et je reviendrai faire un petit commentaire en cas de succès ou besoin d'aide.

Bonne soirée,

[Bullwyf]

Bonjour,

Je me permets de revenir vers vous car j'ai un souci avec la ligne tblListe(intP,1) = tblTem(1) ou à chaque que j'y arrive il me met l'erreur 9.

Quand je la supprime j'arrive bien à ouvrir le useform mais par contre il n'y a pas forcement les données que je cherche ...

Peux-tu m'aider Heureux-oli ?

Cdt,


Voici ce que j'ai en macro

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub UserForm_Initialize()
'Déclaration des variables
Dim oDoc As Document
Dim pAra As Paragraph
Dim tblListe() As String 'tableau pour le remplissage de la liste
Dim tblTemp() As String 'Tableau temporaire pour la fonction split
Dim intP As Integer 'Entier pour l'index des paragraphes
 
    'Affectation des données aux objets
    Set oDoc = Application.Documents.Open("L:\MEMOIRES\Mémoire.docm")
    'ActiveDocument.Paragraphs
    'redimensionnement du tableau en fonction du nombre de paragraphes
    'contenus dans le document
    ReDim tblListe(oDoc.Paragraphs.Count, 1)
 
    ''Boucle sur le paragraphes du document
 
    'For Each pAra In ActiveDocument.Paragraphs
    For intP = 1 To oDoc.Paragraphs.Count
 
        ''remplissage du tableau temporaire
 
        tblTemp() = Split(oDoc.Paragraphs(intP).Range.Text, "| ")
 
        'tblTemp() = Split(pAra.Range.Text, "- ")
 
'' tableau temporaire vers la table de remplissage
 
        tblListe(intP, 0) = tblTemp(0)
        'tblListe(intP, 1) = tblTemp(1)
        'MsgBox tblListe(intP, 0)
    Next intP
 
 
    'transfert des données vers la liste du UserForm
    Me.LstChoix.List = tblListe
    'Fermeture et libération des objets
    'oDoc.Close
    Set oDoc = Nothing
 
 
End Sub

[Heureux-oli]

Salut,

Comment est construit ton document ?

[Bullwyf]

Bonsoir,

Mon document est structuré avec des sauts de pages et saut de section pour chaque partie. Tout les titres sont en titre 1 les sous titre en titre 2 et il y a un sommaire pour chaque partie avant.

Cela t'aide t'il ?

Cdt,

[Heureux-oli]

Salut,

Le code que je donne dans le tuto est utilisé pour une structure type.
Les données dans un paragraphes sont séparées par des | et un paragraphe par entrée.

Dans ton cas, je passerais par un tableau et j'utiliserais les cellules pour contenir les données.

[Bullwyf]

Salut,

Ok je vais essayer.

Merci de ton aide.

Cdt,