Macro Calc Le sujet est résolu

Y compris Writer et toute autre question en lien avec les suites bureautiques Open Source
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 1'948
Appréciations reçues : 31
Inscrit le : 13 mai 2014
Version d'Excel : 2007-201364bits-2011MAC

Message par fred2406 » 19 juin 2018, 15:43

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
Je ne réponds pas aux M.P. non sollicités.
Fred
n
njhub
Membre dévoué
Membre dévoué
Messages : 901
Appréciations reçues : 40
Inscrit le : 5 juin 2017
Version d'Excel : LO CALC 6.1.4.2 261218 FR-YT

Message par njhub » 19 juin 2018, 16:27

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
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 1'948
Appréciations reçues : 31
Inscrit le : 13 mai 2014
Version d'Excel : 2007-201364bits-2011MAC

Message par fred2406 » 19 juin 2018, 17:48

Bonjour
Merci je vais aller voir....
Fred
Je ne réponds pas aux M.P. non sollicités.
Fred
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 1'948
Appréciations reçues : 31
Inscrit le : 13 mai 2014
Version d'Excel : 2007-201364bits-2011MAC

Message par fred2406 » 26 juin 2018, 18:14

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
Je ne réponds pas aux M.P. non sollicités.
Fred
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message