VBA: insertion du document Word [Résolu]

[kabbajreda]

Bonjour,

je viens de débuter avec VBA et je voudrai insérer le contenu d'une page Word à la fin d'un autre document Word

merci pour votre aide

[ouskel'n'or]

Tu veux faire ça depuis Excel ? Pour débuter, ce n'est pas le plus facile... C'est mieux depuis Word où tu peux enregister la macro en faisant
Mais si c'est ce que tu veux... Tu dis
A+

[kabbajreda]

Non pas sur Excel. mon problème au juste, c'est que j'ai des documents Word dans un repertoire, et je veux insérer leurs contenu dans l'annexe d'un autre document word.

si vous pouvez m'aider et merci

[ouskel'n'or]

Tu as deux solutions :
Ou tu insères simplement le contenu, et c'est une simple copie, mais les styles et la présentation peut s'en trouver modifiée,
Ou tu insères le document avec sa mise en page, ses styles, etc.
Que veux-tu faire ?

[kabbajreda]

avec la deusième solution c'est mieux. si non même la première peut faire la faire

merci

[ouskel'n'or]

Code :

1
2
3
4
    NomDuFichierAInsérer = Chemin & NomFichier
    Selection.EndKey Unit:=wdStory 'pour insérer à la fin du document principal
    Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8", FileName _
        :=NomDuFichierAInsérer, LinkToFile:=False, DisplayAsIcon:=False

A+

[kabbajreda]

Bonjour,

merci pour le code, ca marche, mais j'ai comme resultat juste l'image du contenu et juste la première page

merci

[kabbajreda]

C'est bon, j'ai trouvé comment faire, il suffit d'ajouter les 2 lignes de codes suivant:

Selection.EndKey Unit:=wdStory 'pour insérer à la fin du document principal
Selection.InsertFile FileName:=nom_Fichier_à_insérer

merci pour votre aide