Bonjour,


Je travail sous DESKI 11.5 et souhaite réaliser une macro (Excel ou BO peu importe) qui scanne un dossier et ouvre chaque état BO se trouvant dans ce dossier.
L'objectif est de lister les connexions utilisé par les les états (Freehand SQL/Univers) + les objets .....

Jusque là je n'ai pas de problème. Le soucis que je rencontre est à l'ouverture d'un état bien particulier. Celui ci contient une macro qui s'exécute à l'ouverture du document (Document_Open).
Si j'ouvre le document manuellement j'ai une fenêtre qui me demande si je veux activer/désactiver les macros.
Mais si j'ouvre le document par du code l'option "activer les macro à l'ouverture" est prise par défaut. Et cela même si je spécifie "Application.Interactive = False"

Si quelqu'un a déjà rencontré ou solutionné ce problème je suis preneur pour des infos.


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 test2()
 
Dim orepertoir
Dim nom
Dim doc As busobj.Application
 
orepertoir = "C:\bo\FileStore\Input\a_044\234\000\59948"
nom = "aafr1syeotllrj1khmit8m4.rep"
 
Set doc = New busobj.Application
With doc
    .Application.Interactive = False
    .Visible = True
    .Interactive = False 
    '.Logon "Login", "MDP", "serveur", "Enterprise", False, False
    .Documents.Open (orepertoir & "\" & nom)
    With .ActiveDocument
         .Close
    End With
End With
 
Set doc = Nothing
 
End Sub
Bonne journée