Discussion :

[quangdao]

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,

[Heureux-oli]

Salut,

Essaie plutôt ce code

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
 
Sub Extraction ()
Dim Wapp As New Word.Application
Dim oDoc as Document
 
 
    Set oDoc = WApp.Documents.Open(FichierSource)
 
   With WApp.Selection.Find
       .Text = "Test"
       .MatchCase = True
       .MatchWholeWord = False
    End With
 
    oDoc.Close
    WApp.Quit
set WApp = Nothing
 
End Sub

[quangdao]

Salut,

Essaie plutôt ce code

Merci Oli mais c'est toujours la même. Surtout il marche sur un autre poste avec Excel 2007. Cela peu-il venir de l'Excel 2002 sur mon poste.

[Heureux-oli]

C'est que tu as un problème avec ton poste.
Vérifies si toutes les mises à jour ont été appliquées.