Discussion :

[Godzestla]

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.

[Jean-Philippe André]

salut,
n'est-il pas envisageable de faire la validation des compléments avec la fonction Addins ?

Cette propriété renvoie une collection AddIns qui englobe tous les compléments répertoriés dans la boîte de dialogue Compléments (menu Outils). En lecture seule.

Pour plus d'informations sur le renvoi d'un seul membre d'une collection, consultez Renvoi d'un objet à partir d'une collection.

Note
L'utilisation de cette méthode sans identificateur d'objet correspond à celle de Application.Addins.

Exemple
Cet exemple montre comment afficher l'état du complément de l'utilitaire d'analyse. Il est à noter que la chaîne utilisée comme index de la collection AddIns correspond au titre du complément et non à son nom de fichier.

If AddIns("Analysis ToolPak").Installed = True Then
MsgBox "Analysis ToolPak add-in is installed"
Else
MsgBox "Analysis ToolPak add-in is not installed"
End If

[Godzestla]

Merci Jpcheck,

dans le cas de mon fichier qui est un .XLS, ce test ne marche pas.

Je cherche le moyen de vérifier si cet XLS est chargé.

En attendant pour me dépanner je le charge manuellement via mon fichier de script VBA mais ce n'est pas très élégant même si fonctionnel..