1. #1
    Membre à l'essai
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    mars 2015
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Chef de projet en SSII

    Informations forums :
    Inscription : mars 2015
    Messages : 24
    Points : 21
    Points
    21

    Par défaut Copier un doc word dans un autres en boucle

    Bonjour,

    Cela fait 2 jours que je cherche, mais là je cale.

    Voila mon soucis qui me fait perdre mes cheveux tellement je suis chaud énervé.

    Je suis à deux doigts de trouver mais ya rien à faire

    J'ai donc un document word (doc1) qui est alimenté en boucle via un fichier Excel... Là ça marche.
    Une fois alimenté je sélectionne le document actif(doc1) , je le copie... là ça marche toujours

    C'est là où je galère.
    Je voudrais ouvrir une autre instance word (doc2), aller à la dernière ligne de doc2 , mettre la copie de doc1
    retour dans doc1 , alimentation de doc 1 via excel, copier
    ajouter à la dernière ligne de doc 2 , coller
    ...etc
    Puis fermeture de doc2

    Et, je ne veux pas voir l'ouverture et la fermeture de doc2, si possible


    Voilà ce que j'ai pondu et c'est faux
    La macro est exécuter de doc1

    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
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    Sub Macro1()
    
    Dim wdApp2 As Word.Application
    Dim wdDoc2 As Word.Document
    
    Selection/copie résultat Doc1 après alimentation via Excel
    With Selection
        .WholeStory
        .Copy
    End With
    
    ‘Ouverture doc2
    Set wdApp2 = New Word.Application
    Set wdDoc2 = wdApp2.Documents.Open("C:\Doc2.docx")
    
    ' Erreur : OBJET requis ???
    Documents(Doc2.docx).Activate
    
    'Si je passe, 
    
    ‘Aller à la dernière ligne
    
    La y me dit: Propriété ou méthodenon gérée par cet objet 
    wdDoc2.EndKey Unit:=wdStory
    
    ‘Coller le résultat de doc1 et sauter une ligne
    Selection.Paste
    Selection.TypeParagraph
    
    ‘Fermeture de doc2
    With wdDoc2
        .Save
        .Close
    End With
    wdApp2.Quit
    Set wdDoc2 = Nothing
    Set wdApp2 = Nothing
    
    End Sub

    C'est le passage du doc1 au doc2 qui me gène. Comment fait on?

    Merci pour la multitude de réponses que vous pourriez fournir

  2. #2
    Membre à l'essai
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    mars 2015
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Chef de projet en SSII

    Informations forums :
    Inscription : mars 2015
    Messages : 24
    Points : 21
    Points
    21

    Par défaut

    J'ai trouvé !

    Macro dans doc 1 :

    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
    24
    25
    26
    27
    Sub Macro1()
    
    Dim wdDoc2 As Word.Document
    
    'Selection/copie résultat Doc1 après alimentation via Excel
    With Selection
        .WholeStory
        .Copy
    End With
    
    ' ouverture instance doc  fichier résultat
    Set wdDoc2 = Documents.Open("C:\Doc2.docx")
    wdDoc2.Activate
    
    'Collage et saut de ligne
    Selection.Paste
    Selection.TypeParagraph
    
    'Fermeture de doc2
    With wdDoc2
        .Save
        .Close
    End With
    
    Set wdDoc2 = Nothing
    
    End Sub
    Bon week-end!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 5
    Dernier message: 21/11/2014, 18h05
  2. [WD-2010] Inserer doc word dans un autre doc avec la mise en forme
    Par awa123 dans le forum Word
    Réponses: 1
    Dernier message: 19/05/2014, 16h52
  3. Réponses: 8
    Dernier message: 16/11/2013, 19h49
  4. [Word] Tri - Copier/Coller certaine parties dans un autre Word
    Par BartRoX dans le forum Général Dotnet
    Réponses: 0
    Dernier message: 05/11/2013, 09h28
  5. Copier du texte sélectionné dans un autre doc word
    Par Phoenix311 dans le forum VBA Word
    Réponses: 6
    Dernier message: 21/06/2013, 23h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo