[VBA-W]Inserer le contenu d'un fichier word mon doc word [Résolu]

[dev81]

Bonjour,
Comment je peux faire pour inserer le contenu d'un fichier .doc dans mon doc word ?
En connaissant le chemin du doc que je veux insérer.

Merci pour vos réponses.

[dadavyvy]

En fait, tu testes le forum, c'est ça?
il reste encore : Access vers Word, Visio vers Word, Project vers Word...

Sinon pour du Word dans du Word, tu peux insérer tout le contenu : (code obtenu avec l'enregistreur de macro)

Code :

Selection.InsertFile FileName:="C:\chemin\Doc1.doc", Range:="", ConfirmConversions:= False, Link:=False, Attachment:=False

ou l'insérer en InlineShape : (d'après une idée de ouskel'n'or : avec la méthode AddOLEObject)

Code :

ThisDocument.InlineShapes.AddOLEObject ClassType:="Word.Document.8", FileName:="c:\chemin\Doc1.doc"

[dev81]

Merci pour ces 2 solutions Mais,
La premiere ne me convient pas car elle me met les titre à jour du document que j'insère, et ca je ne veux pas.
La deuxieme me vas bien mais elle m'insere le texte en haut de mon document.
Si une idéé pour le placer au niveau de mon point d'insertion?

Sinon j'ai pas fini apres j'aurai à insérer des planning MSP si c'est possible dans word avec une macro aussi.

Merci pour toute cette aide que le forum peut m'apporter

[dadavyvy]

Suffit de rajouter le parametre Range :

Code :

1
2
3
ThisDocument.InlineShapes.AddOLEObject _
    ClassType:="Word.Document.8", FileName:="c:\chemin\Doc1.doc", _
    Range:=Selection.Range

[dev81]

Une idée pour insérer un planning MSP dans word ou bien je lance une nouvelle discussion?
sinon merci ca marche j'avais oublié le RANGE.

[ouskel'n'or]

Envoyé par dadavyvy

En fait, tu testes le forum, c'est ça?
il reste encore : Access vers Word, Visio vers Word, Project vers Word...

........................................

Pas seulement ! Il teste aussi nos nerfs