Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

Insérez un doc à la suite d'un autre


Sujet :

VBA Word

  1. #1
    Membre actif
    Insérez un doc à la suite d'un autre
    Bonjour,

    Je développe une application Excel qui, à la fin, génére un document Word.

    Ce document Word est constitué de plusieurs doc dont je vais remplir des signets avec des valeurs de mon appli. Jusque là tout va bien.

    Ce qui me chagrine c'est lors de l'insertion d'un doc dans un autre. Je n'arrive pas à insérer à la fin du doc mais au début. Voici le code utilisé :

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    docWord.ActiveWindow.Selection.Collapse Direction:=wdCollapseEnd
    docWord.ActiveWindow.Selection.InsertFile Filename:=strPathModele & CO_Modele_2, Range:="", ConfirmConversions:=False, link:=False


    Comme si la première ligne ne me positionnait pas à la fin du doc.

    avec cette ligne là, cela ne positionne pas non plus à la fin :

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    docWord.ActiveWindow.Selection.EndKey


    Avez-vous une piste ?

    Merci d'avance.

  2. #2
    Membre actif
    J'ai trouvé une solution, alors pour ceux que ça intéresse voici le code :

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    docWord.GoTo what:=wdGoToSection, which:=wdGoToFirst
    docWord.Characters.Last.Select
    docWord.ActiveWindow.Selection.InsertBreak Type:=wdPageBreak
    docWord.ActiveWindow.Selection.InsertFile Filename:=strPathModele & CO_Modele_2, Range:="", ConfirmConversions:=False, link:=False


    La première ligne positionne le curseur au début du document (même si on est dans un entête ou pied de page)
    La deuxième ligne sélectionne le dernier caractère du document.
    La troisième ligne insère un saut de page et la quatrième insère le document