Discussion :

[laconst]

Bonjour, j'aurais voulu savoir comment faire pour diviser une cellule en deux sur tableur OOo?
J'ai crée dans des céllule des menus déroulants, je souhaiterais qu'en dehors de choix de ce menu, l'on puisse aussi écrire quelque chose dans la case si aucun choix convient. comment fait on??

Merci
LA const

[Patbart]

Bonjour,

Si ton menu déroulant, tu l'as créé en passant par le menu données - validité,
il faut juste décocher dans l'onglet message d'erreur "message d'erreur en cas de saisie de valeurs incorrectes.

@+ Patbart

[laconst]

Merci ca fonctionne

et est ce que tu saurais ce qui ne va pas dans ce code:

code:
"sub fournisseur4
dim document as object
dim Sheets as object
dim oSheet as object
dim dispatcher as object
document = ThisComponent
oSheet=document.Sheets.getByName("tissus")
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")


rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "C:\Documents and Settings\serge\Mes documents\constance\iut\gmp 1\stage\projet de stage\fournisseurs\fournisseurs"

dispatcher.executeDispatch(document, ".uno:GoTo", "", 0, args1())
end sub"

je souhaiterais qu'en cliquant sur mon bouton "fournisseurs" qui est dans une feuille d'un classeur ca m'ouvre la feuille fournissuers qui est elle dans un autre dossier.

merci encore
Codialement
Me HAMON

[Patbart]

Slt,

J'ai trouvé ça pour ouvrir un autre document, rajoutes le dans ta macro

sub Main
rem ----------------------------------------------------------------------
rem definition variables
dim document as object
dim dispatcher as object
Dim Fichier As String
Dim Args()
rem ----------------------------------------------------------------------

document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Fichier = ConvertToUrl("C:\rrrr.ods") 'Chemin du document que tu veux ouvrir
dispatcher.executeDispatch(Fichier, ".uno:Open", "", 0, Array())

end sub

@+ Patbart