[WORD] insérer saut de page dans un autre document [Résolu]

schlopa 2 Messages postés jeudi 7 février 2008Date d'inscription 16 janvier 2009 Dernière intervention - 15 janv. 2009 à 11:31 - Dernière réponse : schlopa 2 Messages postés jeudi 7 février 2008Date d'inscription 16 janvier 2009 Dernière intervention
- 16 janv. 2009 à 13:29
Bonjour à tous et bonne année !

Ceci est mon premier post sur le forum, j'espère ne pas m'être trompé de catégorie.

Je suis entrain de coder un script me permettant de sélectionner plusieurs images, et de les insérer dans un nouveau document Word avec comme contrainte une page = une image

Le problème c'est que je n'arrive pas à faire un saut de page dans le nouveau document. Les sauts de page se font encore dans le document à partir duquel j'ai lancé le code.

Voilà un bout de code : je crée un nouveau document Word, et j'aimerai simplement y écrire un texte et faire un saut de page :

--------------------------------------------------------------------------------------------

Sub Test()

    MsgBox "Destination du fichier de sortie ? (Cliquer 'ok')"
   
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    With fd
        .AllowMultiSelect = False
        .Title = "Sélectionnez le fichier de destination"
        .InitialFileName = "DestinationFinale.doc"
        .FilterIndex = 3
        If .Show = -1 Then
            FichDest = .SelectedItems(1) 'chemin fichier variable "FichDest"
        End If
    End With
       
    Set WordApp = CreateObject("Word.Application")     '-- ouvre une session Word
    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Add    '-- nouveau document
    WordDoc.SaveAs FichDest        '-- enregistre le nouveau doc
   
   
    WordDoc.Activate
    Selection.InsertBreak Type:=wdPageBreak
    Selection.TypeText Text:="je tente de faire un saut de page"
     
   
    WordApp.Visible = True

End Sub

(Il n'y a pas de balise "CODE" sur votre forum ?)
--------------------------------------------------------------------------------------------

Le problème : le saut de page et le texte s'affiche encore dans l'ancien document.

Vous avez une idée miracle ? j'ai déjà essayé pas mal de chose et ça ne donne rien !

Je précise juste que c'est mon deuxième jour sous VBA (d'ailleurs je n'ai jamais coder en objet avant) alors soyez un peu indulgent sur vos remarques et n'hésitez pas à me donner un maximum d'explications (ou un lien)

Merci d'avance pour votre coup de main et bonne journée
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
schlopa 2 Messages postés jeudi 7 février 2008Date d'inscription 16 janvier 2009 Dernière intervention - 16 janv. 2009 à 13:29
3
Merci
Hello

Je viens de trouver

A la place de :

"Selection.InsertBreak Type:=wdPageBreak"
> "WordDoc.ActiveWindow.Selection.InsertBreak Type:wdPageBreak"

Voilà

Merci schlopa 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

Commenter la réponse de schlopa
cs_loulou69 672 Messages postés mercredi 22 janvier 2003Date d'inscription 2 juin 2016 Dernière intervention - 16 janv. 2009 à 09:10
0
Merci
Bonjour
essayer

Selection.Collapse
Avant
Selection.InsertBreak ...
Commenter la réponse de cs_loulou69

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.