Vba sur excel

[Bretagne35]

Bonjour,

Je souhaiterais effectuer un copié collé d'un fichier word vers un deuxième fichier word. Le programme serait exécuté depuis un fichier excel.

Merci d'avance pour vos explications.

 

[MichelXld]

Re : Vba sur excel

bonsoir

J'espère que cet exemple pourra t'aider

'nécéssite d'activer la référence:
    'Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc1 As Word.Document, WordDoc2 As Word.Document

'les documents Word sont supposés fermés avant
'le lancement de la macro.
'creation session Word
Set WordApp = CreateObject("Word.Application")
'Mettre False pour masquer Word pendant l'opération
WordApp.Visible = True
'ouverture du fichier Word
Set WordDoc1 = WordApp.Documents.Open("C:\document synthese.doc")
Set WordDoc2 = WordApp.Documents.Open("\document source.doc")

'copie
WordDoc2.Content.Copy

With WordDoc1.Content
    'derniere ligne du document de synthese
    .Collapse Direction:=wdCollapseEnd
    'insere un saut de page
    '.InsertBreak Type:=wdSectionBreakNextPage '
    .Paste 'collage
End With
'referme le document source
WordDoc2.Close

'ferme le document de synthese et l'application Word
'WordDoc1.Close True
'WordApp.Quit

Application.CutCopyMode = False

Bonne soirée
MichelXld

 

[Bretagne35]

Re : Vba sur excel

Merci de ton aide.
Ce programme va pouvoir m'avancer dans mes recherches