Bonjour,
J'ai une boite de dialogue, avec trois zone de texte
un, deux et trois,
'
Sub EcrireFichierTexteV2()Dim f1 As IntegerDim OuiNon As Booleandim groupement as object OuiNon = Truef1 = FreeFile ' obtenir un numéro de fichier ouvertOpen nomFi
Bonsoir Bernard et merci.
J'avais trouvé dans le How-to
Sub Essai
oDesktop=createUnoService("com.sun.star.frame.Desktop")
Dim mNoArgs(0) As New com.sun.star.beans.PropertyValue
sUrl =
"private:factory/swriter"
bonjour,
J'essaie d'utiliser page 33 et 34 du livre de PITONYAK, pour ouvrir une macro à l'aide d'une autre macro (Boite de dialogue)
Bloquage en raison d'une sécurité
REM * BASIC *Option explicit
option base 1
' les controles de la boite de dialogue sont déclarés en
Bonjour Didier
Ce code:
Sub Essai
oDesktop=createUnoService("com.sun.star.frame.Desktop")
Dim mNoArgs(0) As New com.sun.star.beans.PropertyValue
sUrl = "staroffice.factory:swriter"
oDocument=oDesktop.LoadComponentFromURL(sUrl,"_blank",1,mNoArgs())
End Sub
fonctionne avec OOo1.1.5 mais pas 2.0
Bonjour,
On Mon, Nov 21, 2005 at 08:34:28PM +0100, Didier Dorange-Pattoret wrote:
> Sub Essai
> oDesktop=createUnoService("com.sun.star.frame.Desktop")
> Dim mNoArgs(0) As New com.sun.star.beans.PropertyValue
> sUrl = "staroffice.factory:swriter"
> oDocument=oDesktop.LoadComponentFromURL(sUrl,"_bl