[VB6-OOo]Rendre visible un classeur Calc ouvert "caché"
Bonjour,
Je traite des classeurs Calc de manière implicite pour l'utilisateur. Pour cela, j'ai utilisé le code ci-dessous pour que le classeur soit invisible lors du traitement.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| strfile = replace(strfile, "\", "/")
'-------------
'Création d'une instance Open Office
Set oServiceManager = CreateObject("com.sun.star.serviceManager")
Set oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
'Tableau pour les paramètres du mode masqué
Set args(0) = oServiceManager.Bridge_getStruct("com.sun.star.beans.PropertyValue")
'Arguments Open Office pour masquer le fichier
args(0).NAME = "Hidden" 'nom de l'argument
args(0).Value = True 'valeur de l'argument
'Ouverture du fichier
Set oDocument = oDesktop.loadComponentFromURL(strfile, "_blank", 0, args) |
Le problème est que je souhaite, à la fin du traitement, rendre visible le fichier par l'utilisateur.
Quelqu'un saurait-il comment ???
Merci :)
