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