En complément, on pourra détecter la plateforme avec par exemple :
activeOS = Environ("OS")
Select Case left(lCase(activeOS),1)
Case "w"
print "Windows"
Case "l"
print "Linux :)"
Case Else
print "Non géré"
End Select
Désolé pour les utilisateurs de Mac, je ne sais pas :(
Francois Gatto again ;)
Selon Francois Gatto <[EMAIL PROTECTED]>:
> Bonjour,
>
> Un moyen de récupérer des emplacements :
>
> Sub showPathSettings
> Dim oPathSettings As Object
> oPathSettings = CreateUnoService( "com.sun.star.util.PathSettings" )
> 'xray oPathSettings
> MsgBox( oPathSettings.Module )
> End Sub
>
> En activant le rayon X ;) on trouvera de nombreuses propriétés et
> quelques méthodes.
>
> François Gatto
>
> Alain Nowak wrote:
>
> > Voila un exemple complet :
> > Sub Main
> > SOFFICE = "C:\Program Files\OpenOffice.org 2.0\program\soffice.exe"
> > Dim noArgs() as new com.sun.star.beans.PropertyValue
> > fichierData = "D:\tmp\test1.odt"
> > oDocument =
> > StarDesktop.loadComponentFromURL(convertToURL(fichierData), "_blank",
> > 0, noArgs())
> > maChaine = SOFFICE & " macro://test1/Standard.Module1.test"
> > 'msgBox maChaine
> > shell(maChaine)
> > End Sub
> >
> > Dominique a écrit :
> >
> >
> >> Shel avec un seul était une faute de frappe sur le message,
> >> même avec deux ailes, le problème reste le même
> >>
> >> Dominique
> >> Bonjour
> >>
> >> > J'ai essayé mais j'ai un affichage erreur de parenthèse,
> >> > sur : Shel(office
> >> > où est le problème
> >>
> >> shell (deux L)
> >> sous windows : soffice.exe mais en mettant eventuellement le chemin si
> >> pas dans le path
> >> generalement
> >> c:\program files\OpenOffice\program\soffice.exe
> >>
> >> Laurent
> >>
> >> --
> >> Laurent Godard <[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>> -
> >> Ingénierie OpenOffice.org
> >> Indesko >> http://www.indesko.com
> >> Nuxeo CPS >> http://www.nuxeo.com - http://www.cps-project.org
> >> Livre "Programmation OpenOffice.org", Eyrolles 2004
> >
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
