Création macro word pour copier-coller

[marmi]

Bonjour,

J'ai envoyé un document word à plusieurs personnes de type : Première partie, seconde partie, troisième partie etc.

Ces personnes doivent remplir ces parties et me retourner le document.

Compte tenu de la nature des différentes parties, il ya une personne dédiée par partie pour l'analyser. Ex : Jean analyse toutes les premières parties des documents words retournés

Mon problème est le suivant ; J'aimerais créer une macro qui fasse

Dans le répertoire où se trouve l'ensemble des documents words retournés, ouvre premier fichier word, copie contenu première partie, colle contenu dans un nouveau document word qui s'appelera "synthèse des premières parties" puis ferme le premier fichier word. Ensuite, ouvre second fichier word, copie contenu première partie dans le document "synthèse des premières parties" à la suite. Et ce pour tous les documents words et pour toutes les parties.

L'idée étant d'avoir à la fin plusieurs fichiers word nommé "synthèse première partie", "synthèse deuxième partie" etc. pour que chaque analyste n'est qu'un seul document word à regarder

Est-ce possible ? Merci pour votre aide

[ouskel'n'or]

Pour la liste des fichiers à copier, tu as plusieurs méthodes.
Soit tu connais les noms, auquel cas tu crées un tableau du chemin complet
Soit tu dois les retrouver dans un répertoire donné et la FAQ doit te proposer ça.
Pour le principe,
Création d'un nouvau document (Doc1)
Parcours du tableau contenant les noms de fichiers 'Début boucle
- Ouverture de chaque fichier
- Copie du contenu
- Collage dans Doc1
- Fermeture du fichier
Fin boucle
Enregistrement de Doc1

Code :

1
2
3
4
5
6
7
8
9
10
11
Set Doc1 = Documents.Add(Template:="Normal")
LeTableau = Array("D:\Doc\Fiche1.doc", "D:\Doc\Fiche2.doc","D:\Doc\Fiche3.doc","D:\Doc\Fiche4.doc","D:\Doc\Fiche5.doc")
'Début boucle sur la liste des fichiers
For i = 1 to Ubound(LeTableau)
    Set Doc2 = Document.Open LeTableau(i)
    Selection.WholeStory
    Selection.Copy
    Doc1.Selection.PasteAndFormat (wdPasteDefault)
    Doc2.close false
Next i
Doc1.saveas NouveauNomComplet

Tu dis
A+