bonjour,

je cherche a ouvrire un modele de document word depuis excel et je veux injecter les infos dans les signets.

j'aimerais avoir un module de classe word et donc j'ai commence comme ca :

nommé ClsWord
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
16
17
18
19
20
21
22
23
Option Explicit
    'declaration des objets
    'objet excel apllication
    Dim OwoApllication  As Word.Application
    'objet classeur excel
    Dim OwoDocument     As Word.Document
    Dim Objdoc As Word.Document
Private Sub Class_Initialize()
'    Set OwoApllication = New Word.Application
    'Dans cette application on doit creer un nouveau classeur
    'Set OwoDocument = OwoApllication.Documents.Add
    'Set Objdoc = Application.Documents.Add(Template:="C:\Documents and Settings\USER\Bureau\Lettre_signet.dot")
    Set OwoApllication = Application.Documents.Add("C:\Documents and Settings\USER\Bureau\Lettre_signet.dot")
 
End Sub
Sub test()
     titi1 = Ref_Adres1
     titi2 = Ref_Adres2
     titi3 = Ref_Adres3
     titi4 = Ref_Adres4
    Objdoc.Bookmarks("Ref_Adres1").Range.Text = titi1
 
End Sub
comme vous pouvez le voir je tourne en rond sur cette syntax.

et je l'apelle par le module de test suvant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub faitchier()
    Dim GRRR As ClsWord
    Set GRRR = New ClsWord
    GRRR.test
End Sub
si vous pouvez eclairer ma lanterne, je prend.

merci d'avance
Via