Discussion :

[zemeilleurofgreg]

Bonjour,

j'essaie de créer un document word (donc qui n'existe pas) à partir du code d'un bouton en VB, mais je n'y parviens pas.
Pouvez-vous m'aider?

Merci beaucoup.

[SfJ5Rpw8]

et c'est quoi ton code ?

[zemeilleurofgreg]

ben justement, j'en ai pas!
mis à part la déclaration

Dim objWord As New Word.Application

[ThierryAIM]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub ouvrirNouveauDocWord()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWrd As Word.Document
Set appWrd = createObject("Word.Application")
appWrd.Visible = True
Set docWrd = appWrd.Documents.Add
docWrd.SaveAs "C:\monDocument.doc"
End Sub

[zemeilleurofgreg]

super, ça marche.Merci beaucoup.
juste un petit problème, je ne souhaite pas sauver ce document mais l'envoyer via attache de mail car c'est un doc qui ne sera pas sur mon disque mais qui sera en possession d'autres personnes.

voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim appWrd As Word.Application
Dim docWrd As Word.Document
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set docWrd = appWrd.Documents.Add
 
Dim outApp As New Outlook.Application
Dim Dest As Outlook.Recipient
Dim Msg As Outlook.MailItem
 
Set Msg = outApp.CreateItem(0)
Set Dest = Msg.Recipients.Add(adresse mail)
 
Msg.Attachments.Add (???????)

[TAG [VB6] rajouté par Khany]
[Pensez-y vous-même à l'avenir. Merci. ]

[Balise "Code" rajoutée par Khany]
[Pensez-y vous-même à l'avenir. Merci. ]