Macro Calc

Bonjour à tous....

je me suis lancer dans une macro sous calc mais je rencontre deux soucis...

existe -t-il un équivalent sous calc de de l'instruction excel

Application.ScreenUpdating = False

et deuxième question je demande a l'utilisateur de sélectionner un fichier modele avec :

Fichier = CreateUnoService("com.sun.star.ui.dialogs.FilePicker") 
'Spécifie le chemin par défaut lors de l'affichage de la boîte de dialogue  
Fichier.SetDisplayDirectory(getFullRep (ThisComponent.location))
Fichier.appendFilter("ODS Files (.ods)", "*.ods" ) 
'Affiche la boîte de dialogue "Ouvrir" 
X = Fichier.Execute() 

existe un moyen de personnaliser le titre dans la barre du haut comme sous VBA avec GetOpenFilename

    Fname = Application.GetOpenFilename( FileFilter:="Excel 97-2003 Files (*.xls), *.xls", Title:="Mon TITRE")

Car malgré mes recherches je ne trouve rien....

Merci

Fred

Bonjour fred2406,

Voyez sur ce forum, plus de 8000 sujets concernant les macros OpenOffice-LibreOffice,

vous y trouverez certainement une ou plusieurs solutions

https://forum.openoffice.org/fr/forum/viewforum.php?f=8

Bonjour

Merci je vais aller voir....

Fred

Bonjour a tous

bon j'ai trouvé pour personnalisé la boite de dialogue... Exemple

Sub Main
    fName = FileOpenDialog ("TOTO")
    Print "file chosen: "+fName
End Sub

Function FileOpenDialog(title As String) As String
    filepicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
 filepicker.Title = title
    filepicker.execute()
    files = filepicker.getFiles()
    FileOpenDialog=files(0)
End Function

Mais ne marchait pas sur mon LBO5.1.6 mais fonctionne sur ma version 5.3...

Fred

Rechercher des sujets similaires à "macro calc"