Discussion :

[Rasmussen33bis]

Bonjour à tous.
En gros, j'ai mon document word, dans lequel je lance la macro. Et je voudrais que lorsque je clique sur le bouton 'Valider' de ma macro, un texte situé dans un autre document Word s'insère. Malheureusement, le code ci-dessous ne conserve pas la mise en page du texte de l'autre document. De plus, je ne peux l'utiliser qu'une fois. La seconde fois, Word plante, et l'erreur est ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objWord.Documents.Open strFichier

(il me dit que le document est déjà ouvert, alors que je ne le vois même pas...)
Bref, tout ce que j'ai dis est un peu brouillon, désolé. Voici mon code, et merci pour votre aide

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
 
Dim strFichier As String
Dim objWord As New Word.Application
Dim MyRange As Range
Dim qDoc As Word.Document
 
strFichier = "Chemin.docx"
 
 
objWord.Documents.Open strFichier
objWord.Visible = False
 
 
Set qDoc = ActiveDocument
Set MyRange = objWord.ActiveDocument.Content
 
qDoc.Bookmarks("Infos").Range = MyRange
 
objWord.Documents.Close
objWord.Quit
Set objWord = Nothing

[Rasmussen33bis]

Bon, j'ai cherché pas mal sur internet et j'ai fini par trouver ça :

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
 
Dim objWord As New Word.Application
Dim MyRange As Range
Dim rtffile As Word.Document
Dim qDoc As Word.Document
 
Set rtffile = objWord.Documents.Open(FileName:="C:\Users\stagebe1\Desktop\2015 BTS1 Thomas Macro Word\InfosContrats.docx", ConfirmConversions:=False, ReadOnly:=True)
 
objWord.Visible = False
 
Set qDoc = ActiveDocument
Set MyRange = objWord.ActiveDocument.Content
 
MyRange.Copy
qDoc.Bookmarks("InfosContrat").Range.PasteAndFormat wdChartPicture
 
objWord.Documents.Close SaveChanges:=wdDoNotSaveChanges
objWord.Quit
Set objWord = Nothing

Avec ce code, le texte (juste la première page, je ne sais pas pourquoi) s'insère bien comme je le veux, sous le format d'une image. Mais lorsque je change

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

qDoc.Bookmarks("InfosContrat").Range.PasteAndFormat wdChartPicture

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

qDoc.Bookmarks("InfosContrat").Range.PasteAndFormat wdFormatOriginalFormatting

, Word plante...HELP ME PLEASE

[Rasmussen33bis]

Por favor, j'aurais vraiment besoin d'une petite aide

[Heureux-oli]

Salut,

Peut-être une piste plus intéressante pour ce que tu veux faire.
http://heureuxoli.developpez.com/off...cument-tiroir/
Si ça te convient, la mise en forme peut se faire avec des styles.