Bonjour à tous,

J'écris une macro pour mon problème décrit dans le dernier thread. La macro s'est plantée toujours (Microsoft Excel a rencontré un problème et doit fermer...) sur mon Excel 2002 alors qu'elle marche sur la version Excel 2007 de mon collègue.

Quelqu'un a eu un problème ou une explication ? 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
 
Dim AppWord As Word.Application
Dim DocWord As Word.Document
 
Sub Extraction ()
 
    Set AppWord = CreateObject("Word.Application")
    Set DocWord = AppWord.Documents.Open(FichierSource)
 
   With AppWord.Selection.Find
       .Text = "Test"
       .MatchCase = True
       .MatchWholeWord = False
    End With
 
    DocWord.Close
    AppWord.Quit
 
End Sub
********************************************

Cordialement,