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)
Une idée ?
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
Partager