RE: [prog] RE : [prog] VB et commandes UNO

[Cezame Concept]

Petite question ... pour effectuer un enregistrement sous différents formats j'avais utilisé sous VB6 cette fonction ...   Sous VB Express 2005 il semblerai qu'il faille passer un numérique en paramètre pour format ..   Problème j'en conclu donc que les formats style "MS Word 97" sont des constantes sous oOBasic .. si c'est le cas ou retrouver ces constantes ?   D'avance Merci ////     Sous VB6 Cela fonctionne   Function EnregistrerSousFormat(Optional psCheminComplet As String = "", Optional EstCopie As Boolean = False, Optional Ecraser As Boolean = False, Optional Format As String = "") As String   Dim mNoArgs(1) Dim sNomDocument  As String   On Error GoTo Sortie     Set mNoArgs(0) = setOOoProp("OverWrite", Ecraser) Set mNoArgs(1) = setOOoProp("FilterName", Format)     'Formatage du chemin du fichier sNomDocument = "file:///" + Replace(psCheminComplet, "\", "/") 'Enregistrement du document If EstCopie = True Then     Call oDocument.storeToURL(sNomDocument, mNoArgs) Else     Call oDocument.storeAsURL(sNomDocument, mNoArgs) End If EnregistrerSousFormat = psCheminComplet   Sortie:     EnregistrerSousFormat = ""     End Function   Sous VB2005 pour que cela fonctionne sans erreur ...il faut faire ceci ...   Function EnregistrerSousFormat(Optional ByVal psCheminComplet As String = "", Optional ByVal EstCopie As Boolean = False, Optional ByVal Ecraser As Boolean = False, Optional ByVal Format As Integer = 1) As String           Dim Arguments(1)         Dim sNomDocument As String           On Error GoTo Sortie           Arguments(0) = MakePropertyValue("OverWrite", Ecraser)         Arguments(1) = MakePropertyValue("FilterName", Format)           'Formatage du chemin du fichier         sNomDocument = "file:///" + Replace(psCheminComplet, "\", "/")         MsgBox(sNomDocument)         'Enregistrement du document         If EstCopie = True Then             Call oDocument.storeToURL(sNomDocument, Arguments)         Else             Call oDocument.storeAsURL(sNomDocument, Arguments)         End If         EnregistrerSousFormat = psCheminComplet   Sortie:         EnregistrerSousFormat = ""         End Function   Problème comment connaitre les différentes constantes pour enregistrer aux différents formats ?   Peut être existe t'il une macro pour les récupérer ?         -----Message d'origine----- De : Didier Dorange-Pattoret [mailto:[EMAIL PROTECTED]] Envoyé : jeudi 2 mars 2006 16:58 À : prog@fr.openoffice.org Objet : Re: [prog] RE : [prog] VB et commandes UNO   ReBonjour,   Histoire d'obtenir un kit exploitable pour programmer VB sur OOo, je me suis posé la question suivante :     Comment peut-on lancer une macro de OOoBasic depuis VB ? Je m'explique.   Je voudrais utiliser Xray de B. Marcelly. J'arrive à lancer Xray avec la macro ci-dessous mais pas à passer l'objet à étudier en paramètre.   Sub VBXray(ByRef oObj As Object)         Dim sChemin As String         sChemin = ConvertFromUrl(GetRepertoirePath("prog") & "\soffice.exe")         sChemin = """" & sChemin & """" & " " & """macro:///XrayTool._Main.Xray"""             Shell(sChemin, AppWinStyle.MinimizedFocus, True) End Sub   J'ai également essayer avec Call et CallByName(oBasicLibraries , "BasicLibraries.XrayTool._Main.Xray", CallType.Method) mais sans succès.   Une idée ???   Merci.   --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]   --------------------------------------------------------------------------------------- Wanadoo vous informe que cet  e-mail a ete controle par l'anti-virus mail. Aucun virus connu a ce jour par nos services n'a ete detecte.