Discussion :

[viavba]

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

[viavba]

bon ca marche avec cette formulation mais dit moi si c'est propre comme ecriture.

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 Word apllication
    Dim WordApllication  As Word.Application
    'objet Document Word
    Dim WordDocument     As Word.Document
Private Sub Class_Initialize()
    Set WordApllication = New Word.Application
 
    Set WordDocument = WordApllication.Documents.Add("C:\Documents and Settings\User\Bureau\Lettre_signet.dot")
 
    WordApllication.Visible = True
 
End Sub
Sub test(Ref_signet As String, Valeur_signet As String)
 
    WordDocument.Bookmarks(Ref_signet).Range.Text = Valeur_signet
 
End Sub
 
Private Sub Class_Terminate()
 
End Sub

Code :

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

1
2
3
4
5
6
Sub faitchier()
 
    Dim GRRR As ClsWord
    Set GRRR = New ClsWord
    GRRR.test "Ref_Adres1", "GRRR"
End Sub

Via