Discussion :

[jj37fr]

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

[Daniel.C]

Bonjour,

Sur quelle ligne as-tu l'erreur ?

[jj37fr]

Bonjour

J'ai un peu progressé car avec la gestion de l'erreur, il suffit de fermer le document Word pour recommencer. Avant, il fallait relancer la machine !

Cela voudrait, aussi, dire que mon traitement de l'erreur n'est pas satisfaisant !

J'ai enfin pu cerner l'erreur... et elle apparait sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheet2.Range(Cells(2, 1)).Value = "I"

alors que, par exemple,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Sheet2.Range("F1:F2690").Value = "M"

fonctionne de même que les Copier/Coller du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheet1.Columns(1).Copy Destination:=Sheet2.Cells(1, 11)

Il semble donc que "Cells" n'est pas accepté avec Value ou... !

Je souhaite remplir, par exemple, la colonne "F" de 1 à "DernLig" avec "M"
Ici "DernLig = 2690", mais cela varie !

J-J

[gFZT82]

Bonjour,

Je souhaite remplir, par exemple, la colonne "F" de 1 à "DernLig" avec "M"

Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheet2.range("F1:F" & DernLig)="M"

Tu ne peux pas écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheet2.Range(Cells(2, 1)).Value = "I"

Pour affecter la valeur “I” à la cellule A2, tu dois écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheet2. Cells(2, 1)).Value = "I"

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheet2.Range(“A2”).Value = "I"

Cordialement.

[jj37fr]

Bonjour

Merci...
La ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheet2.range("F1:F" & DernLig)="M"

Fonctionne parfaitement.

Deux questions

1) Comment faire la même chose que ci-dessus avec "Cells" ?
2) Y a-t-il une faute dans la gestion de mon erreur qui expliquerait que je puisse pas relancer ? C'est comme si le fichier restait ouvert !

[Didier Gonard]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheet2.range("F1:F" & DernLig)="M"

1) Comment faire la même chose que ci-dessus avec "Cells" ?

l'écriture équivalente est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(1, 6), Cells(DernLig, 6)) = "M"

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier