Bonjour,
j'utilise fréquement le code suivant depuis access pour manipuler les fichiers excel créé depuis Access :
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
34
35
36
Sub Execute_Excel_Script(document As String, Excel_Workbook As String, Script_Folder As String, Excel_Script_File As String, Script_Name As String, Specific_param As Variant)
On Error Resume Next
Dim XLApp As Object
Dim ExcelWasNotRunning As Boolean    ' Indicateur de libération finale.
Dim FullScript As String
 
FullScript = Trim(Script_Folder) & Trim(Excel_Script_File)
 
Set XLApp = GetObject(, "Excel.Application")
If err <> 0 Then
   err.Clear
   ExcelWasNotRunning = True
   Set XLApp = CreateObject("Excel.application")
 Else
    ExcelWasNotRunning = False
End If
XLApp.Visible = True
Set XlWkb = XLApp.Workbooks.Open(FullScript)
 '
 ' ici nous lançons les macros automatiques d'Excel mais vous pouvez mettre du code
 '
XlWkb.RunAutoMacros xlAutoOpen
 
XLApp.Run Script_Name, document, Excel_Workbook, Excel_Script_File, Specific_param
'XlWkb.Save
XlWkb.Close
'If ExcelWasNotRunning = True Then
    XLApp.Application.Quit
'End If
 
Set XlWkb = Nothing
Set XLApp = Nothing
'Set m_Access = Access.Application
'm_Access.Visible = True
 
End Sub
J'ai un jour trouvé ce code quelquepart sur ce site et je l'ai juste un peu adapté à mes besoins.

Je rencontre le problème suivant :

Lorsqu'excel est ouvert de cette manière, les objet complémentaires (.XLS, .XLA) qui sont habituelelment chargé lors de l'ouverture d'excel car sauvés dans le folder C:\Program Files\Microsoft Office\OFFICE11\XLSTART ne sont pas chargés.

Je voudrais pouvoir y accéder de manière transparente sans changer le code VBA du fichier excel ouvert, car si j'ouvre le ficheir excel par la voie normalle, mes objets complémentaires sont bien disponibles.

Voici la ligne de code qui ne fonctionne pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
        'res = Application.Run("GSAPI_VBA.XLS!Converttopdf_Silent")
Car le fichier C:\Program Files\Microsoft Office\OFFICE11\XLSTART\GSAPI_VBA.XLS n'est pas chargé.

Merci d'avance.