Inclure un Word créé par un premier module dans un Word ouvert et modifié par une deuxième module sujet

Bonjour!
Débutante en VBA (et oui), je créée une petite application (VBA Excel) pour automatiser la rédaction de règlement de copropriété. J'ai écris un premier module qui créé un document Word avec toutes les désignations des lots, d'après une première feuille du tableau.
Dans un second module, j'ouvre un document word "référence", et je le modifie en fonction des différentes feuilles de mes tableaux. Mais il faut en plein milieu que j'y mette ma désignation des lots. Donc j'y ai mis un signet 'designationlots", et j'essaie de copier le premier Word dedans.

Merci de votre aide, je craque!!! J'ai cherché partout...

Code:

---

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

Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim blabla As String ... Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Open("C:\Documents and Settings\marie segalen\Bureau\Prog\Exemple&TravailMAS0478_RC_type.doc") wrdApp.Visible = True ... Call exceltoword ' je remplis mon premier doc avec la désignation des lots 'J'ai essayé : Selection.InsertFile Filename:=ThisWorkbook.Path & "\EDD-Copro-000000.doc", Range:="designationlots", ConfirmConversions:=False, Link:=False, Attachment:=False ' il me répond Impossible d'aller à Selection qui est caché 'ou wrdDoc3.InlineShapes.AddOLEObject ClassType:="Word.Document.8", Filename:=ThisWorkbook.Path & "\EDD-Copro-000000.doc" 'insère au début du doc une zone de texte non mise en page 'ou Dim wrdDoc3 As Word.Document Set wrdDoc3 = wrdApp.Documents.Open(ThisWorkbook.Path & "\EDD-Copro-000000.doc") 'il ne s'ouvre pas comme s'il était resté ouvert dans l'autre module ou je finis bien par wrdDoc.Close wrdApp.Selection.WholeStory 'blabla = Selection.Copy 'Selection.Paste 'ne fonctionne pas non plus 'ou 'Selection.Goto what:=wdGoToBookmark, Name:=designationlots 'ou 'wrdDoc.Bookmarks("designationlots").Range.Text = blabla 'wrdApp.Selection.Paste 'wrdDoc3.Close Sheets("Descriptif").UsedRange.Select 'de la même façon je copie un tableau (marche une fois sur deux selon ce qu'il y a devant) Selection.Copy wrdDoc.Bookmarks("Tableau1").Range.Paste wrdDoc.TablesOfContents(1).Update wrdDoc.SaveAs ("C:\Documents and Settings\marie segalen\Bureau\Prog\Exemple&TravailMAS\test_RC1.doc") wrdDoc.Close wrdApp.Quit

---

XL 2007 Gain te temps entre 1 gros fichier ou 2 fichiers distincts ouvert en même temps ? sujet

Bonjour

J'ai un gros fichier d'environ 5000 lignes avec plusieurs feuilles
Il est lourd à manipuler, à ouvrir ou à sauvegarder

Je pensais le scinder, c'est çà dire déplacer les feuilles annexes dans un autre classeur
et ouvrir les 2 classeurs en même temps, mais pas forcément dans la même instance

Avant de pratiquer cette lourde modification, puisque certaines feuilles sont liées à la feuille principale
Je voudrais avoir l'avis de personnes plus expertes que moi la dessus

Ma question est donc
Est-ce que vais gagner de la rapidité et de la souplesse d'utilisation (Déplacement, copie ...)
en ouvrant donc 2 classeurs dans la même instance ou pas ?
par rapport à mon gros fichier avec ses feuille annexes ?

Merci

Ouvert de R sujet

Bonsoir,

Est il vrai de dire que tout ouvert de est réunion dénombrable d'intervalles ouverts.