[prog] syntaxe
Bonjour, je débute avec les macros. Après en avoir enregistré plusieurs, je vois bien que toute commande est une fonction du style dispatcher.executeDispatch(document, .uno:DefineName, , 0, Array()) où : le premier paramètre est le document le deuxième la commande Mais je n'arrive pas à trouver dans la doc la liste des commandes et les arguments à passer. En effet dans le cas de l'exemple donné, l'enregistreur n'a pas pris en compte le nom que j'avais donné à ma plage, ni son adresse, je ne vois donc pas comment la paramètrer Merci de m'aider _ Vous voulez savoir ce que vous pouvez faire avec le nouveau Windows Live ? Lancez-vous ! http://www.microsoft.com/windows/windowslive/default.aspx
Re: [prog] Appel à test - extension Cal c2Dokuwiki
Luc Sorel a écrit : [...] Quoi qu'il en soit, après avoir désinstallé la version précédente de Calc2Dokuwiki, y a-t-il des volontaires pour télécharger la nouvelle version http://www.lucsorel.com/index.php?page=downloads#calc2dokuwiki et la tester ? J'ai copié-collé ci-dessous les points que vous pouvez vérifier, si vous voulez. Sympathicamicalement, Luc (- Laurent : ça m'a pris un paquet de temps avant de le taper sans regarder celui-là ! ;-) ) Sur ma debian Sid (OOo 2.2.1-8) ça fonctionne sans avoir besoin de bidouiller pour faire apparaître l'icone ;) Y'aurait pas la même chose pour les documents writer ? Bon, je sais, je suis gourmand :D -- Claude Thomassin SIRE - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [prog] Problème d'assignation
Problème résolu. Merci. Jean-Claude - Original Message - From: Christine Brou [EMAIL PROTECTED] To: prog@fr.openoffice.org Sent: Tuesday, October 03, 2006 5:54 AM Subject: Re: [prog] Problème d'assignation Sub Message Dim oDlgMessage As Object DialogLibraries.LoadLibrary(Standard) ' charger la bibliothèque contenant le Dialog oDlgMessage = CreateUnoDialog(DialogLibraries.Standard.DLG_Message ) oDlgMessage.execute() oDlgMessage.dispose() End Sub Christine - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Base HSQL, ordre des champs dans une table
Maintenant je veux modifier sa structure en rajoutant un champs que je veux placer en première position dans la liste des champs. En Utilisant les fonctionnalités de Base, je n'y arrive pas. Dans le fichier Base de Données, sélectionner dans la liste des Tables la table souhaitée, clic droit : Modifier. Sélectionner la ligne d'un champ de la table, clic droit : Insérer. Le champ est inséré en dernier, mais ceci n'a aucune importance. L'ordre des champs dans une table n'implique en aucun cas celui d'affichage dans un formulaire de saisie ou dans une requête. Avec une requête SQL, il semble que le insert into ne fonctionne pas non plus. Le Insert Into ne peut insérer que des données dans une table, pas des champs. Jean-Claude - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] PB mise à jour de base de do nnée BASE
En mode saisie, est-ce que les modifications sont bien prises en compte, même si Ooo est fermé puis réouvert ? Jean-Claude - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] impossible de faire un update dans base via macro
Bonjour, A) Vous utilisez une Boite de dialogue ou un formulaire ? B) En ce qui me concerne, j'avais fait une application de saisie avec formulaire en Ooo V1.1 et je faisais simplement un UpdateRow sur ma référence au formulaire de saisie oForm, ce qui provoquait la mise à jour de la BdD : oForm = ThisComponent.DrawPage.Forms.GetByName(Saisie_totale) oForm.UpdateRow C) Sinon, il y a toujours la possibilité d'envoyer une requête UPDATE directement à la BdD Jean-Claude DAVID - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] impossible de faire un update dans base via macro
Une Base de Données ne verrouille pas un enregistrement si on ne lui demande pas explicitement. Si c'est une boite de dialogue remplie par une requête SELECT, cette requête ne peut pas mettre à jour la BdD. Pour ma part, pour chaque ligne, je ferais quelque chose du type (je n'ai pas vérifié la syntaxe) : strSQL = UPDATE signataires SET resuQuery.columns(0).Name = tabSignataires(monrow, 0) , resuQuery.columns(1).Name = tabSignataires(monrow, 1) ... WHERE ID_signataires = ID_signataires 'Création de la requête oStatement = oCon.CreateStatement() 'Exécution de la requête Retour = oStatement.executeUpdate(strSQL) Envoye ton fichier en M.P. si tu souhaites que j'y jette un coup d'oeil. Jean-Claude DAVID - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] impossible de faire un update dans base via macro - s uite
Dans la documentation de l'interface XStatement (que retourne ExecuteQuery) il est précisé : is used for executing a static SQL statement, on serait donc sur un ResultSet statique et pas dynamique. A mon avis, il faut donc passer par des Update pour effectuer des mises à jour. Ou alors il faut utiliser un XResultSetUpdate qui lui provides the possiblity to write changes made on a result set back to database. par un UpdateRow Jean-Claude - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[prog] Ajout d'un Numberformat en 2.0
Bonjour, J'ai développé une appli en 1.1 au printemps 2004 (je n'ai plus refait de StarBasic depuis), et aujourd'hui je regarde la migration en 2.02.rc4 et je tombe sur la 1ère erreur ;-) Soit... après quelques essais divers infructeux, je reprends une macro exemple originale qui va bien (généralement) sur l'ajout de formats de nombres, d'Andrew PITONYAK, et o stupeur elle bugue egalement ;-( Je l'exécute en 1.1.5, elle fonctionne correctement. Bon, j'ai fait un pas en avant, ce n'est pas que mon code qui lève l'erreur mais également celui d'Andrew ;-) ça reconforte, mais cela ne me fait pas beaucoup progresser... L'erreur est une com.sun.star.uno.RuntimeException sur la ligne addNew à la fin de la macro Ais je loupé des choses sur l'évolution de la programmation en 2.0 ? Qulequ'un a t'il une piste à explorer ? D'avance merci JCD Sub Test Dim i as Integer i = FindCreateNumberFormatStyle( # ##0, ThisComponent) MsgBox i = ' i ', sbOkOnly, Titre_Appli End Sub 'Author: Andrew Pitonyak 'email: [EMAIL PROTECTED] Function FindCreateNumberFormatStyle ( sFormat As String, Optional doc, Optional locale) Dim oDocument As Object Dim aLocale As New com.sun.star.lang.Locale Dim oFormats As Object Dim formatNum As Long oDocument = IIf(IsMissing(doc), ThisComponent, doc) oFormats = oDocument.getNumberFormats() 'If you choose to query on types, you need to use the type 'com.sun.star.util.NumberFormat.DATE 'I could set the locale from values stored at 'http://www.ics.uci.edu/pub/ietf/http/related/iso639.txt 'http://www.chemie.fu-berlin.de/diverse/doc/ISO_3166.html 'I use a NULL locale and let it use what ever it likes. 'First, see if the number format exists If ( Not IsMissing(locale)) Then aLocale = locale End If formatNum = oFormats.queryKey (sFormat, aLocale, TRUE) MsgBox Current Format number is formatNum 'If the number format does not exist then add it If (formatNum = -1) Then formatNum = oFormats.addNew(sFormat, aLocale) If (formatNum = -1) Then formatNum = 0 MsgBox New Format number is formatNum End If FindCreateNumberFormatStyle = formatNum End Function - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Ajout d'un Numberformat en 2.0
Bon, je fais avancer mon Shmilblick... En fait il apparait que c'est avec le getByKey que j'ai des problèmes. Vous pouvez essayer le code ci dessous, qui indique que '# ##0' est différent de '# ##0' !!!???... ;- S1 est codé en dur comme '# ##0', S2 est affecté par le 3ème format de la liste qui est égal à '# ##0'. Le test avec S1 ne fonctionne pas, celui avec S2 fonctionne. Une idée ? JCD Sub Test Dim i as Integer Dim NLS As New com.sun.star.lang.Locale dim s1 as String dim s2 as String dim oFormats as Object dim oFormat as Object s1 = # ##0 oFormats = ThisComponent.getNumberFormats() oFormat = oFormats.getByKey(3) s2 = oFormat.FormatString() if (s1 s2) then MsgBox s1 s2 (S1 = ' s1 ', s2 = ' s2 '), sbOkOnly, Titre_Appli MsgBox oFormat.FormatString = oFormat.FormatString MsgBox oFormat.Locale.Language = oFormat.Locale.Language MsgBox oFormat.Locale.Country = oFormat.Locale.Country MsgBox oFormat.Locale.Variant = oFormat.Locale.Variant MsgBox oFormat.Type = oFormat.Type '16 == Type = NUMBER MsgBox oFormat.Comment = oFormat.Comment else MsgBox s1 = s2 (S1 = ' s1 ', s2 = ' s2 ') end if 'Test 1 with s2 i = oFormats.queryKey ( s2, NLS, TRUE) MsgBox With s2, i = ' i ' 'Test with s1 NLS.Language = fr NLS.Country = FR i = oFormats.queryKey ( s1, NLS, TRUE) MsgBox With s1, i = ' i ' 'Test 2 with s2 (with NLS Specified) i = oFormats.queryKey ( s2, NLS, TRUE) MsgBox With s2, i = ' i ' End Sub - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Ajout d'un Numberformat en 2.0
Argh, merci beaucoup. J'en étais rendu à me préparer une boucle pour afficher le code ascii caractère par caractère de la chaîne... ;-)) Bon, ben j'ai quand même perdu pas mal de temps avec ce p de séparateur de milliers qui a donc changé en la V.1 et la V2. A tous les deux on arrivera peut être à faire une perruque avec le tas au pied du bureau ;-D JCD - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [prog] execution d'une macro
En groupe on est surement moins c... ;-))) Je m'étais posé la même question, mais j'avais trouvé à l'époque un autre biais. Peux tu m'indiquer où dans la doc tu as trouvé ta réponse, et comment tu procédes. Peut être également que l'on ne se pose pas exactement le même problème à résoudre. D'avance, merci. Jean-Claude Oouuups, je me réponds vite avant de recevoir RTFM ;-) je viens de trouver la réponse dans la doc d'openoffice, il faut passer par une fonction. le rouge de la honte, Gérard :-[ - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Retour sur fonction CalcSQL2
Bonjour, Dans le code exemples ci joint, il faut remplacer MaSource par le nom de ta source de données (elle s'appelait ESSAI au début dans tes codes exemples), ce qui donne alors : Reponse = oContext.hasByName(ESSAI) Jean-Claude [...] le probléme c'est que j'ai le message source de données inconnue [...] Reponse = oContext.hasByName(MaSource) [...] - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Retour sur fonction CalcSQL2
Bonjour, La source URL est une chaine de caractères == il faut donc l'encadrer par des cotes : oSource.URL = sdbc:calc:file:///001poste2/partage document/TRAFIC/Banale_2005/TDB/NUM1.sxc 'URLSOurce au lieu de : oSource.URL = sdbc:calc:file:///001poste2/partage document/TRAFIC/Banale_2005/TDB/NUM1.sxc 'URLSOurce Jean-Claude - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Retour sur fonction CalcSQL2
Bonjour, Il n'y a pas de paramètre supplémentaire à ajouter. Il te faut simplement - dans le gestionnaire de souirces de données - reparamétrer l'URL de la source de données, et la faire pointer sur ton classeur réseau en le sélectionnant dans l'explorateur, de la même manière que pour un classeur local. J'ean-Claude [...] Tout aller trés bien jusqu'à ce que j'essai d'utiliser mes fichiers en réseau depuis un autre poste. Maintenant dans la case j'ai source de données inconnue, alors que cela marche trés bien sur mon pc où sont implantés les fichiers. [...] - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Ouverture de fichier via macro
Bonjour, je ne sais pas si c'est une faute de copier/coller pour le code, mais moi je mettrais Args(0).Name = FilterName Args(0).Value = Text - txt - csv (StarCalc) Args(1).Name = FilterOptions Args(1).Value = 9/44,39,STANDARD,1,1/1/2/1/3/1 ;-)) tel que tu nous l'as transmis, tu restes sur le paramètre 0 (Args(0) partout) Jean-Claude [...] dim Args(0) as new com.sun.star.beans.PropertyValue Args(0).Name = FilterName Args(0).Value = Text - txt - csv (StarCalc) Args(0).Name = FilterOptions Args(0).Value = 9/44,39,STANDARD,1,1/1/2/1/3/1 oDoc = StarDesktop.LoadComponentFromURL(ConvertToURL(CheminSource + Fichier.csv),_blank,0,Args()) [...] - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] calcul sur les dates
Bonjour, Déjà, en ce qui concerne ca : [...] pourquoi j'obtiens une erreur pour les 2 premiers jours du mois si j'écris: vDateFin =dateserial (year (vdate)+1, month (vdate), day (vdate)-2) ? [...] C'est normal, cela revient à demander de calculer la date correspondant au -1/01/2005 (par exemple) Jean-Claude - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] calcul sur les dates
Rebonjour, [...] Pourquoi suis-je obligé d'enlever 2 jours pour avoir la date correcte à + 1 an? Sans correction, j'obtiens systématiquement comme date à 1 an, la date de début + 1 an et 2 jours (20/06/2005 - 22/06/2006). [...] Cela provient du type de données utilisé, utiliser un type Date prévu à cet effet Jean-Claude Sub Main dim vDate as date dim vDateFin as date vDate = cdatefromiso(2005-06-20) Print vdate vdatefin = dateserial (year (vdate) + 1, month (vdate), day (vdate)) Print vdatefin '20/06/2006 End Sub - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Pb mailing
Bonjour, j'ai également été confronté à quelque chose de ce genre. Solution : rechercher les cellules vides de la Base de Données (Null) et les remplacer par ... ? Jean-Claude -Message d'origine- De : Alexandre MILLOT [mailto:[EMAIL PROTECTED] Envoyé : vendredi 10 juin 2005 16:40 À : prog@fr.openoffice.org Objet : [prog] Pb mailing Bonjour, j'ai developpé une macro pour interfacer le mailing avec notre logiciel de gestion, cela fonctionne mais lorsque j'insère un champ d'une base de donnée ex : prénom si dans une des lettres de mailing ce champ n'est pas renseigné alors il me la remplace par un blanc lorsque je sort dans un fichier, il laisse le nom du champ si je sort directement sur imprimante Comment fais je pour remplacer la valeur des variables obligatoirement par un blanc sur l'impression. Merci d'avance. Add FUN to your email - CLICK HERE! - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog]Trouver_la_dernière_cellule_vide_d'une_colonne
Bonjour, décris précisement ton besoin, éventuellement envoie en MP ton appli. Jean-Claude -Message d'origine- [...] Bonjour, J'ai cherché à adapter la macro pour la selection de la cellule vide mais pour l'instant je sèche lamentablement, surtout que la selection que je cherche à faire se trouve dans une autre feuille. - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Listbox notion de topindex? sous formulaire
Euh, excuses moi, mais je n'ai pas bien compris la question ;-( ??? Jean-Claude [..] Pour éviter cela je cherche non pas à imposer seulement un numéro d'item mais à lire celui de la listbox active. [..] - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[prog] RE: Pb avec LockControllers
Merci à tous pour vos réponses, au moins cela me conforte car je constate que ce problème de comportement est vérifié ailleurs par d'autres config. Même si je n'ais pas de solution, je sais que cela ne fonctionne pas correctement. J'en retiendrais donc que le GotoEndOfUsedArea ne marche pas en modifications dynamiques de la feuille si le LockControllers est activé (à graver dans mes tablettes). Encore merci, Jean-Claude - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Installation de la SDK
Bonjour, Pour l'utilisation d'OooBasic, tout ceci n'est pas utile, désolé ;-( J'ai suivi un parcours similaire avant de m'en rendre compte. Pour Ooo le SDK apporte simplement de la documentation. Ce qui est important et utile : - le Guide du développeur (Developper's Guide) - la référence des fonctions (IDL Reference)... Les documentations présentes sur le site francais d'Ooo (ou autres) et notamment : - L'API presque sans peine (Bernard MARCELLY) - Eléments de programmation des macros dans OpenOffice (Andrew PITONYAK) - Porting Excl/VBA to Calc StarBasic (?...) Jean-Claude -Message d'origine- De : ch'prof [mailto:[EMAIL PROTECTED] Bonjour, je souhaite me lancer dans l'étude d'OOoBasic, mais ça ne va pas sans mal : (Je suis sous XinXP avec un processeur Pentium4) - J'ai téléchargé l'archive OOo_1.9.91_Win32Intel_sdk.zip, je l'ai décompressée. - Ensuite, j'ai téléchargé et installé mingw32-make-3.80.0-3.exe. - Ensuite, j'ai téléchargé l'archive zip231xN.zip que j'ai simplement décompressée. Je n'ai pas installé de JDK ni de C++ compiler. J'ai double cliqué sur le fichier configureWindows.bat et j'ai indiqué les chemins vers tous les dossiers qui m'étaient demandés. Le problème c'est que je ne vois pas à quoi ça a servi... comment lancer l'application ? - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Barre d'état
Bonjour, pour l'écriture, j'utilise pour ma part une variable globale oBarre_Etat As Object, et une fonction StatusText, que j'utilise ainsi : .. StatusText Initialisation de l'application... ... '- ' Affiche Texte dans Barre Etat ' Auteur : Jean-Claude DAVID [EMAIL PROTECTED] '- Sub StatusText(sInformation As String) On Error Goto ErrorHandler If IsNull(oBarre_Etat) Then oBarre_Etat = ThisComponent.CurrentController.StatusIndicator 'Définit la Barre d'état oBarre_Etat.setText(sInformation + SPACE(350 - Len(sInformation))) Goto Exit_Here Exit_False: Exit Sub Exit_Here: Exit Sub ErrorHandler: MsgBox StatusText Erreur Err : Error$ (Ligne N° Erl ), sbCritical + sbOkOnly, Titre_Appli On Error Goto 0 Goto Exit_False End Sub Y A T IL MOYEN DE LIRE VIA BASIC LE CONTENU DE LA BARRE D ETAT ? PEUT ON AUSSI Y ECRIRE ? - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[prog] RE: Pb avec LockControllers
Bon, pas de nouvelles depuis 5 jours... (ni sur le forum francais, ni même sur l'américain !!!) ;-((( Je suis étonné qu'un tel fonctionnement ne perturbe personne ? Tout le monde travaille avec le rafraichissement On ??!! Cela fait quand même sacrément ralentir l'exécution du code. Quelqu'un peut il quand même essayer le bout de code chez lui (17 lignes jointes au message du 06/06 13:44) et m'indiquer si le résultat est identique (il suffit de copier / coller le code et tapoter F5) ? Faut il ouvrir un Bug ? D'avance, merci Jean-Claude - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[prog] RE: Pb avec LockControllers
Idem avec Ooo 1.9.100 -Message d'origine- Bonjour, J'ai une application qui fonctionne très bien si je ne fige pas le rafraichissement. Mais quand je le fige (pour faire plus rapide et plus joli), j'ai divers soucis, notamment avec GotoEndOfUsedArea(True) qui ne retourne pas la dernière cellule actuelle de la feuille, mais celle d'avant le blocage du rafraichissement. Quelqu'un a déjà rencontré le problème, est-ce connu ? Jean-Claude Ooo 1.1.3 sous Windows - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog]Trouver_la_dernière_cellule_vide_d'une_colonne
Avec l'utilisation des 2 fonctions transmises hier, le N° de la 1ère ligne vide de la colonne A de la 1ère feuille est obtenu ainsi : FirstLigneVide = ThisComponent.Sheets(0).getCellByPosition( 0, lGetLastLigFromCell(A1)) + 1 et La sélection de la cellule vide s'effectue ainsi : ThisComponent.CurrentController.Select( ThisComponent.Sheets(0).getCellByPosition( 0, FirstLigneVide)) C'est aussi facile que d'utiliser le End(xlup). Jean-Claude -Message d'origine- De : Arnaud POUSSIER [mailto:[EMAIL PROTECTED] Envoyé : mardi 31 mai 2005 09:09 À : prog@fr.openoffice.org Objet : Re: [prog]Trouver_la_dernière_cellule_vide_d'une_colonne Bonjour à tous, C'est pour moi que tu avais déjà donné ce début de piste et voilà la macro que j'en ai sorti: Explication: Depuis la feuille principale de mon classeur, je voualis aller à la premiére cellule non remplie d'une colonne située sur une autre feuille. La variante qui est ici c'est que la macro permet d'aller à la derniére cellule remplie, comme Superfan je voulais quelque chose d'équivalent à End(xlUp), mais pour l'instant rien de mieux. Bonne journée @+ Bonjour à tous, Le problème que j'ai est le suivant : J'ai deux colonnes (A et B), dans ces colonnes je recopie par macro des données en me positionnant sur la dernière cellule vide de la colonne A. Cette cellule vide n'est pas obligatoirement la cellule active par défaut. Les données que je suis amené à recopier varient en longueur (d'une ligne à plusieurs sur les 2 colonnes A et B). L'équivalent chez MS pour le tableur est End(xlUp). Comment peut on faire dans OpenOffice, j'ai essayé sans trouver. Merci par avance. _ - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Copie/Coller : CopyRange
Merci, et tant pis... Le 2005-05-16 09:36, [EMAIL PROTECTED] a écrit : Bonjour, Je souhaite copier des données (valeurs, formats...) entre 2 classeurs : * Source : un classeur que j'ouvre (ActiveWorkBook.Sheets(0) ) * Destination : ce classeur (ThisComponent.Sheets(2) ) Le code ci dessous me copie les données de ThisComponent.Sheets(0) vers ThisComponent.Sheets(2) au lieu des données ActiveWorkBook.Sheets(0) vers ThisComponent.Sheets(2) Qu'est-ce que j'ai fait de mal ??!! ;-0 Rien de mal ;) Tu peux lire dans la documentation SDK que CopyRange fonctionne sur un document. Ils ne disent pas : entre deux documents. Je ne vois pas d'autre solution que le copier/coller. - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Recherche de parents
Merci Bernard, XRay est très pratique mais il permet d'explorer les objets subordonnés, c'est pourquoi je n'ai pas pensé à l'utiliser. J'avais oublié que dans le CellAddress on disposait de la feuille. De toute facon - en utilisant XRay - je n'aurais pas penser à rechercher dans CellAdddress pour y Trouver Sheet. XRay est très pratique quand on a une idée de l'endroit où se trouve ce que l'on cherche, mais ce n'est pas un moteur de recherche. Encore merci Jean-Claude -Message d'origine- De : Bernard Marcelly [mailto:[EMAIL PROTECTED] getContainer() alors ??? J'ai essayé : oSheet = oCell.getParent() == Propriété ou méthode introuvable... Je suppose que tu as essayé getParent(); On peut continuer longtemps à deviner... Utilisez Xray pour inspecter les propriétés et fonctions disponibles sur un objet. La réponse est dans le chapitre 5.4 du HowTo API OpenOffice (presque) sans peine. Et bien sûr dans le livre Programmation OpenOffice.org p287. CoordCellule = UneCellule.CellAddress FeuilleCourante = CoordCellule.Sheet FeuilleCourante donne le numéro de la feuille dans le tableur. - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Resultset non nul pour une table vide
Ci dessous extraits de la doc qui expliquent pour le resultset qu'un executequery n'est jamais null, et que le curseur est positionné à l'origine before the first row Jean-Claude = executeQuery( [in] string sql) raises(SQLException ); Description : executes a SQL statement that returns a single ResultSet. Parameter sql : the SQL statement which should be executed Returns : a ResultSet that contains the data produced by the query; never NULL Throws : SQLException if a database access error occurs. next() raises( SQLException ); Description : moves the cursor down one row from its current position. A ResultSet cursor is initially positioned before the first row; the first call to next makes the first row the current row; the second call makes the second row the current row, and so on. If an input stream is open for the current row, a call to the method next will implicitly close it. The ResultSet's warning chain is cleared when a new row is read. Returns : true if successful Throws : SQLException if a database access error occurs. - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[prog] Ajouter une annotation (ou note ou commentaire) sur une cellule
Bonjour, J'ai bien trouvé qu'insérer une note (le terme semble être le même dans Ooo français ou Ooo anglais, et cela s'appelle un commentaire dans Excel) dans une cellule se traduisait en StarBasic par insérer une annotation ;-) mais ensuite j'ai un peu de mal à traduire l'exemple du SDK (en Java) en StarBasic courant. Si quelqu'un l'a déjà fait ou peut me le traduire en StarBasic (cela doit tenir en 4 ou 5 lignes)... D'avance merci. Jean-Claude - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[prog] RESOLU RE: [prog] RE : [prog] Ajouter une annotation (ou note ou commentaire) sur une cellule
Merci Sébastien, dans mes différentes tentatives je n'étais pas passé très loin... Au plus court, la solution est : oCell.Annotation.String = Mon commentaire Jean-Claude -Message d'origine- De : Sébastien VINOT [mailto:[EMAIL PROTECTED] Envoyé : vendredi 1 avril 2005 14:16 À : prog@fr.openoffice.org Objet : [prog] RE : [prog] Ajouter une annotation (ou note ou commentaire) sur une cellule Bonjour, J'ai mis un petit exemple de comment insérer une note sur mon site : http://www.logisphere.fr/composants/open_office/ Il s'agit de Note_it. Je pense que c'est ce que tu recherches. Sébastien. -Message d'origine- De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Envoyé : vendredi 1 avril 2005 13:59 À : prog@fr.openoffice.org Objet : [prog] Ajouter une annotation (ou note ou commentaire) sur une cellule Bonjour, J'ai bien trouvé qu'insérer une note (le terme semble être le même dans Ooo français ou Ooo anglais, et cela s'appelle un commentaire dans Excel) dans une cellule se traduisait en StarBasic par insérer une annotation ;-) mais ensuite j'ai un peu de mal à traduire l'exemple du SDK (en Java) en StarBasic courant. Si quelqu'un l'a déjà fait ou peut me le traduire en StarBasic (cela doit tenir en 4 ou 5 lignes)... D'avance merci. Jean-Claude - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] RESOLU Copier/Coller une Cellule (ou Formules) vers N cellules
Super, Merci. Terriblement plus efficace et tellement plus satisfaisant sur le plan éthique de la programmation... Ci joint l'adaptation exacte à mon problème avec mes commentaires (si cela peut servir à quelqu'un d'autre...) 'PB : Dupliquer dans AL2:AO9000 la 1 ère ligne de cette sélection 'Zone globale : Source et Cible ZoneCible = oXL.Sheets(0).getCellRangeByPosition( 38, 1, 40, 9000) '1 seule Ligne à dupliquer - la 1ère - à dupliquer vers le Bas ZoneCible.fillAuto(com.sun.star.sheet.FillDirection.TO_BOTTOM, 1) Bonjour ZoneCible = MaFeuille.getCellRangeByPosition(0,0,5,2000) ' A1: F2001 sélectionne la zone ou va être recopiéela formule ZoneCible.fillAuto(com.sun.star.sheet.FillDirection.TO_TOP, 1) 'recopie les formules sur plusieurs lignes à partir de la 1ére Jluc Pb : Copier AL2:AN2 et les Coller de AL3:AN3 à AL9000:AN9000. - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[prog] Copier/Coller une Cellule (ou Formules) vers N cellules
Bonjour, J'ai un assez gros classeur de données (5Mo, 9000 lignes), dans lequel il me faut ajouter quelques colonnes calculées. Je pose donc quelques formules en ligne 2 (Ex : dans les colonnes AL, AM, AN...), que je souhaite ensuite dupliquer jusqu'au bas de mon classeur == du genre Copier AL2:AN2 /Coller (ou Collage Spécial des Formules) de AL3:AN3 à AL9000:AN9000. Pour le moment je n'ai pas trouvé autre chose que le Dispatcher pour faire ce Copier/Coller (ou une boucle d'enfer de SetFormula qui ne me convient pas plus...), quelqu'un aurait il quelque chose de plus efficient à me proposer (du genre SetFormulaArray, mais celui ci nécessite un GetFormulaArray de taille identique...) ? Ensuite, pour soulager le classeur je fais un Copier / Collage Spécial des Valeurs pour les colonnes AL:AN avec un DataArray. D'avance Merci, Jean-Claude - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]