Discussion :

[grommerch]

Bjr,

Lorsque j'exéctte le code ci-dessous depuis access, les données du fichier Excell ne sont pas chargées. le fichier modifié se retrouve dans "Récpération de fichier" . Comment éviter cela et afficher directement les données dans la table?
Merci pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Set xlApp = CreateObject("Excel.Application")
 xlApp.DisplayAlerts = False
 
Set xlBook = xlApp.Workbooks.Open("K:\AutexServer\MissionLaluxExcel\ImportMissionLalux2.xlsm")  
With xlBook
     .Activate
     .Queries("ImportationMission").Refresh
     .Save
 End With

J'ai également essayé avec

'xlApp.Run ("Reload") 'Reload étant la macro dans le fichier excel qui execute la mise à jour de la requête
et avec
.RefreshAll

Rien ne fonctionne

[mapeh]

Bonjour,
Je ne sais pas si c'est un doublon, ou que vous ne retrouvez pas votre première question, mais j'ai apporté une réponse à ce post
L'idée de la mise à jour dès l'ouverture est peut-être à creuser?

[grommerch]

Bjr et merci pour ta solution. Malheureusement elle ne fonctionne pas. J'ai finalement trouvé.
Pour ceux que ça pourrait intéressé voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Const Module_Name As String = "Module2"
Const Proc_Name As String = "Reload"
Dim xlMacro As String
Set xlApp = CreateObject("Excel.Application")
 xlApp.DisplayAlerts = False
 
Set xlBook = xlApp.Workbooks.Open("K:\AutexServer\MissionLaluxExcel\ImportMissionLalux2.xlsm", True, False) 
        xlMacro = xlBook.Name & "!" & Module_Name & "." & Proc_Name
        xlApp.Visible = False
        xlApp.Run xlMacro
        xlBook.Sheets("Page001").UsedRange.ListObject.QueryTable.Refresh
        xlBook.Save
        xlApp.DisplayAlerts = True