données excel vers doc word

[vincent50]

Bonjour le forum,
j'ai un tableau excel duquel j'aimerai extraire des données vers un document word.
j'aimerai generer un emploi du temps pour chaque personne qui figure dans le tableau excel avec les taches a accomplir dans la colonne de droite du tableau word.
je ne suis peut etre pas tres clair voir même pas clair du tout, n'hesitez pas a me poser des questions.

 

[Épaf]

Re : données excel vers doc word

'necessite d'activer la reference microsoft Word xx.x Object Library
Sub Test()
Dim Wrd As Object, WDoc As Object
    Set Wrd = CreateObject("Word.Application")
    'Wrd.Visible = True 'toute l'opération peut être rendue visible
    DoEvents
    Set WDoc = Wrd.Documents.Open("D:\Doc\Doc.doc")
    DoEvents
    Wrd.Selection.EndKey 6
    Range("A1:D10").Copy
    Wrd.Selection.PasteExcelTable False, False, False
    Wrd.Selection.Find.ClearFormatting
    Application.CutCopyMode = False
    DoEvents
    WDoc.Close True
    Wrd.Quit
    Set WDoc = Nothing
    Set Wrd = Nothing
End Sub

Copie les cellules Excel en fin de document word

 

[vincent50]

Re : données excel vers doc word

merci, comment fait on pour activer la réference microsoft word.....

 

[Épaf]

Re : données excel vers doc word

comment fait on pour activer la réference microsoft word.....

Dans l'éditeur VBA -> Menu Outils -> Références -> Valider la référence qui va bien 😉

 

[vincent50]

Re : données excel vers doc word

merci, mais ce que je cherche a faire, c'est completer un modele word pour chaque personne differente, puis dans ce document, creer l'emploi du temps automatiquement a partir de la colonne A et des lignes 1&2 du tableau excel