Discussion :

[No.Miss]

salut,
je developpe sous office 2000. Lorsque je roule ce code j'obtien le message "msaccess a provoqué des erreurs et sera fermé par windows", et access ce ferme comme annoncé. Le bug est a la lige apres BOOM!. Pouvez vous tester ce code et/ou m'orienter sur une solution.

merci

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
 
Public Sub test()
    Dim appWord As Word.Application
    Dim docTemp As Word.Document
    Dim rngManip As Word.Range
 
    Set appWord = New Word.Application
    appWord.Visible = True
 
    Set docTemp = appWord.Documents.Open("Whatever doc File")
 
 
    Set rngManip = docTemp.Range
    'facultatif mais prouve que le range est valide
    rngManip.Select
    '!BOOM
    rngManip.Find.Text = "[-END-]"
    rngManip.Find.Execute
End Sub

[boubounne]

Moi il me met une erreur sur

Code :

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

1
2
 
 Set docTemp = appWord.Documents.Open("Whatever doc File")

tu souhaite ouvrir un document du nom de Whatever doc file ??

[No.Miss]

^^ dsl whatever signifie n'importe lequel. Je peux pas mettre un nom de fichier pusique je ne sais pas ce que vous avez sur votre pc.

Il faut mettre un nom de fichier .doc dans appWord.documents.open() .

[No.Miss]

Je crois que j'ai trouvé une solution c'est pas mal bidouillé par contre. Mais pourriez vous quand meme tester pour voir si vous avez ce comportement.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Public Sub test()
    Dim appWord As Word.Application
    Dim docTemp As Word.Document
    Dim rngManip As Word.Range
 
    Set appWord = New Word.Application
    appWord.Visible = True
 
    Set docTemp = appWord.Documents.Open("MonFichierQuelquonque")
 
    modu docTemp
    appWord.Run "testy2"
 
    'En haut ca marche, en bas non 
 
    Set rngManip = appWord.ActiveDocument.Range
    rngManip.Select
    rngManip.Find.Text = "[-END-]"
    rngManip.Find.Execute
    rngManip.Select
 
End Sub
 
 
Public Sub modu(docWord As Word.Document)
Dim vbc As VBComponent
 
Set vbc = docWord.VBProject.VBComponents.Add(vbext_ct_StdModule)
 
vbc.CodeModule.InsertLines 4, _
    "Public Sub testy2()" & Chr(13) & _
    "Dim rngManip as Word.Range" & Chr(13) & _
    "Set rngManip = ActiveDocument.Range" & Chr(13) & _
    "rngManip.Select" & Chr(13) & _
    "rngManip.Find.Text =" & Chr(34) & "[-END-]" & Chr(34) & Chr(13) & _
    "rngManip.Find.Execute" & Chr(13) & _
    "rngManip.Select" & Chr(13) & _
    "End Sub"
 
End Sub