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.
Bonne journée
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
Partager