FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

1
2
ArgsDoc(0).Name = "MacroExecutionMode" 
ArgsDoc(0).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN

1
2
ArgsDoc(0).Name = "MacroExecutionMode" 
ArgsDoc(0).Value = 4

1
2
3
Sub Main 
MsgBox com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN 
End Sub

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
37
38
39
40
41
42
43
44
45
46
47
Option Explicit 
  
Sub Test() 
    Dim serviceManager As Object, Desktop As Object, Document As Object 
    Dim Fichier As String 
    Dim Args(0) As Object 
    Dim T As Date 
  
    'Appel fonction de conversion 
    Fichier = ConvertToURL("C:\LeClasseur.ods") 
  
    'Création d'une instance Open Office 
    Set serviceManager = CreateObject("com.sun.star.ServiceManager") 
    Set Desktop = serviceManager.createInstance("com.sun.star.frame.Desktop") 
  
    '-------------- 
    'Tableau pour les paramètres du mode masqué 
    Set Args(0) = _ 
        serviceManager.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 Document = _ 
        Desktop.loadComponentFromURL(Fichier, "_blank", 0, Args()) 
    '-------------- 
  
    'Ecrit dans la cellule A1 de la feuille 
    Document.getSheets.getByName("Feuille1").getCellRangeByName("A1").Value = 1234 
  
    'Enregistre les modifications 
    Document.store 
    DoEvents 
  
    '-------- 
    'Ajoute une temporisation de 2 secondes pour empêcher que le fichier 
    'ne se ferme avant la fin de l'enregistrement. 
    T = Timer + 2: Do Until Timer > T: DoEvents: Loop 
    '-------- 
  
    'Fermeture du fichier : 
    Document.Close (True) 
  
    MsgBox "Opération terminée" 
End Sub

1
2
3
4
5
6
7
8
Function ConvertToURL(Fichier As String) 
    'Fonction de conversion  au format URL 
    Dim Cible As String 
  
    Cible = Fichier 
    Cible = Replace(Cible, "\", "/") 
    ConvertToURL = "file:///" & Cible 
End Function