Bonjour

Trois jours de galère, je relance la question...

Une macro VBA Word qui manipule (qui veut manipuler !) Excel.

Elle fonctionne une fois puis chaque fois suivante elle déclenche une erreur 1024. même si je change de fichier (Test1.xlsx vers Test2.xlsx).

Il faut fermer l'application Word pour que la macro fonctionne à nouveau une seule fois !

Si quelqu'un pense à une piste ?

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
 
    Dim XlApp As Object
    Dim XlBook As Object
    Dim Sheet1 As Object
    Dim Sheet2 As Object
    Dim DernLig As Integer
    Dim Msg As String
 
    Set XlApp = CreateObject("Excel.Application")
    Set XlBook = XlApp.Workbooks.Open("D:\Test1.xlsx")
    Set Sheet1 = XlBook.Worksheets(1)
    Set Sheet2 = XlBook.Worksheets(2)
 
    XlApp.Visible = True
    On Error Resume Next
 
    DernLig = Sheet2.Range("G65536").End(xlUp).Row
 
    Sheet1.Select
    XlBook.Sheets(1).Range(Cells(1, 1), Cells(5, 3)). _
        Font.Italic = True
 
    If Err.Number <> 0 Then
        Msg = "Erreur : " & Str(Err.Number) & "générée par " _
            & Err.Source & Chr(13) & Err.Description
        MsgBox Msg, , "Erreur", Err.HelpFile, Err.HelpContext
        Err.Clear
    End If
 
    XlBook.Close
    XlApp.Quit
    Set XlApp = Nothing
    Set Sheet1 = Nothing
Cordialement
Jean-Jacques