copier word vers word a prtir d'excel

Question

Bonjour tout le monde

Je suis un petit nouveau dans le monde de la programmation EXCEL VBA. Au travail, je veux automatiser la génération des soumissions ( format WORD ) à partir d’EXCEL. J’ai une liste de machines ( EXCEL ) d’on je veux inclure les caractéristiques dans un fichier WORD.   J’ai un fichier WORD ( comprenant les caractéristique de celles-ci ) pour chaque machines, donc, je veut copier le contenu de certain ( selon la liste EXCEL ) fichier WORD un à la suite des autre dans un fichier WORD vide.

Merci de votre aide

dan

EX : 

Un fichier excel comprenant

Machine 1
Machine 2
Machine 5

Des fichier WORD sur mon c:\ info

Machine 1.doc
Machine 2.doc
Machine 3.doc
Machine 4.doc
Machine 5.doc

Donc je veux copier les certain fichiers WORD dans un seul fichier

Machine1.doc + machine 2.doc + machine 5.doc

phil232 · Answer

T'aurais pas plus compliqué que ça ? Si je vois clair tu veut créer un rapport à partir de ta liste. C'est pourquoi il y a des bases de données. EXCEL N'EST PAS UNE BASE DE DONNEE. Les plus simple c'est de prendre Access et créer un rapport. Pas besoin de chipoter avec Excel et Word.

metaldan · Answer

merci de la sugestion, mais il word est plus aproprié pour mon besoin, plus facile de modifier, et envoyer les soumissions, tout le monde connait word.

J'ai trouver ma réponse en rumelant 2-3 discusion dans des forum.  Voici le code que j'utilise

Sub PilotageWord3()
  Dim MonBeauWord As Object
    Dim destin As Object
   
   
  Set MonBeauWord = CreateObject("Word.Application")
  Set destin = CreateObject("Word.Application")
    MonBeauWord.Visible = True
   destin.Visible = True
    
   destin.Documents.Add
    
    
   MonBeauWord.Documents.Open Filename:="D:	emp	emplate 1.doc"
    
    
   MonBeauWord.Selection.WholeStory
   MonBeauWord.Selection.Copy
    
   destin.Selection.Paste

destin.Selection.TypeParagraph
destin.Selection.TypeParagraph
destin.Selection.TypeParagraph
destin.Selection.TypeParagraph
destin.Selection.TypeParagraph
destin.Selection.TypeParagraph

  destin.Selection.Paste


destin.ActiveDocument.SaveAs "d:	emp	est.doc"
  
  MonBeauWord.ActiveDocument.Close
   destin.ActiveDocument.Close
  Set MonBeauWord = Nothing
Set destin = Nothing

End Sub

phil232 · Answer

si tu trouve que c'est plus facile à implementer, bonne chance. Dans Word tu n'a que des bookmarks pour inserer un text comme ça ou tu utilises la fontion de lettre type. On va encore rigoler là.

Copier word vers word a prtir d'excel

3 réponses

Votre réponse

Newsletters