Salut,
Super la ligne d'instruction fonctionne parfaitement.
Merci du coup de main et la prochaine fois je penserai à mettre du code
François
----- Original Message -----
From: "Francois Gatto" <[EMAIL PROTECTED]>
To: <prog@fr.openoffice.org>
Sent: Monday, May 21, 2007 12:44 PM
Subject: Re: [prog] Dialogue enregistrer sous
Bonjour,
SEGUIN François a écrit :
Bonjour,
J'ai créée un boite de dialogue "enregistrer sous" avec un objet
"FilePicker" 'jutilise la variable "FILESAVE_AUTOEXTENSION" pour afficher
la boite avec une case à cocher "Extension automatique de nom de
fichier". Lors de l'affichage de la boite la case à cocher apparait non
cocher, et j'aimerai qu'elle apparaisse cocher par défaut.
Quelqu'un a t'il une solution.
François
Ce serait quand même sympa de poster parfois un extrait de code ;)
Quant à ton problème, je pense que quelque chose comme ceci devrait y
répondre :
sub SaveWithAutoExtension()
dim oDoc, oFilePicker
dim sDir as string
'http://api.openoffice.org/docs/common/ref/com/sun/star/ui/dialogs/TemplateDescription.html
dim sFPservice
oDoc = ThisComponent
sFPservice = Array(
com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION )
oFilePicker = CreateUnoService( "com.sun.star.ui.dialogs.FilePicker" )
'Configuration du FilePicker
with oFilePicker
sDir = oFilePicker.getDisplayDirectory
.Initialize( sFPservice() )
.SetDisplayDirectory( sDir )
REM ### active la case à cocher ###
.SetValue(
com.sun.star.ui.dialogs.ExtendedFilePickerElementIds.CHECKBOX_AUTOEXTENSION,
0, True)
end with
if oFilePicker.execute() then
'traitement
end if
end sub
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------------------------
Orange 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.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
