openoffice dans vb6Résolu

Question

Bonjour, Je voudrais mettre une feuille de calcule openoffice dans vb6 mais je n'arrive pas à faire la prog pour ouvrir le fichier. J'ai essayé cela mais rien n'y fait PrivateDeclareFunction ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Dim Ouvrir As String ouvrir = "c:\machin ruc.txt" ouvrir = "c:\marchandise essay.ods" ShellExecute Me.hwnd, vbNullString, ouvrir, "", vbNullString, 1 Auriez-vous une solution. M_didi

michelxld · Accepted Answer

bonjour

j'espere que cet exemple pourra t'aider

    'macro testée en VB/VBA et OOo 2.0.1
    Dim serviceManager As Object
    Dim Desktop As Object, Document As Object
    Dim Fichier As String
    Dim args()
    
    'Bien respecter les Slashs /
    Fichier = "[file:///C:/Documents file:///C:/Documents] and settings/repertoire/test.odt"


    'Création d'une instance Open Office
    Set serviceManager = CreateObject("com.sun.star.serviceManager")
    Set Desktop = serviceManager.createInstance("com.sun.star.frame.Desktop")


   'Ouverture du fichier
    Set Document = Desktop.loadComponentFromURL(Fichier, "_blank", 0, args)

bonne soiree
michel

Openoffice dans vb6

1 réponse

Votre réponse

Discussions similaires