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

---

Actualité - Microsoft publie le code source d’origine de MS-Dos et Word sujet

Microsoft vient de rendre public le code source des premières versions de MS-Dos (1.10 et 2.0) et de Word pour Windows (1.1a) par l’intermédiaire du Musée de l'histoire de l'ordinateur. Le géant...

Lire la suite : Microsoft publie le code source d’origine de MS-Dos et Word

XL 2010 Questions Macro édition de courriers Word sujet

Bonjour le forum,

Je travaille sur une macro qui permet, à partir d'une base Excel, de créer un courrier Word, en remplissant des signets. Le courrier est ensuite enregistré en pdf et l'utilisateur peut ou non imprimer "physiquement" le courrier.

Toute la macro est dans Excel, même si elle a des impacts dans Word.

Le fichier pdf s'enregistre très bien, au bon endroit et ne s'ouvre pas (comme prévu).

Je voudrais ensuite qu'avant que le fichier Word se ferme, l'utilisateur ait la possibilité de l'imprimer.

Tout fonctionne, à quelques exceptions près.

1°) le nom du fichier pdf n'est pas bon, puisque la macro va rechercher (comme je lui ai demandé), la valeur de la cellule B2. Or, la valeur à prendre est toujours dans la colonne B, mais c'est B2, B3, B4 ... selon que les informations contenues dans le courrier sont dans les lignes 2, 3 ou 4. Je pense qu'avec un For i = 1 to ..., ça devrait fonctionner, mais je ne sais pas l'utiliser.

2°) pour permettre à l'utilisateur d'imprimer le courrier Word depuis Excel, j'ai inséré une msgbox avec des instructions (que je mette OUI ou NON, la macro imprime). Il me semble que, pour ce faire, en utilisant Excel, il faut rendre Excel visible, ce que j'ai essayé et qui ne fonctionne pas.

3°) Ensuite, que l'utilisateur imprime ou non, Word se ferme, sans enregistrer d'autres changements et on retourne à Excel. Et ça, je ne sais pas faire non plus.

Je joins mon fichier test et les courriers. Vous voudrez bien ne pas tenir compte du fond (!!).
Par ailleurs, comme j'ai changé les répertoires de destination, cela ne devrait pas fonctionner tout de suite. Vous serez obligés de les reconstituer.

J'ai promis à des collègues de les aider très vite sur la question.

Alors, merci beaucoup par avance.

Bien cordialement.

Fichiers attachés

• 
  
  Refus2.doc‎
  (27,0 Ko)
  
• 
  
  Accord2.doc‎
  (28,0 Ko)
  
• 
  
  Test2.xlsm‎
  (42,8 Ko)
  

XL 2007 Cellules d'Excel liées à une page Word sujet

Bonjour à tous !

Je suis actuellement en plein souci car je n'arrive pas à lier mes cellules d'Excel avec mon document Word sous Office 2007.

Veuillez trouver mon fichier ci joint, mon but étant de créer exactement le même rendu sous Word que mon fichier Excel et que les données se mettent à jour automatiquement (fichier source : Excel)

Pour le "nombre 1" "nombre 2" et "Graphique 1" je n'ai aucun souci, mais lorsqu'il s'agit de lier les autres cellules de mon fichier excel, étant donné que certaines cellules sont fusionnées, tout se décale et soit il ne me laisse pas accès au collage spécial (qui me permet de créer la liaison) soit je ne voit pas carrément plus rien dans ma cellule... Je ne sais pas quoi faire :( !


Merci de votre aide !

Fichiers attachés

• 
  
  TEST.xlsx‎
  (15,3 Ko)
  

Fichier Word volatilisé, je désespère ! sujet

Bonjour à tous,

Je viens vous demander des conseils en dernier recours. Ca fait 15 jours que je suis sur un script important (plus de 10 pages), je l'ouvrais tous les jours ou presque pour modifier deux-trois trucs. Hier soir je vais pour l'ouvrir (en passant par les documents récents). Et là: RIEN. Je cherche partout dans mon PC, même dans les fichiers cachés, utilise des logiciels qui fouillent les disques de fond en comble, mais rien, après une nuit blanche à chercher partout c'est comme s'il n'avait jamais existé.

J'ai cherché sur des pages et des pages sur Internet, et je ne suis vraisemblablement pas la première personne à qui ça arrive (et personne ne semble avoir une solution). Mon PC a été remis à neuf récemment, je n'ai pas de virus, et je n'ai encore jamais rien mis dans la corbeille. J'ai vraiment cherché partout.

Connaîtriez-vous une façon de "dernier recours" pour essayer de retrouver ce fichier, puisque je ne l'ai jamais supprimé ni rien, il était tout le temps dans les premiers documents récents.

Je précise que c'était un fichier sous WordPad (je n'avais pas encore eu le temps de réinstaller Office), en format .rtf (ou .doc, je commence à me poser des questions, mais un des deux quoi).

Merci d'avance !

[SP2013] COnvertir un word en pdf sujet

Bonjour à tous,

Je développe une webpart qui doit convertir un document word situé dans une bibliothèque en PDF dans la même bibliothèque. Je suis sous Sharepoint 2013.
J'ai essayé Word Services avec ce tuto: http://blogs.developpeur.org/neodant...-services.aspx
Mais le problème est que la conversion se fait qu bout de 5-10 min et je souhaiterais qu'elle se lance instantanément.

Y a t il un paramétrage pour cela?
Y a t il d'autre méthode? Avec Office WebApp? Ne peut on pas faire faire un "SaveAs" comme en version Desktop? Une API? Bref je suis ouvert à toute solution ou piste.

Merci d'avance pour votre aide.

Collage dans Word et conservation des styles sujet

Bonjour à tous,

je m'arrache les cheveux depuis quelques jours sur un problème dans Word.
Le contexte :
- des documents Word (nous l'applerons "DocBase") dans lequel plusieurs personnes viennent ajouter des éléments (manuellement, par copier-coller, par l'insertion d'objets Excel, etc.)
- des documents Word (nous l'applerons "DocEnfant") reprenant la trame du document précédant (en-tête, pied de page, pagination) contenant des liens avec des fichiers Excel générés par une application métier.

Je dois insérer DocEnfant dans DocBase à une position précise dans DocBase.
Or, lorsque je copie l'intégralité de DocEnfant et que je la colle dans DocBase, j'ai de gros problèmes avec les styles :
- tous les pieds de page des pages situées au-dessus des éléments que je colle utilisent le pied de page de DocEnfant et ne se met pas à jour avec le contenu du pied de page de DocBase
- dans certains cas, la pagination n'est pas prise en compte, dans d'autres elle est incohérente
- les éléments Titre2 et Titre3 de DocEnfant ne sont pas pris en compte dans mon sommaire (malgré une MAJ complète)
- etc.

Étonnement, ce comportement n'est pas le même dans tous les DocBase.
Ces documents existent pour certains depuis des années, d'autres ont été créés plus récemment.

Comment puis-je "forcer" la reprise des styles du document dans lequel je colle mes données ?

D'avance merci pour votre aide.

MAC De Word à Excel sujet

Bonjour, je recherche le moyen d'extraire automatiquement des tableaux contenu dans un document word de 200 pages (120 tableaux + textes) afin de pouvoir les récupérer dans des feuilles séparées.
Je vous laisse un extrait du document word sur ce lien :
Free - Envoyez vos documents

Merci pour votre aide

Modifier le texte de l'en-tête sur Microsoft word 2011 sujet

Bonjour tout le monde,

J'ai un problème que je n'arrive vraiment pas à régler et qui m'irrite depuis quelque temps (pourtant, j'ai l'habitude d'être assez débrouillarde).
Je n'arrive pas à modifier le texte de l'en-tête de mes documents word; quand je le modifie, j'enregistre le document et lorsque je le ré-ouvre la modification a été annulée. Et ce sur tous mes documents.

Si jamais quelqu'un peut m'aider, ça serait une aide bien venue :D

VBA - Copier tableau excel dans Word en Image sujet

Bonjour,

J'ai fait une macro afin de copier des tableaux Excel dans Word en format image.
Ma macro fonctionne bien...une fois sur deux! Avec exactement les mêmes données parfois je tombe sur une erreur 4605 "La méthode PasteSpecial de l'object Selection a échoué". Et ca ne plante jamais sur le même tableau.
Je précise que mes tableaux ont parfois des lignes cachées.

Voici mon code avec un exemple de copie de deux tableaux :

Code:

---

'Création fichier WORD
Application.DefaultSaveFormat = xlOpenXMLWorkbook
Dim appWrd As Word.Application
Dim docWrd As Word.Document
Set appWrd = New Word.Application
appWrd.Visible = True
appWrd.DefaultSaveFormat = xlOpenXMLWorkbook
Set docWrd = appWrd.Documents.Add

'Copie du premier tableau
Sheets("Rendu").Range("A8:K50").Copy
appWrd.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False

'Copie du second tableau
Sheets("Rendu").Range("A54:K132").Copy
appWrd.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False

Set docWrd = Nothing
Set appWrd = Nothing

---

Merci par avance de votre aide !

recherche à travers des instances multiples de Word sujet

Bonjour,
Je programme occasionnellement en VBA, dans un environnement Office 2007, sous Windows XP.
Mon problème est le suivant :
Je cherche à recupérer des données d'un Word donné via le VBA d'un Excel.
Je connais le nom du document Word (via une liste de la collection Task), mais pas son chemin complet (donc je ne peux pas utiliser GetObject).
Mon problème est qu'il peut y avoir plusieurs instances de Word ouvertes et que, malgré toutes mes recherches, je n'arrive pas à balayer l'ensemble des documents ouverts pour utiliser le bon.
Je précise que je ne peux pas me permettre de fermer les documents qui ne correspondent pas au nom recherché car je ne peux pas perturber l'environnement de ceux qui vont utiliser mon excel.
Si quelqu'un de plus doué que moi pouvait me suggerer une solution, je lui serai très reconnaissant.
Cordialement

XL 2010 Modifer un fichier Word à partir de cellule d'un fichier Excel sujet

Bonjour,
Voici ma problématique, je souhaite déclencher une macro dans fichier Excel qui ouvre un fichier Word(situé sur un réseau P) et qui remplace tous les termes "client X"(du fichier word) par la valeur de la cellule B7.
merci pour votre aide!

[WD-2007] Publitostage Word / CSV sujet

Salut,
J'ai un petit soucis avec le publipostage. Si quelqu'un a un idée ça m'aiderait bien, je n'ai rien trouvé sur le forum.

Ma source de données est un fichier CSV généré par une application tier, sur laquelle je n'ai pas la main. Ce fichier CSV se termine par un retour charriot, ce qui semble être la norme. Il contient une ligne avec le nom des colones et une ligne ou plusieurs lignes avec les données.

J'ai créé un modèle de publipostage (une lettre) sans problème.

Quand je clique sur "Terminer et Fusionner/Modifier des document individuels" tout ce passe bien.

Quand j'utilise une la macro suivante

Code:

---

    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With

---

Word génère les documents et un document supplémentaire contenant

Code:

---

L'enregistrement 2 est vide.

---

J'ai remarqué que si je retire le retour charriot à la fin du fichier CSV, je n'ai plus le message ci-dessus.
Ce publipostage va être utilisé par des personnes auxquelles je ne peut pas demander de retirer ce retour charriot systématiquement.

Est-ce que quelqu'un sait d'où vient cette différence de comportement entre l'utilisation du bouton et de la macro (qui à été générée en cliquant sur le bouton) ?

Merci d'avance.

[Toutes versions] codage de fichiers écrit en arabe à chaque ouverture de word. sujet

Bonjour. Sous word 2007, à chaque fois que j'ouvre certains fichiers écrits en arabe il m'est demandé le codage de ces fichiers. Malgré que j’essaie toutes les probabilités de codage proposé il n'en est rien. Merci de votre intérêt.