Discussion :

[DarkGriffin]

Bonjour,

J'ai besoin d'utiliser dans word les données d'un fichier excel. Mon code va donc vérifier (avec la fonction FileInUse que j'ai trouvée sur le net) s'il est ouvert ou non avant de commencer à travailler dessus.

S'il n'est pas ouvert, ça l'ouvre sans problème. S'il l'est, j'ai une erreur '9' sur la ligne : Set oWB = oExcel.Workbooks(PARAMETERS_FILE)

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
Sub UpdateList()
    Chemin = ThisDocument.Path
    Dim oExcel As Excel.Application
    Dim oWB As Excel.Workbook
    Set oExcel = New Excel.Application
 
    If FileInUse(Chemin & "\" & PARAMETERS_FILE) Then
        Set oWB = oExcel.Workbooks(PARAMETERS_FILE)
    Else
        Set oWB = oExcel.Workbooks.Open(Chemin & "\" & PARAMETERS_FILE)
    End If
 
    [...]
 
End Sub
 
 
Public Function FileInUse(sFileName) As Boolean
    On Error Resume Next
    Open sFileName For Binary Access Read Lock Read As #1
    Close #1
    FileInUse = IIf(Err.Number > 0, True, False)
    On Error GoTo 0
End Function

Une idée ?

[Invité]

Bonjour,

C'est normal, car vous avez créé une nouvelle instance d'Excel. Pour récupérer l'instance en cours, il vous faut utiliser l'instruction GetObject :

Code :

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

1
2
3
4
 
Dim ExApp as Object
 
 Set ExApp= GetObject(, "Excel.Application")

[DarkGriffin]

Rahhh merci, c'était évident mais je suis resté trop longtemps dessus !

Bon ben résolu, merci Eric, toujours là pour nous sauver