effectuer unrapport sur word

[thierry]

bonjour à tous!!!
je souhaite automatiser un rapport sous word à partir d'excel!
??? kesako???😱hmy:

Je m'explique 😛
je fais un outil avec excel et souhaite qu'à la fin, une fois tous les calculs effectués, je puisse demander 'enregistrer un rapport sous word?'
et que si la répojse est 'oui' alors word s'ouvre et que le texte voulu apparaisse dans word...

1) est-ce possible???
2) pourriez vous dans votre extrême bonté
(laugh: oui je sais j'en rajoute toujours trop 😱)
m'indiquer la méthode à appliquer???

 

[MichelXld]

bonjour Thierry

ci joint un exemple qui créée un nouveau document Word et transfert les données des cellules A1 à A3

Sub creerNouveauDocWord()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWrd As Word.Document
Dim i As Byte

Set appWrd = CreateObject('Word.Application')
appWrd.Visible = True 'mettre false pour garder Word masqué
Set docWrd = appWrd.Documents.Add

With docWrd.Range
.Font.Name = 'Arial'
    For i = 1 To 3
        .Text = Cells(i, 1) 'transfert données des cellules A1 à A3 dans doc Word
        '****************************************
        .Collapse Direction:=wdCollapseEnd 'derniere ligne du document
        .InsertBreak wdLineBreak 'nouvelle ligne
        '*****************************************
    Next i
End With

docWrd.SaveAs 'C:\\monDocument.doc'
End Sub

bonne soiree
MichelXld