Bonjour,
Bonne nouvelle!
Merci.
Thibault
- Mail original -
De: Jean-Baptiste Faure jbf.fa...@laposte.net
À: prog@fr.openoffice.org
Envoyé: Mercredi 22 Septembre 2010 12:47:28
Objet: Re: [prog] Probleme avec le ConfigurationProvider dans la 3.3
Le 20/09/2010 10:59, Thibault Vataire
Bonjour,
Le problème a été reporté sur le bug tracker d'OOo :
http://qa.openoffice.org/issues/show_bug.cgi?id=111970
Cordialement,
T. Vataire
- Mail original -
De: Didier Dorange-Pattoret ddora...@dmaths.org
À: prog@fr.openoffice.org
Envoyé: Samedi 18 Septembre 2010 14:31:00
Objet:
,
Thibault Vataire
- Mail Original -
De: Martin Blaizot martin.blai...@wanadoo.fr
À: prog@fr.openoffice.org
Envoyé: Dimanche 1 Août 2010 13:02:34
Objet: [prog] publi-postage à l'envers
Bonjour à tous,
Est-il possible de récupérer par macro les noms de tous les fichiers contenus
dans un dossier
Cordialement,
Thibault Vataire
- Mail Original -
De: Didier Dorange-Pattoret ddora...@dmaths.org
À: prog@fr.openoffice.org
Envoyé: Jeudi 1 Juillet 2010 14:08:22
Objet: [prog] Position de la souris dans un document dessin
Bonjour à tous,
Lorsqu'un document dessin est affiché, on peut remarquer
Bonjour,
J'ai fait différents tests dans différents contextes (documents créés par
macros, déja existant, déjà ouvert) et mes cadres apparaissent
systématiquement, qu'OOo vienne d'être lancé ou non.
Pouvez-vous nous donner plus d'information sur le contexte de votre macro :
- le type et
De mon coté non plus, je ne parviens pas à sélectionner à la souris les cadres
insérés. Il me faut insérer une forme de dessin à partir de la barre de dessin
puis naviguer jusqu'a la forme à sélectionner avec la touche tabulation.
Quels sont les arguments passé avec propFich ?
Pour vérifier si
Bonjour,
Après avoir analysé votre document, il semble que pour une raison inconnue, le
type de ligne sélectionné soit Invisible.
Peut être votre macro modifie-elle cette propriété quelque part.
Voici un bout de code permettant de réafficher vos cadres :
sub test
dim index as long
La conclusion semble donc être qu'il faut absolument définir la propriété
lineStyle d'un cadre, faute de quoi on est pas certain qu'il soit visible.
Non je ne pense pas car de mon coté, les cadres insérés dans un document sont
systématiquement visibles. Je pense plutot que votre macro
Bonjour,
Concernant votre précédent message, avez vous testé ceci :
- fermer OOo, y compris le démarrage rapide s'il est actif
- déplacer le répertoire de la librairie se trouvant dans votre profil
utilisateur vers un autre emplacement
- relancer OOo
- Menu Outils Macros Gérer les macros
Bonjour,
La biliothèque Cinesoft est-elle visible dans la fenêtre de sélection de
macros ?
Trouvez-vous un répertoire Basic\Cinesoft dans votre profil utilisateur
OpenOffice.org.
Cordialement,
T. Vataire
- Mail Original -
De: Martin Blaizot martin.blai...@wanadoo.fr
À:
: nimel ni...@free.fr
À: prog@fr.openoffice.org
Envoyé: Vendredi 21 Mai 2010 18:40:02
Objet: [prog] Re: Est-il possible de casser le lien d'un tableau ?
Thibault Vataire a écrit :
Bonjour,
Pouvez-vous me faire parvenir un document d'exemple contenant un tableau tel
que celui que vous utilisez
Bonjour,
Quelle est le format exact de la source à partir de laquelle les données sont
copiée dans le presse papier ?
Est-ce un tableau Writer ?
Si c'est le cas, voici un exemple qui, je l'espère, pourrait correspondre à ce
que vous souhaiter réaliser :
option explicit
sub main
dim
:
obj.EmbeddedObject.Component.Text.String=
ThisComponent.CurrentController.Select(obj)
Pour que l'objet inséré soit sélectionné et donc éditable par double-clic.
Est-il possible d'écrire du code qui équivaut à ce double clic, pour
que l'objet soit mis directement en mode édition ?
Merci d'avance.
Thibault Vataire
Impress
Bonsoir,
Merci Thibault pour cette aide précieuse.
J'ai intégré la macro dans Dmaths. Les utilisateurs pourrons accéder aux
fonctionnalités de Dmaths depuis Impress ...
Thibault Vataire a écrit :
Bonjour,
Le plus simple est d'utiliser le service com.sun.star.frame.DispatchHelper
pour
Bonjour,
Le problème de votre exemple vient de la manière dont vous modifiez les valeurs
de positions et de taille.
Voici comment procéder pour que cela fonctionne :
sub insereTexte
dim obj as object
dim aPos as variant
dim aSize as variant
obj =
Bonjour,
Ci-dessous un exemple permettant de coller le contenu du presse papier dans un
document Writer.
sub pasteClipboardContent()
dim controller as object
controller = thisComponent.currentController
if (not isNull(controller)) then
Bonjour,
Pour ajouter un emplacement de fichiers de confiance tel qu'il est possible de
le faire depuis le menu OutilsOptionsSécuritéSécurité des macrosSources de
confiances, vous pouvez déployer sur vos postes une extension qui contiendra le
fichier de configuration adéquat.
Vous trouverez
Bonjour,
En attendant le resultat des investigations de Cédric, voici une solution de
contournement :
Sub Main
dim curSel as object
dim selIndex as long
curSel = thisComponent.currentSelection
if (curSel.supportsService(com.sun.star.text.TextRanges)) then
Je ne suis pas sûr de comprendre ce qu'est ce mode partagé.
Est-ce pour tous les utilisateur ?
Oui, tout à fait. Lors d'une installation en mode partagée, l'extension est
installée dans le répertoire installation OOo/share/uno_packages/ et est
alors disponible pour l'ensemble des utilisateur
Bonjour,
j'avais essayé cela mais cela ne fonctionne pas sur OOo3.2. Mettre cette
propriété à Non empêche d'entrer dans le control lorsque le focus est
ailleurs mais si le focus est sur le controle, TAB passe quand même au
control suivant.
Exact. Mon erreur a été de définir la propriété
Bonjour,
Le listener doit bien être enregistré auprès du champs texte mais la le type
d'objet et la méthode ne sont pas les bon.
Il faut utiliser un listener de type com.sun.star.awt.XKeyListener et la
méthode addKeyListener() du champs text.
Voici un exemple :
option explicit
sub
Bonjour,
Lorsque vous utilisez la propriété formulaLocal, utilisez le nom de la
formule tel qu'il apparait lorsqu'elle insérée par l'interface graphique.
Lorsque vous utilisez la pseudo-propriété formula, il est nécéssaire
d'utiliser le nom de la formule en anglais.
soit :
Bonjour,
En ce qui conerne l'enregistreur, je n'ai pas dit qu'il était déconseillé,
c'est
juste que je ne sais pas retrouver les différents paramètres à changer.
Le fichier http://api.openoffice.org/files/documents/22/1344/slots.sxc
répertorie bon nombre des commandes utilisables via l'API
Bonjour,
Qu'entendez-vous exactement par empêcher qu'un utilisateur modifie un
formulaire?
Empêcher l'ajout/suppression de contrôles de formulaire, empêcher le
déplacement des contrôles, autre...?
solution 1 : un ots, mais j'ai une macro d'ouverture qui s'execute sur
l'ots et non sur le
Petite précision : il faut également modifier le menu fichier pour ce document
et supprimer le bouton enregistrer.
Procéder de la même manière mais dans l'onglet Menu au lieu de Barres
d'outils
Cordialement,
T. Vataire.
- Mail Original -
De: Thibault Vataire tvata...@starxpert.fr
À
oui mais
ca n'empeche pas la demande de sauvegarde par OOo à la fermeture de
l'application
C'est vrai, et ça ne règle pas non plus le problème de l'utilisation des
raccourcis clavier auxquels je n'avais pas pensé non plus.
et ca ne fait pas executer la macro d'ouverture de document dans
Bonjour,
Le plus simple pour réaliser cela, est de générer une extension contenant votre
macro et de l'installer via le gestionnaire des extensions.
Je vous conseille l'outil BasicAddonBuilder qui permet de créer des extensions
et de personnaliser/créer des menus, barres d'outils... simplement.
Bonjour,
Les pseudo-propriétés .referredCells et .referredCells.rangeAddress sont en
lecture seule.
A ma connaissance, les coordonnées de la plage ne peuvent être modifiées. Il
faut supprimmer puis recréer.
Cordialement,
T. Vataire
- Mail Original -
De: c c prog_amat...@hotmail.fr
À:
Bonjour,
S'il s'agit d'actualiser l'affichage du pilote de données, vous pouvez vous
inspirer de ceci qui permet d'actualiser tous les pilotes de données de la
feuille active :
Sub refereshDataPilot()
dim dpEnum as object
dpEnum =
Effectivement, je n'avais pas pris en compte que votre pilote était créé sur le
résultat d'une requête.
Dans ce cas, mon exemple ne fonctionne effectivement pas.
Cordialement,
T. Vataire
- Mail Original -
De: hs...@villeneuvedascq.fr
À: prog@fr.openoffice.org
Envoyé: Lundi 26 Octobre
Bonjour,
Je me suis servi de cette astuce pour copier-coller les valeurs d'une zone
d'une
feuille dans une autre feuille. Cela fonctionne bien si la feuille d'arrivée
est
vide, mais si on relance sans vider la feuille d'arrivée les formats sont
perdus.
Je n'arrive pas à reproduire votre
Bonjour,
S'il s'agit de mettre à jour une plage de base de données, ceci devrait
correspondre à votre besoin :
option explicit
'1/ enregistrer un ecouteur aupres du controler
'associer cette fonction à l'evenement Ouvrir le document du document calc.
sub main
Bonjour,
Ceci :
thisComponent.sheets.getByName(Feuille1).queryContentCells(com.sun.star.sheet.CellFlags.VALUE
+ _
com.sun.star.sheet.CellFlags.DATETIME + _
com.sun.star.sheet.CellFlags.STRING + _
com.sun.star.sheet.CellFlags.FORMULA)
permet d'obtenir pour la feuille nommée Feuille1, une
Bonjour,
A ma connaissance, dataArray ne copie pas la mise en forme car il ne s'agit que
de tableau de tableau de string/double.
Par contre il est possible d'utiliser successivement la méthode copyRange()
d'un feuille (cela va tous copier y compris les formats est formules) puis
d'écraser les
Bonjour,
Tout dépend de ce que vous souhaitez faire exactement car ctrl+* = selectionner
l'ensemble des données et non selectionner l'ensemble d'une feuille.
Pour ctrl+* , le plus simple je pense est d'enregistrer une macro (outils
macros enregistrer une macro)
Pour selectionner l'ensemble
Bonjour,
Je pense qu'il est possible de réaliser ce à quoi vous pensez en combinant
l'utilisation des styles et des macros :
1/ créer autant de styles de puces que types de numérotation à utiliser.
L'astuce ici est de sélectionner le niveau 1-10 dans l'onglet Options pour que
tous les niveaux
Bonjour,
Voici un exemple de mise à jour d'une table à partir d'un RowSet :
sub testRowset()
dim rowSet as object
rowSet = createUnoService(com.sun.star.sdb.RowSet)
rowSet.DataSourceName = fournisseurs_fruits
rowSet.commandType =
Bonjour,
Quel est l'objectif de votre fonction OpenForm.
Actuellement elle ne fait rien d'autre que créer une PropertyValue et
renseigner ses différentes propriétés, mais cela ne va rien affiche à l'écran.
Il est donc normal que rien ne se passe.
Cordialement,
T. Vataire
- Mail Original
Bonjour,
Le problème rencontré avec la fonction ReplaceAll et dû au fait que votre
curseur de navigation ne dispose pas de cette méthode : c'est le document qui
permet de faire appel à ReplaceAll.
Pour savoir si un object dispose d'une méthode ou non, vous pouvez utiliser
l'outils Xray.
Bonjour,
Cette erreur signifie que l'index de colonne ou de ligne spécifié est hors des
valeurs acceptables pour votre plage de cellule.
Combien y a t'il de colonnes et lignes dans votre plage nommée?
Pour rappel, en macro sous OpenOffice, les lignes et de colonnes sont numérotés
à partir de 0.
Mais je ne vais pas bien loin car il plante au niveau de la ligne :
document = ThisComponent.CurrentController.Frame
et je ne sais pas pourquoi...
Bonjour,
Quel est le message d'erreur?
Cordialement,
T. Vataire
-
To
Bonjour,
Lorsque la même mise en forme est utilisée dans tous le paragraphe, le problème
ne se pose pas : c'est cette mise en forme qui est utilisé quelque soit la
position du texte ajouté ou la manière dont il est ajouté.
Toutefois si votre paragraphe contient diverses mise en forme, le choix
de la ligne de commande
If isWindows Then
ef = command.com C:/+filePath+script+.bat
Else
ef = xvt -e sh +filePath+script+.sh
End If
REM Exécution de la ligne de commande
Shell(ef, 1, prms, sync)
End Sub/
Thibault Vataire a écrit :
Bonjour,
La fonction Shell est une
Thibault Vataire a écrit :
Bonjour,
Lorsque l'on associe l'exécution d'une macro à un évènement de l'application en
passant par le menu Outils Personnaliser Événements, l'évènement à
l'origine du déclenchement de la macro n'est pas passé en paramètre.
Il faut donc remplacer :
Sub
Bonjour,
Qu'entendez-vous par le gras et les sauts de lignes ne sont plus du tout les
mêmes ?
Parlez-vous de la mise en forme du contenu du tableau ?
Votre problème est-il un problème de mise en page ou bien un problème de mise
en forme du contenu du tableau?
De mon coté, lorsque je remplace le
Bonjour,
La fonction Shell est une fonction intégrée au Starbasic et ne nécessite pas de
charger une bibliothèque.
La documentation de cette fonction est disponible dans l'aide d'OpenOffice.org
dans la section OpenOffice.org Basic.
Quel problème rencontrez-vous exactement?
Cordialement,
T.
Bonjour,
Si les données à insérer proviennent du presse-papier, vous pouvez utiliser
ceci :
Sub Main
dim clipboard as object
clipboard =
createUnoService(com.sun.star.datatransfer.clipboard.SystemClipboard)
Bonjour,
Effectivement, la transmission d'un tableau comme paramètre se fait
systématiquement par référence.
Cette observation est valable quelque soit le type de tableau et le nombre de
dimensions.
Je ne pense pas que passer un tableau par valeur ai réellement un sens car cela
impliquerait de
Bonjour Laurent,
Je pense que l'utilisation d'un variant ne change rien au fond du problème.
Cela permet effectivement de passer le tableau avec le mot clé byval, mais en
réalité il est toujours passé par référence. Pour s'en convaincre, exécuter
l'exemple suivant :
sub mainArray()
Bonjour,
Il me semble que l'object context est de type com.sun.star.uno.XComponentContext
Toutefois tu n'en aura pas besoin en starbasic car il est utilisé de manière
implicite par la méthode createUnoService propre au starbasic.
Tu peux donc directement instancier le service
Bonjour,
Voici un petit bout de code permettant de modifier la taille des icônes des
barres d'outils :
sub main()
dim confParam as object
dim param(0) as new com.sun.star.beans.PropertyValue
param(0).name = nodepath
param(0).value =
Bonjour,
Voici comment executer une macro depuis une invite de commande ou un fichier
batch :
C:\chemin\vers\executable\OOo
macro:///nom_bibliotheque.nom_module.nom_procédure
Quelques exemples:
* macro sans argument
C:\Program Files\OpenOffice.org 3\program\soffice.exe
Bonjour,
Vous pouvez également utiliser cette fonction pour tester si un document est
déjà ouvert non :
function isDocAlreadyOpened(url as string) as boolean
dim success as boolean
dim frames as object
dim found as boolean
dim fIndex as long
dim
Bonjour,
Je n'arrive pas à reproduire votre problème :
1/ lorsqu'une de mes librairies est protégée par mot de passe, je n'arrive pas
à lire/modifier sont contenu avec une autre macro.
2/ lorsque j'ouvre cette librairie avec le mot de passe, je peux lire/modifier
le contenu et le sauvegarder.
54 matches
Mail list logo