Openoffice dans vb6 [Résolu]

Messages postés
22
Date d'inscription
dimanche 29 janvier 2006
Dernière intervention
20 mars 2008
- - Dernière réponse : michelxld
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Dernière intervention
12 octobre 2008
- 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

Meilleure réponse
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Dernière intervention
12 octobre 2008
19
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

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.