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,
Partager