[AC-2007] Ouverture fichier excel actualisé

[gregius]

Bonjour, j'ai un bouton dans un formulaire access pour ouvrir un fichier excel mais celui-ci ne s'actualise pas.
Quand je l'ouvre dans l'explorateur windows, il s'actualise.

Avez-vous une idée?

Code :

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
34
35
36
37
38
39
Sub OpenSpecific_xlFile()
     '   Late Binding (Needs no reference set)
    Dim oXL As Object
    Dim oExcel As Object
    Dim sFullPath As String
    Dim sPath As String
 
 
     '   Create a new Excel instance
    Set oXL = CreateObject("Excel.Application")
 
 
     '   Only XL 97 supports UserControl Property
    On Error Resume Next
    oXL.UserControl = True
    On Error GoTo 0
 
 
     '   Full path of excel file to open
    On Error GoTo ErrHandle
    sFullPath = CurrentProject.Path & "\timesheet_2012.xls"
 
 
     '   Open it
    With oXL
        .Visible = True
        .Workbooks.Open (sFullPath)
    End With
 
 
ErrExit:
    Set oXL = Nothing
    Exit Sub
 
ErrHandle:
    oXL.Visible = False
    MsgBox Err.Description
    GoTo ErrExit
End Sub

[LedZeppII]

Bonjour,

Tu peux essayer comme ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub OpenSpecific_xlFile()
Dim oShell As Object
Dim strFichierAouvrir As String
 
Set oShell = CreateObject("Shell.Application")
 
strFichierAouvrir = CurrentProject.Path & "\timesheet_2012.xls"
oShell.Open CVar(strFichierAouvrir)
 
Set oShell = Nothing
End Sub

A+