effectuer unrapport sur word

  • Initiateur de la discussion thierry
  • Date de début
T

thierry

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

Je m'explique :p
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 :eek:)
m'indiquer la méthode à appliquer???
 

MichelXld

XLDnaute Barbatruc
bonjour Thierry

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


Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 721
Membres
110 551
dernier inscrit
Khyolyanna