Discussion :

[marco000]

Bonjour,

J'ai besoin de concatener 2 fichiers .doc à partir d'Excel. Donc me voici parti faire une macro puisque je dois répéter cette opération plusieurs fois.

Voici mon script:

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
Sub concat()
'
' concat Macro
' Macro enregistrée le 25/08/2006 par S084512
'
Dim appWD As Word.Application
 
Range("F2").Select
chemin1 = "Y:\SUNRISE\cartouche"
nom1 = chemin1 & "\" & Selection.Hyperlinks(1).Name
 
Range("G2").Select
chemin2 = "Y:\SUNRISE"
nom2 = chemin2 & "\" & Selection.Hyperlinks(1).Name
Set appWD = CreateObject("Word.Application")
appWD.Visible = True
 
appWD.Documents.Open nom1
 
appWD.Selection.EndKey Unit:=wdStory
 
appWD.Selection.InsertFile nom2
 
End Sub

J'insert 'nom2' à la suite de 'nom1' mais je n'arrive pas à conserver la Police de caractères de 'nom2'.

La mise en page et les caractères sont modifiés.

Quelqu'un pourrait-il me donner la solution?

Merci d'avance.

Marco.

[SfJ5Rpw8]

as-tu essayé de le faire "à la main", tout en utilisant l'enregistreur de macro histoire de voir l'allure du code à écrire...

[marco000]

Salut,

Oui j'ai commencé par le faire à la main mais j'ai été confronté à des problèmes de mise en page (entetes, marges...). La macro élimine ces problèmes mais je ne comprend pas le changement de police de caractères.

...

Marco.

[Lexot2]

Bonjour

Ne serait-il pas plus simple de faire cette opération avec vba word? L'utilisation de l'enregistreur de macros de word simplifierait la tâche. Idée à creuser....

[marco000]

Je suis passé par Excel car j'ai besoin de récuper les noms des fichiers (1300 noms) dans un tableau.

Pensez-vous qu'une macro depuis WORD me règlera mon problème de polices?

Merci.

Marco.

[SfJ5Rpw8]

tu ne doit pas obligatoirement passer sous Word.. si tu le désire tu peu continuer sous excel.. mais pour déterminer le code à ècrire .. as tu réussi à faire une insertion "manuelle" d'un fichier sans avoir le probléme de police..?

si oui.. utilise l'enregistreur de macro pour généré le code .. et "étudie" le code généré pour l'adapter à ta macro...

[jmfmarques]

Serait-ce une mauvaise idée que d'insérer une marque de fin de section avant l'insertion de nom2 à la suite de nom1.... puis d'importer nom1 dans sa nouvelle globalité ?

[marco000]

Oui je viens d'essayer mais ca marche toujours pas...


Marco

[SfJ5Rpw8]

Oui je viens d'essayer mais ca marche toujours pas...


Marco

essayer quoi..?

[plegat]

Salut,

J'insert 'nom2' à la suite de 'nom1' mais je n'arrive pas à conserver la Police de caractères de 'nom2'.

La mise en page et les caractères sont modifiés.

Il doit y avoir une incompatibilité de style entre les deux fichiers.

Regarde le style de chaque fichier pour un paragraphe normal (ça doit être un style "normal" ou "paragraphe", ou quelque chose dans le genre).
Si les styles portent le même nom, mais n'ont pas la même police, tu ne pourras pas importer le second en gardant sa police, ça va automatiquement prendre le style du premier, donc la police du premier.

Donc, la solution: utiliser le même jeu de styles (et également de mise en page, marges, tabulations, interlignes...) pour tous tes fichiers.


Et sinon, pour faire ce boulot de concaténation de fichiers, normalement il y a une fonction "document maitre" dans word... qui évite de jouer de la macro...

[zazaraignée]

Salut

Boah!

Moi, je tenterais ceci:

Je ferais une macro qui créerais un document maître (ou utiliserait un tel document existant) dans lequel je placerais les documents en question comme sous-documents. Y'aurais plus qu'a mettre la mise en forme dans le document maître. Au fait, vous connaissez les documents maîtres? Je m'arrangerais ensuite pour lancer la macro de Word depuis Excel (si besoin est) en plaçant une référence à Word dans mon projet Excel, bien sur. Mais, bon, mon idée n'est peut-être pas parfaite, surtout qu'elle n'est pas testée.

[marco000]

Merci pour ces aides, et non je ne connais pas les documents maitres mais je vais essayer ça et je vous tiens au courant.

@+

Marco

[marco000]

Voilà, je viens de passer quelques heures à tenter de fusionner ces 2 fichiers avec la méthode du documents maitre, mais le resultat est négatif.

La police de caractère du 2ème fichier change encore et toujours!!

N'y a t'il pas un moyen simple de fusionner deux documents ayant des polices de caractères différentes en conservant ces différences??

J'avoue que je ne m'attendait pas de telles difficultées avec un logiciel comme Word!!!

Sauvez-moi...

Marco.

[SilkyRoad]

bonsoir

je viens viens de tester la procédure indiquée dans ton 1er message: les formats respectifs sont bien conservés (OfficeXP)

quelles sont les polices de tes 2 documents ?


michel

[marco000]

Bonjour Michel,

Voici les polices de ces 2 documents:

Document 'nom1': Arial et taille: 10

Document à insérer 'nom2': Times New Roman et taille: 12


A noter que je dois fusionner le document 'nom1' avec plus de 500 autres documents, lesquels ont été crées avec des versions différentes de Word. Le problème pourrait-il venir de là?

Merci...

Marco.