problème génération fichier Word à partir d'excel [Résolu]

[zoum13]

bonjour,

je dois générer un fichier word a patir d'un fichier excel j'ai écris un script, mais kan je le lance j'ai un message d'erreur me disant: type défini par l'utilisateur non défni.
voici une partie de mon script............... est ce que klk'un aurait une idée de ce qui cloche??

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub CommandButton1_Click()
'
' Macro1 Macro
 
Dim doc As Word.Document
Dim MyWord As Word.Application
Dim signet As String, i As Long
Dim chaine As String
Dim Feuil1
 
Set MyWord = New Word.Application
 
With MyWord
 
    Set doc = .Documents.Open("\\SRVDFS00\Partages\451-500\M00498\Reseau GPRS\xGSN et ReseauIP\Projets\1. Définition Process\Création MPLS VPN\Configuration d'un MPLS VPN.doc", ReadOnly)
    doc.Bookmarks("nomInterface1").Range.Text = ThisWorkbook.Worksheets("Feuil1").Range("B17")
    'doc.Bookmarks("nvlan1").Range.Text = ThisWorkbook.Worksheets("Feuil1").Range("B16")
    'doc.Bookmarks("nvlan2").Range.Text = ThisWorkbook.Worksheets("Feuil1").Range("B16")
    'doc.Bookmarks("adresseIPPE1").Range.Text = ThisWorkbook.Worksheets("Feuil1").Range("B18")
.
.
.
doc.SaveAs "\\SRVDFS00\Partages\451-500\M00498\Reseau GPRS\xGSN et ReseauIP\Projets\1. Définition Process\Création MPLS VPN\copie_Configuration d'un MPLS VPN.doc"
   'enregistre sous un autre nom
 
    'rend l'application non visible
    .Visible = False
    ' Set doc = Nothing
 
    End With
 
' ferme le document de reference "doc"
     doc.Application.Quit
 
 
 ' fin de la macro
 
End Sub

MIRCIIIIIIIIIIIII

[AlainTech]

Bonjour et bienvenue sur ce forum.

Je suppose qu'il faut que tu actives la Référence à Microsoft Word...

Je dis bien, je suppose, car tu ne nous dis pas sur quelle ligne se situe l'erreur.

[zoum13]

Bonjour,

l'erreur se trouve au niveau de la ligne suivante:

Dim doc As Word.Document

je ne m'y connais pas dutout en VB donc, qu'est ce qu'il faut activer sous word???
Il ne suffit pas d'affecter de signets????

merci!!

[bbil]

dans l'editeur VBE ... menu outils puis référence ... et tu coche Microsoft Word...