Openoffice dans vb6 [Résolu]

M_didi 22 Messages postés dimanche 29 janvier 2006Date d'inscription 20 mars 2008 Dernière intervention - 29 août 2006 à 17:26 - Dernière réponse : michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention
- 29 août 2006 à 18:19
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
Private
Declare
Function
ShellExecute Lib <var>"shell32.dll"</var> Alias <var>"ShellExecuteA"</var> (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

<samp></samp>ouvrir = <var>"c:\machin\truc.txt"</var>
ouvrir = <var>"c:\marchandise essay.ods"</var>

ShellExecute Me.hwnd, vbNullString, ouvrir, <var>""</var>, vbNullString, 1
Auriez-vous une solution.
  
      M_didi 
Afficher la suite 

Votre réponse

1 réponse

michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention - 29 août 2006 à 18:19
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de michelxld

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.