Discussion :

[lvlat]

Bonjour à tous,
Je cherche, je cherche...et je ne trouve pas.
Je dois à partir d'Excel
- créer un nouveau document word
- y "injecter" plusieurs documents word.

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
 
' Je créé un nouveau doc word
Dim oWdApp As Object
Dim oWdNew As Object
Dim oWdOpen As Object
Set oWdApp = CreateObject("Word.Application")
oWdApp.Visible = True
Set oWdNew = oWdApp.documents.Add
 
' Je parcours mon tableau
While Range("A" & i) <> ""
' Si la case est cochée j'ouvre le fichier word correspondant
    If Range("B" & i) = "X" Then
        Set oWdOpen = oWdApp.documents.Open(ThisWorkbook.Path & "\words\" & Feuil2.Range("A" & i))
' J'en copie l'integralité
        oWdOpen.content.Copy
' Je colle dans le nouveau et je le ferme
        oWdNew.content.Paste
        oWdOpen.Close
        Set oWdOpen = Nothing
    End If
    i = i + 1
Wend

Le problème c'est que le "content.paste" ne colle pas à la suite de ce que j'avais deja collé mais remplace tout. Quelqu'un sait quelle méthode existe pour coller à la suite du contenu du fichier?

Merci beaucoup, j'ai essayé à peu prés 200 autres méthodes qui ne fonctionnent pas (j'avance à taton, je ne suis pas un pro)

Mat.

[BenjGe]

essaie avec

Code :

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

oWdNew.content.end.paste

pas testé

sinon pour les boucles de cellules pense au for each ou aux cells, c'est plus propre

[lvlat]

Salut,

Merci pour ta réponse. Malheureusement ca ne fonctionne pas, j'ai une erreur 424 "Objet requis"...

[Basicnav]

Une idée peut-être

tu places un ou plusieurs signets dans ton word avec :

Code :

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

owdNew.Bookmarks.Add ("nomSignet")

et tu viens à chaque fois selectionner ce signet avant de faire coller.

J'avais posté un truc sur le sujet il y à 1 mois environ, la seule différence pour moi était que mon document word existait déjà.

[lvlat]

Salut,
Je viens de trouver comment faire à l'instant!

Code :

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

1
2
3
4
5
6
 
oWdOpen.Activate
oWdApp.Selection.WholeStory
oWdApp.Selection.Copy
oWdNew.Activate
oWdApp.Selection.Paste

Je ne sais pas si les "activate" et tout ca sont necessaires mais cela fonctionne. Une dernière question, quelqu'un sait comment je pourrai insérer un saut de page entre chaque insertion de nouveau document.

Code :

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

selection.TYpeParagraph

me permet de faire un saut de ligne, mais je trouve pas le saut de page.

Merci beaucoup,

Mat.

[lvlat]

Je fais ma propre réponse : pour ajouter un saut de page il faut ecrire

Code :

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

oWdApp.Selection.insertbreak

The End.