Re: [prog] Perte des updates d'une base de donnée
Re-Bonjour à tous, Désolé pour l'accusé de réception ! Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[prog] Perte des updates d'une base de donnée
Bonjour à tous, J'ai développé une petite appli pour la gestion du centre équestre dont je suis le trésorier, mais je ne suis pas le seul à utiliser cette appli. quand je suis passé hier, j'ai constaté que tout le travail de l'utilisateur précédent avait été perdu. Pourtant, après enquête, tout semble s'être passé normalement, pas de plantage; les factures était bien éditées, mais absentes de la base de donnée. Quelqu'un aurait-il déjà rencontré ce genre de problème ? ( un problème de fermeture d'Ooo peut-être ? ) D'avance merci pour vos éclaircissements, Martin
[prog] Session is closed
Bonjour à tous, J'ai un problème récurent, apparemment aléatoire ( bien que cela ne soit sûrement pas le cas ), avec mes bases de données. J'ai de temps en temps, lorsque je fais tourner ma macro préférée, le message suivant : Access is denied : Session is closed. La signification est assez explicite : je ne peux plus me connecter à mes bases de données ( même dans l'explorateur par la touche F4 ). Il faut que je ferme tous les documents Ooo ouverts et que je relance le tout. Cela ne se produit jamais lorsque qu'un utilisateur Lambda fait tourner ma petite apli., mais toujours quand je suis en train de développer, après un plantage du à un nouveau bug ( mais ce n'est pas systématique ). Quelqu'un à-t-il déjà rencontré ce message d'erreur ? Je suis sous Win XP, Ooo 3.2.1. D'avance merci, Martin
Re: [prog] vider un champ date
Je viens de trouver la solution ( je vous rassure, je n'ai passé un mois 1/2 dessus !!! ), alors au cas où quelqu'un d'autre se poserait la question : Il fallait bien utiliser la propriété .Text du contrôle ( merci François ). Il manquait juste un espace entre mes 2 guillements oProjectDialogClients.GetControl(Facturation_DateRelance).Text =ne produit aucun effet Alors que oProjectDialogClients.GetControl(Facturation_DateRelance).Text = produit l'effet escompté, c'est à dire vider le champ date. Amicalement, Martin
Re: [prog] vider un champ date
Bonjour François, Merci de cette réponde rapide. s'agissant d'un champ Date, je n'avais pas pensé au .TEXT Ceci dit, cela ne fonctionne pas chez moi.J'ai du rater quelque chose ! si je laisse Option Explicit, j'ai un message d'erreur Variable non définie , et si j'enlève Option Explicit il ne se passe rien; mon champ reste renseigné ( il s'agit d'un Refresh de champ déclenché par un statut modifié d'une ListBox ) J'ai essayé aussi : oProjectDialogClients.GetControl(Facturation_DateRelance).Text =mais sans plus de succès et oProjectDialogClients.GetControl(Facturation_DateRelance).Date = Empty donne 00/00/ D'avance merci, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[prog] vider un champ date
Bonsoir à tous, je suis un peu confus de poser une question qui, à priori, va vous paraître triviale, mais je ne trouve rien de satisfaisant dans le forum. Je souhaite, dans une boîte dialogue, vider un champ Date. J'arrive à obtenir ' 00/00/ mais cela n'est pas très élégant. ce que je souhaite serait de la forme : oProjectDialogClients.GetControl(Facturation_DateRelance).date = VIDE D'avance merci pour votre aide, Martin
Re: [prog] Lire un texte de plusieurs lignes dans une cellule
Un grand merci François, c'est exactement ce que je cherchais ! Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[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 ? L'idée est de faire un publi-postage à l'envers. je m'explique : J'ai un dossier avec une centaine de fichiers .xls ayant la même structure. Il s'agit de factures, et je souhaite remplir une base de données avec les destinataires de ces factures. Le problème est d'arriver à ouvrir les fichiers sans les nommer ( du style for i = 1 to 100 ouvrir fichier_i) ou de récupérer les noms. D'avance merci pour vos suggestions, Martin
Re: [prog] publi-postage à l'envers
Bon sang mais c'est bien sûr ! La fonction Dir ! on ne devrait jamais oublier son DOS. Un grand merci Thibault, je crois que je vais trouver mon bonheur avec ça. Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[prog] Mettre à jour un champ boolean avec un RowSet
Bonjour à tous, J'essaie de mettre à jour un champ Boolean dans une table au moyen d'un RowSet avec le code suivant : RowSet = createUnoService(com.sun.star.sdb.RowSet) With RowSet .dataSourceName = FacturationCEM .user = .password = .CommandType = com.sun.star.sdb.CommandType.TABLE .Command = Factures .Filter = RéfFacture=Quote(ID_facture) .ApplyFilter = True .execute .updateBoolean(15,True) .updateRow .dispose End With La ligne .updateBoolean(15,True) renvoie le message d'erreur Invalid Cursor State Si quelqu'un peut me donner la syntaxe correcte, d'avance merci, Martin
Re: [prog] Mettre à jour un champ boolean avec un Ro wSet RESOLU
Je me répond à moi-même : il suffit d'ajouter un .next avant de faire l'update. J'imagine que, comme pour un RésultSet, le Filtre place le curseur sur l'enregistrement qui précède. Désolé pour le dérangement, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Insertion de date dans base de donnée
Excuse moi Yves, je n'avais pas bien lu ta réponse. Effectivement, pour que ça marche, il faut récupérer la valeur du control date, la convertir en Chaîne de caractère au format -mm-jj en incluant bien les - . Encore merci pour ton aide, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[prog] Insertion de date dans base de donnée
bonjour à tous, J'imagine que cette question à déjà été posée 100 fois, mais je ne trouve pas la réponse sur le site. Je souhaite insérer une date dans un champ Date d'une table au moyen d'une requête SQL : SQL = INSERT INTO chr(34) Factures chr(34)( chr(34) RéfFacture Chr(34), chr(34) _ RéfClient Chr(34), chr(34) DateFacture Chr(34)) VALUES( Quote(new_numero) ,' RefClientSelect _ ', Quote(Date_Facture) ) maRequete.ExecuteUpdate(SQL) Quel doit être le format de ma variable Date_Facture ? D'avance merci, Martin
Re: [prog] Insertion de date dans base de donnée
Merci yves de cette réponse. Juste une petite précision : Ma variable doit-elle être définie comme Date ( /mm/jj ), Long ( mmjj ) ou String( -mm-jj) ? Si le format du champ date de ma base est jj/mm/aa, dois-je fournir une date avec l'année sur 2 chiffres ou 4 chiffres ? D'avance merci, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Récupérer le nom d'un bouton
Merci Laurent, ça marche super bien ! Juste une petite précision pour ceux que ça intéresserait, pour récupérer le nom du bouton appelant il faut passer par le Model de l'objet : Print event.source.Model.Name Encore merci à Laurent, A bientôt, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Insertion de date dans base de donnée
RE-bonjour, Désolé, ça doit être la chaleur, mais je n'y arrive toujours pas. sur la date du jour : Print oProjectDialogFacture.getcontrol(DateFacture).date me donne : 201007028 et Dim Date_Facture as date Date_Facture = oProjectDialogFacture.getcontrol(DateFacture).date Print Date_Facture me donne : 12/11/-8603 et SQL = INSERT INTO chr(34) Factures chr(34)( chr(34) RéfFacture Chr(34), chr(34) _ RéfClient Chr(34), chr(34) DateFacture Chr(34)) VALUES( Quote(new_numero) ,' RefClientSelect _ ', Quote(Date_Facture) ) maRequete.ExecuteUpdate(SQL) me renvoie le message d'erreur Wrong Data Type Il fait 32° et j'ai le cerveau qui commence à bouillir !!! D'avance merci, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Récupérer le nom d'un bouton
Merci Laurent, je teste ces possibilités dès que j'ai un moment ( ce qui se fait rare ces temps-ci ! ) Bien cordialement, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[prog] Récupérer le nom d'un bouton
Bonsoir à tous, J'ai , dans une boîte de dialogue, un bouton qui déclenche une fonction lorsque son statut est modifié. Est-il possible de passer en argument de cette fonction le nom du bouton appelant ? D'avance merci, Martin
Re: [prog] Column not found
Bon sang mais c'est bien sûr !!! Bonjour Agnès, merci de venir encore une fois à mon secours. Dire que je fonctionne avec ce code depuis des années Évidemment que le .getString(numéro de colonne) ne fonctionne que si l'on a un Select * from . Dans mon cas, ma variable MonIndex ne sert effectivement à rien, si ce n'est à tout embrouiller ( ça marchait avant parceque dans toutes mes ListBox je ne récupérais que la deuxième colonne; mais maintenant avec cette fameuse clef primaire en plus ). Par contre, ce que je ne comprend pas c'est pourquoi ça marche avec .getString(1) ET .getString(2). Encore merci et à bientôt pour ma prochaine bêtise. Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Column not found
Merci Agnès pour cette précision importante. Juste une question: comment fais-tu pour savoir que le ResultSet a trois colonnes ? Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Column not found
Il s'agit bien de l'édition de 2004. Je viens de regarder rapidement et, effectivement je ne retrouve pas cette fonction. Je pensais pourtant bien que ce n'était pas moi qui avait écrit cette petite fonction qui, à l'erreur près que tu as trouvé, m'est bien utile. Encore merci, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[prog] Column not found
Bonjour à tous, J'ai encore des soucis pour mon passage de 1.1.4 à 3.2.0. ( le précédent n'étant d'ailleurs toujours pas résolu ) J'ai une fonction empruntée dans le livre de Bernard Marcelly et Laurent Godard, première édition, servant à remplir une boîte de liste : Private Function Fill_listBox(MaListBox as object, Table as string, MonIndex as integer, MonChamp as string, MonChampTri as string) Dim maRequete As Object Dim Resultset_filllistbox as object Dim Paiement_select as string Dim i as integer MaListBox.removeitems(0,1000) maRequete = maConnexion.createStatement() Resultset_filllistbox = maRequete.executeQuery(SELECT MonChamp FROM Table ORDER BY MonChampTri ASC) If Not IsNull(Resultset_filllistbox) Then i=0 While Resultset_filllistbox.next MaListBox.additem(Resultset_filllistbox.getString(MonIndex),i) i=i+1 Wend End if End Function et lorsque j'appelle cette fonction de la manière suivante Fill_listBox(LB_Clients1,Clients,Nom,(3),Nom) j'ai un message d'erreur : Column not found: 3 Pourtant ma table Clients comporte 10 champs ! Le plus curieux, c'est que si je remplace : MaListBox.additem(Resultset_filllistbox.getString(MonIndex),i) par : MaListBox.additem(Resultset_filllistbox.getString(MonIndex-1),i) ça marche très bien et par : MaListBox.additem(Resultset_filllistbox.getString(MonIndex-2),i) ça marche aussi. En gros un getString (1) et un getString(2) me récupèrent tous les 2 le contenu de ma troisième colonne. Toutes les autres valeurs génèrent un message d'erreur. D'avance merci pour vos suggestions. Martin
Re: [prog] ReadOnly
Bonjour à tous, J'ai recréé ma table en ajoutant cette fameuse clef primaire, modifié mes numéros de champ en conséquence dans mon code et résultat, ma table est bien éditable manuellement dans l'explorateur, par contre j'ai toujours le message : Type.com.sun.star.sdbc.SQLException Message : The result Set is read-only ( Grrr ). Le code qui génère cette erreur est le suivant : 'Mise à jour des champs dernière remise et date dernière remise dans la table clients maRequete = maConnexion.createStatement() ResultSet = maRequete.executeQuery(SELECT * FROM Clients WHERE Societe= Quote(Client_Select) ) If Not IsNull(ResultSet) Then While ResultSet.next ResultSet.UpdateDouble(9,RemiseNewDevis) ResultSet.UpdateString(10,Date) ResultSet.UpdateRow Wend End If d'avance merci, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] ReadOnly
Bonjour Stéphane, Merci de cette réponse, mais pourriez-vous être plus précis. Ma base de donnée n'a pas changé depuis mon passage de 1.1.4 à Ooo 3.2. La seule nouveauté est cette histoire de clef primaire dans mes tables. Existe-t-il une propriété de l'objet ResultSet qui pourrait-être du genre : ResulSet.isReadOnly = false ? à moins qu'il ne faille chercher du côté des propriétés de la collection de tables ? Je vous avoue que je nage totalement, Encore merci, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] ReadOnly
Bonjour Yves, merci de te pencher sur mon problème. Mes tables sont des fichiers dbf créés dans 1.1.4 et récupérés dans 3.2 par Glisser-Déposer dans le navigateur ( Touche F4 ). Je me demande dans quelle mesure mon problème ne vient pas de cette histoire de Clef Primaire dont mes tables sont dépourvues. En effet au moment de la récupération, Ooo m'a demandé si je voulais ajouter une clef primaire. J'ai dit non, car sinon cela va tout me décaler pour mes récup de données ( ResultSet.getString(mon_numero_de_champ) ). Si c'est le cas, est-ce lié à la façon dont j'ai récupéré les tables ? Si je les recrée à la mano directement dans 3.2 cela va-t-il régler mon pb ? D'avance merci. Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[prog] ReadOnly
Bonsoir à tous, Je suis encore dansma migrationde 1.1.4 vers 3.2 et je butte sur un problème, sans doute trivial, mais pourlequel je ne trouve aucune issue. Mes tables ne sont pas éditables, ni manuellement en les ouvrant avec un F4, ni par macro : j'ai un message d'erreur : The Result Set is read only comment puis-je changer ça ? D'avance merci, Martin
Re: [prog] Affichage d'un cadre dans document texte
Bonjour Agnès, et merci Effectivement, ça marche ! Un petit truc curieux quand même. Comme je l'ai dit dans un message précédent, j'ai 3 cadres dans mon document texte : MonCadre1 , MonCadre_Film, MonCadre2. Jusqu'à ton mail, aucun de ces cadres n'apparaissait. Par contre en ajoutant ta fameuse ligne de code MonCadre1.LayerId = 1 , ce sont les 2 premiers cadres qui apparaissent ! Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Et bien fait, non; ça ne marche pas. En tout cas pas deux fois de suite ! C'est à n'y rien comprendre. En fait, avec ou sans la ligne de code d'Agnès, mes 2 premiers cadre apparaissent lors de la première ouverture du document, ou plutôt devrais-je dire d'un document. Si je relance l'appli, sans avoir quitté et relancé Ooo, mes cadres n'apparaissent plus, quel que soit le document texte ouvert par mon appli ( devis, facture .. ). Si quelqu'un à une idée, je suis preneur. Bien cordialement, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Bonjour Thibault, Il s'agit d'une macro permettant de visualiser une facture. Le document texte est créé par la macro avec l'instruction suivante : adresseDoc = private:factory/swriter MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,_blank, 0, propFich) Concernant l'insertion des cadres, je suis plus embêté pour vous répondre car, même quand ils apparaissent dans mon document, je n'arrive ni à les sélectionner ni à atteindre le texte placé à l'intérieur. Encore merci de vous être penché sur mon problème, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Re-bonjour, Je ne passe aucun argument avec propFich. Juste le code de mon précédent mail. Pour analyser le contenu de la collection de formes de dessin je fais comment ? par macro ? Martin Sans nom 2.odt Description: application/vnd.oasis.opendocument.text - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Effectivement, si je nomme mon cadre ( MonCadre1.name = Cadre Client ) Cadre Client apparaît bien dans les objets de dessin du navigateur. Par contre ce qui est curieux c'est qu'il apparaît 5 fois ! Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
RE-re merci pour cette macro. J'ai bien 6 formes dans mon document. 3 cadres théoriquement visibles - 2 invisibles et un logo. Toutes ces formes apparaissent bien dans le navigateur . ci-joint mon document tel qu'il devrait être ( à l'exception du cadre qui devrait être autour de mon tableau Total et qui se ballade ailleurs ). Martin Avec cadres.odt Description: application/vnd.oasis.opendocument.text - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Encore merci Agnès pour le temps que tu as bien voulu consacrer à mon problème. Effectivement la ligne est définie comme invisible; la question est pourquoi l'est-elle dans ce document et pas dans l'autre que j'ai posté alors qu'ils ont été créés tous les 2 par la même macro ? bonne après midi de boulot, A bientôt, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Thibault, un grand merci à vous également pour le temps passé et pour ce bout de code. En utilisant uniquement la propriété .lineStyle = com.sun.star.drawing.LineStyle.SOLID j'arrive effectivement à contourner le problème. ( je n'utilise pas la totalité de votre routine car il y a 2 cadres qui doivent rester invisibles ). 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. Bien cordialement, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Effectivement, votre macro m'ouvre un document writer avec 3 cadres bien visibles. Je ne comprend en effet pas pourquoi ma macro se comporte comme ça. Je vous poste dessous l'intégralité de mon module. C'est un peu long ! si vous avez le courage de le parcourir ... Sinon ce n'est pas grave puisque de toute façon maintenant cela fonctionne. Merci, Martin '= 'Visualisation des factures '= Option Explicit Private Moncurseur as object, MonTexte as object, MaCellule as object, Curseur2 as object Private EtrangerFactureVisual as Boolean, LangueFactureVisual as string Sub Affichage_facture(ID_facture as string,Facture_visual_logo as boolean) Dim matos_conso as boolean, Jour_camion as integer, Cout_peage as double, NB_kilometre as integer Dim Paris as boolean, Livraison as boolean, Prix_Nnovia as double, Nnovia as integer Dim Prix_QP as double, Quatorze_pouce as double, Vingt_pouce as double, Prix_VP as double Dim CT_trans as double, CT as double, Prix_CT as double, Frais_off as integer, NB_frais_off as integer Dim Frais_T as integer, NB_frais_T as integer, NB_off as double, Salaire as integer, NB_Tech as double Dim Titre as string, Client_Select as string, TVAintra as string, montant_accompte as double Dim date_facture as date, N_facture as string, Heures_sup as double, Nombre_heures_sup as integer Dim conso_carburant as double, MonDocument as object, adresseDoc as string, propFich() Dim Date_debutFactureVisual as date, Date_FinFactureVisual as Date, PubFactureVisual as Boolean Dim RemiseFactureVisual as integer, AssurFactureVisual as Boolean, PaiementFactureVisual as string Dim Montant_facture as double adresseDoc = private:factory/swriter 'convention pour indiquer un nouveau document writer MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,_blank, 0, propFich) 'Récupération de la valeur des champs dans la base Facture' ' Dim maRequete_facturevisual As Object, ResultSet As Object maRequete_facturevisual = maConnexion.createStatement() ResultSet = maRequete_facturevisual.executeQuery(SELECT * FROM Liste_fact WHERE ID=' ID_facture ' If Not IsNull(ResultSet) Then While ResultSet.next Titre = ResultSet.getString(2) Client_Select = ResultSet.getString(3) N_facture = ResultSet.getString(4) Date_debutFactureVisual = ResultSet.getString(5) Date_FinFactureVisual = ResultSet.getString(6) PubFactureVisual = ResultSet.getString(7) RemiseFactureVisual = ResultSet.getString(8) AssurFactureVisual = ResultSet.getString(9) PaiementFactureVisual = ResultSet.getString(10) NB_Tech = ResultSet.getString(11) Salaire = ResultSet.getString(12) NB_off = ResultSet.getString(13) NB_frais_T = ResultSet.getString(14) Frais_T = ResultSet.getString(15) NB_frais_off = ResultSet.getString(16) Frais_off = ResultSet.getString(17) Heures_sup = ResultSet.getString(18) Nombre_heures_sup = ResultSet.getString(19) CT = ResultSet.getString(20) Prix_CT = ResultSet.getString(21) CT_trans = ResultSet.getString(22) Vingt_pouce = ResultSet.getString(23) Prix_VP = ResultSet.getString(24) Quatorze_pouce = ResultSet.getString(25) Prix_QP = ResultSet.getString(26) Nnovia = ResultSet.getString(27) Prix_Nnovia = ResultSet.getString(28) Livraison = ResultSet.getString(29) Paris = ResultSet.getString(30) NB_kilometre = ResultSet.getString(31) Cout_peage = ResultSet.getString(32) Jour_camion = ResultSet.getString(33) conso_carburant = ResultSet.getString(34) date_facture = ResultSet.getString(35) montant_accompte = ResultSet.getString(36) matos_conso = ResultSet.getString(37) EtrangerFactureVisual = Resultset.getstring(39) LangueFactureVisual = Resultset.getstring(40) Montant_facture = Resultset.getstring(43) Wend End if '--- 'Récupération des coordonnées du client '--- Dim Rue as string, CP as string, Ville as string, maRequete_facturevisual2 as object maRequete_facturevisual2 = maConnexion.createStatement() ResultSet = maRequete_facturevisual2.executeQuery(SELECT * FROM Clients WHERE Societe= Quote(Client_Select) If Not IsNull(ResultSet) Then While ResultSet.next Rue = ResultSet.getString(2) CP = ResultSet.getString(3) Ville = ResultSet.getString(4) TVAintra = Resultset.getString(7) Wend End if 'Récupération du vocabulaire dans la base traduction ' Dim Mot_Cfilm as string, Mot_Titre as string, Mot_Datedebut as string, Mot_Datefin as string Dim Mot_Devis as string, Mot_Design as string, Mot_PU as string, Mot_Remise as string Dim Mot_Qtite as string, Mot_Techni_Fact as string, Mot_CineTool as string, Mot_VingtP as string Dim Mot_Quatorze as string, Mot_Livraiso as string, Mot_Heures as string, Mot_Heures2 as string Dim Mot_Hsup as string, Mot_Hnuit as string, Mot_Paiement as string, Mot_BPA as string Dim Mot_CGL as string, Mot_TotalHT as
[prog] Affichage d'un cadre dans document texte
Bonjour à tous, N'ayant malheureusement pas beaucoup de succès avec ma bibliothèque fantôme, je me suis décidé à porter ma petite appli sous Ooo3.2. Ca avance un peu, mais vous risquez de me voir souvent par ici dans les jours qui viennent ! Je suppose que toutes les erreurs de codage qui pouvaient passer sous 1.1.4 ne passent plus dans les versions modernes. Bref, j'en viens à mon problème du moment. Voici un bout de code qui permettait d'afficher un cadre à bords arrondis. Il ne marche plus, mais je n'ai pas de message d'erreur. Peut-être pouvez-vous m'aider Dim Taille1 As New com.sun.star.awt.Size MonTexte = MonDocument.Text Moncurseur = MonTexte.createTextCursor Dim MonCadre1 as object MonCadre1 = MonDocument.createInstance(com.sun.star.drawing.RectangleShape) Taille1.Width = 8000 Taille1.Height = 3000 With MonCadre1 .CornerRadius = 600 .FillColor = RGB (255,255,255) .AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH .VertOrient = com.sun.star.text.VertOrientation.NONE .VertOrientPosition = 1500 .HoriOrient = com.sun.star.text.HoriOrientation.NONE .HoriOrientPosition = 8000 .Size = Taille1 End With MonTexte.insertTextContent(Moncurseur, MonCadre1, false) D'avance merci, Martin
Re: [prog] Affichage d'un cadre dans document texte
Bravo et merci ! L'import à fonctionné. concernant ma migration vers Ooo3.2.0 ( téléchargé hier sur le site ), je n'arrive toujours pas à voir mes cadres. Mes variables étaient bien entendu déclarées, sinon j'aurais un message d'erreur, mais là, rien. Mon document ( une facture ) s'ouvre normalement mais sans les cadres ( il y en a trois en tout ). Donc, à priori, pas d'erreur de codage ( puisque ça marche chez vous ). Peut-être une config d'Ooo ? Pour info les cadres ne s'affichent pas non plus à l'impression. En tout cas, encore merci pour votre aide. Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[prog] ma Bibliothèque à Disparu
Bonjour à tous, Mon appli préférée Bug depuis hier soir. L'instruction suivante DialogLibraries.LoadLibrary( Cinesoft )provoque le message d'erreur : Type: com.sun.star.container.NoSuchElementException Je n'ai absolument rien changé; un jour cela marchait, le lendemain pas. Ma bibliothèque Cinesoft est bien là avec tous ses modules. Je suis sous Win XP et open office 1.1.4. Je sais il va bien falloir que je passe un jour sous O.o.o.3, mais j'avais essayé avec Ooo.2 et mon appli ne tournait pas. Et comme j'en ai besoin vraiment tous les jours pour le boulot, je n'ai jamais eu le temps de trouver ce qui clochait. Merci pour vos éclaircissements, Bien à vous, Martin
Re: [prog] ma Bibliothèque à Disparu
Oups, Désolé pour la confirmation de lecture. Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] ma Bibliothèque à Disparu
Bonjour, Merci de vous pencher sur mon problème. La réponse est oui à vos deux questions. Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[prog] Migrer vers OOo 2.4
Bonjour à tous, Je suis un peu perdu. Anciennement sous 1.1.4, je viens d'installer OOo 2.4 et je voudrais bien pouvoir utiliser ma macro préférée. où puis-je trouver de la doc sur la procédure à suivre pour faire cette migration ( dans quel répertoire copier mes bases, mes scripts ... )? D'avance merci, Martin
Re: [prog] Migrer vers OOo 2.4
oups, Désolé pour la demande d'accusé de réception. Martin - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [prog] Migrer vers OOo 2.4
Bonsoir, et merci de me répondre. En effet, et c'est ce que j'ai fait; cependant je n'ai pas accès à ma macro. J'arrive à voir les boîtes de dialogue, mais pas les scripts. encore merci, Martin - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[prog] où sont passées mes macros ?
Bonjour à tous, Je copie sur cette liste le message que j'ai posté sur Users car je ne sais pas trop quelle liste est concernée; désolé pour le doublon . Je n'arrive plus à lancer mes macros ( OOo 1.4 sous win XP ) ! tout allais bien jusqu'à hier soir, et ce matin, plus moyen de relancer ma macro préférée ni par le raccourci que j'avais placé sur mon bureau, ni depuis un document OOo : outils / Macro : ma bibliothèque est vide ! ( alors que dans l'explorateur windows : C/programes files /users/ Basic ... tous les fichiers sont là ! J'ai tenté une réparation d'OOo mais rien n'y fait. Une idée ? D'avance merci, Martin
Re: [prog] où sont passées mes macros ?
Bonjour Bernard, et merci de ta réponse rapide. Ben justement non, je n'ai absolument rien bidouillé entre hier soir et ce matin. Je vais essayer de remplacer le dossier basic à partir de ma dernière sauvegarde. Je vous tiens au courant. Bien cordialement, Martin - Original Message - From: Bernard Marcelly [EMAIL PROTECTED] To: prog@fr.openoffice.org Sent: Friday, October 05, 2007 4:39 PM Subject: Re: [prog] où sont passées mes macros ? Message de Martin Blaizot date 2007-10-05 16:04 : Bonjour à tous, Je copie sur cette liste le message que j'ai posté sur Users car je ne sais pas trop quelle liste est concernée; désolé pour le doublon . Je n'arrive plus à lancer mes macros ( OOo 1.4 sous win XP ) ! tout allais bien jusqu'à hier soir, et ce matin, plus moyen de relancer ma macro préférée ni par le raccourci que j'avais placé sur mon bureau, ni depuis un document OOo : outils / Macro : ma bibliothèque est vide ! ( alors que dans l'explorateur windows : C/programes files /users/ Basic ... tous les fichiers sont là ! Et qu'as-tu fait entre hier soir et ce matin ? (concernant OpenOffice, bien sûr). Probable : un bidouillage de user/script.xlc Tu peux recopier la branche user/basic depuis ta dernière sauvegarde (bien sûr, tu as fait des sauvegardes de toute la branche user/ ) __ Bernard - 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] où sont passées mes macros ?
Merci Bernard, ça à marché. Je ne sais toujours pas ce qui s'était passé, mais la restauration du répertoire Basic à résolu le problème. Encore merci, Martin - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [prog] Fwd: propriete hidden
Bonjour Fab, Oui, chez moi ça fonctionne très bien. C'est une fonction que j'utilise fréquemment. bon courage, Martin - Original Message - From: Fab [EMAIL PROTECTED] To: prog@fr.openoffice.org Sent: Monday, June 12, 2006 5:22 AM Subject: Re: [prog] Fwd: propriete hidden Martin Blaizot a écrit : Bonjour, J'utilise la la macro suivante pour créer des documents visibles ou non; peut-être cela t'aidera-t-il Public function create_doc( _visible as boolean ) Dim propFich(0) as New com.sun.star.beans.PropertyValue 'l'index (0) permet d'indiquer que la variable propFich ' à une propriété particulière, qu'on définit ensuite par son nom (ici Hidden) et par sa valeur (ici, TRUE) propFich(0).Name = Hidden If _visible = true then propFich(0).value = FALSE Else propFich(0).value = TRUE End if adresseDoc = private:factory/swriter 'convention pour indiquer un nouveau document writer MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,_blank, 0, propFich()) End function Bonjour, ça fait parti des nombreuses méthodes que j'ai essayées, mais sans résultat. Ca marche chez vous? Je veux dire, quand vous ouvrez un fichier avec la valeur true à propriété hidden, il n'apparaît pas? Chez moi, que je mette les valeurs true ou false à hidden, je ne vois aucune différence. Merci pour votre aide, Fabien. - 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] Fwd: propriete hidden
Bonjour, J'utilise la la macro suivante pour créer des documents visibles ou non; peut-être cela t'aidera-t-il Public function create_doc( _visible as boolean ) Dim propFich(0) as New com.sun.star.beans.PropertyValue 'l'index (0) permet d'indiquer que la variable propFich ' à une propriété particulière, qu'on définit ensuite par son nom (ici Hidden) et par sa valeur (ici, TRUE) propFich(0).Name = Hidden If _visible = true then propFich(0).value = FALSE Else propFich(0).value = TRUE End if adresseDoc = private:factory/swriter 'convention pour indiquer un nouveau document writer MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,_blank, 0, propFich()) End function Amicalement, Martin - Original Message - From: Fab [EMAIL PROTECTED] To: prog@fr.openoffice.org Sent: Sunday, June 11, 2006 6:14 PM Subject: [prog] Fwd: propriete hidden Bonjour, Dans une macro, je suis amené à ouvrir un certain nombres de fichiers Writer pour y chercher des informations (comme l'auteur par exemple) avant des les refermer. J'aimerais bien que cette manipulation soir transparente, c'est-à-dire qu'on ne voit pas les fichiers s'ouvrir, surtout que l'affichage systématique de fenêtre ralenti la procédure. Pour cela, je pensais la propriété hidden de l'instruction loadComponentFromURL, c'est-à-dire que je tape: StarDesktop.loadComponentFromURL(nom_du_fichier.odt, _hidden, 0, arg(0)) Mais ça ne marche pas. La fenêtre s'affiche. J'ai aussi essayé avec avec l'objet dispatcher en avec les paramètres suivants: dispatcher = createUnoService(com.sun.star.frame.DispatchHelper) args(0).Name = URL args(0).Value = url args1(1).Name = hidden args1(1).Value = True et en appelant dispatcher.executeDispatch(document, .uno:open, , 0, args1(1)) mais ça ne marche pas d'avantage. J'ai l'impression d'avoir tout essayé dans tous les sens, d'avoir cherché un peu partout, mais impossible d'ouvrir un fenêtre sans qu'elle s'affiche. Quelqu'un aurait-il une idée? Merci beaucoup, Fabien. - 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] ouverture de doc
Bonjour, Est-ce que la solution ne serait pas d'ouvrir le document mais sans qu'il soit visible ( propriété Hidden de propFich ) ? Amicalement, Martin - Original Message - From: Sebastien Remy [EMAIL PROTECTED] To: prog@fr.openoffice.org Sent: Wednesday, June 07, 2006 10:37 AM Subject: [prog] ouverture de doc bonjour à tous, j'ai programmé une macro qui ouvre un fichier et manipule les données. Cette première macro en appelle une autre, qui utilise aussi ce même fichier. Mais le problème, c'est que je ne veux pas ouvrir une deuxième fois le doc, et si je ne l'ouvre pas une deuxième fois, il n'est pas reconnu, même si ma déclaration est globale. Quelqu'un peut-il m'expliquer ce que je peux faire ? (j'ai copier ci-dessous une partie des macros) option explicit global entree as object Sub Validation entree = StarDesktop.LoadComponentFromURL(ConvertToURL(Z:\SIME\SIME\entrees.ods), _blank, 0, prop) Calc1 = StarDesktop.LoadComponentFromURL(ConvertToURL(Z:\SIME\SIME\calc1.ods), _blank, 0, prop) cellule = entree.sheets(3).GetCellByPosition(0,cellule.CellAddress.row -1) if cellule.Value = 0 then for i = 1 to n-1 entree.sheets(3).GetCellByPosition(2,i+3).Value = Calc1.sheets(0).GetCellByPosition(1,i+1).Value entree.sheets(3).GetCellByPosition(0,i+3).Value = Calc1.sheets(0).GetCellByPosition(0,i+1).Value entree.sheets(3).GetCellByPosition(1,i+3).Value = CDateToIso(date) entree.sheets(3).GetCellByPosition(11,i+3).Value = Calc1.sheets(0).GetCellByPosition(9,i+1).Value semaine(entree.sheets(3).GetCellByPosition(0,i+3)) next end sub option explicit Sub semaine (cellule as object) for i = 1 to n if entree.sheets(3).GetCellByPosition(0,cellule.CellAddress.row).Value = entree.sheets(1).GetCellByPosition(0,i).Value then sortie.sheets(0).GetCellByPosition(1,cellule.CellAddress.row-1).String = entree.sheets(1).GetCellByPosition(1,i).String nbeleve = entree.sheets(1).GetCellByPosition(3,i).Value shon = entree.sheets(1).GetCellByPosition(4,i).Value shob = entree.sheets(1).GetCellByPosition(5,i).Value exit for end if next - 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] temporisation
Bonjour Bernard, et merci de ta réponse. Voici quelques précisions : Ma fonction Fill_ListBox a les paramètres suivants : Fill_listBox(oMaListBox as object, sMaBase as String, sMaTable as String, sMonChamp as string, iMonIndex as Integer, sMonChamp_tri as string) et fait ensuite appel à la fonction ConnecterSource(sMaBase,sMatable). Puis je remplis ma List box avant de me déconnecter par la fonction DeconnecterSource(). Dans ma boite de dialogue, j'ai une dizaine de list Box à remplir, chacune attaquant une table différente. Je n'ai aucun évènement assigné aux controles ListBox. Je me contente de les remplir les uns après les autres par le biais de ma fonction Fill_listBox() avant de récupérer les enregistrements sélectionnés par l'utilisateur. Quel est ton conseil ? D'avance merci, Martin Message du 19/01/06 21:18 De : "Bernard Marcelly" <[EMAIL PROTECTED]> A : prog@fr.openoffice.org Copie à : Objet : Re: [prog] temporisation Bonjour Martin Blaizot Message du 2006-01-19 14:52: Bonjour à tous,J'ai une boîte de dialogue avec beaucoup de list box à remplir; j'ai donc une fonction Fill_listBox que j'appelle plusieurs fois de suite pour remplir mes list box. (cette fonction fait appel à deux autres fonctions : ConnecterSource() puis DeconnecterSource() reprise dans le livre de bernard, avec en argument la base et la table souhaitées) J'obtient très régulièrement des messages d'erreur du type Disposed Exception concernant l'objet omaConnexion. Si par contre je place un "wait 1000" entre chaque instruction Fill_listBox, je n'ai plus ces messages d'erreur.Il semble donc que j'essaie d'ouvrir une connexion avant que la précédente ne soit fermée; existe-t-il un moyen de tester l'état de ma connection afin de remplacer mon wait par quelque qui voudrait dire : "wait while omaConnexion is not closed" J'ai l'impression que ton programme demande une déconnexion sur une source déjà déconnectée. Il est probable que ton travail n'est pas totalement séquentiel, sans doute à cause des traitements d'évènements, et qu'il existe plusieurs endroits qui demandent une déconnexion de la source. Plutôt que d'attendre il vaudrait mieux, soit éviter des fermeture/réouverture de connexion, soit mieux gérer les évènements. Je pense qu'il suffit d'ouvrir la connexion au début du dialogue et la fermer à la fermeture du dialogue. Ce sera d'ailleurs moins lourd pour le système. Bernard - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [prog] temporisation
Merci Bernard. En fait il n'y a qu'une seule base; il faut donc que je revoie le fonctionnement de ma fonction Fill_listBox, ce qui ne doit pas être trop compliqué; En fait je pensais qu'il fallait fermer la connexion avant de pouvoir attaquer une autre table ! Merci donc encore pour tes conseils, je crois que cela va bien me simplifier la vie. Martin Message du 20/01/06 15:16 De : "Bernard Marcelly" <[EMAIL PROTECTED]> A : prog@fr.openoffice.org Copie à : Objet : Re: [prog] temporisation Bonjour Martin BLAIZOT Message du 2006-01-20 12:25: Bonjour Bernard, et merci de ta réponse. Voici quelques précisions : Ma fonction Fill_ListBox a les paramètres suivants : Fill_listBox(oMaListBox as object, sMaBase as String, sMaTable as String, sMonChamp as string, iMonIndex as Integer, sMonChamp_tri as string) et fait ensuite appel à la fonction ConnecterSource(sMaBase,sMatable). Puis je remplis ma List box avant de me déconnecter par la fonction DeconnecterSource(). Dans ma boite de dialogue, j'ai une dizaine de list Box à remplir, chacune attaquant une table différente. Je n'ai aucun évènement assigné aux controles ListBox. Je me contente de les remplir les uns après les autres par le biais de ma fonction Fill_listBox() avant de récupérer les enregistrements sélectionnés par l'utilisateur. Quel est ton conseil ? Le même que précédemment. Je pense que tu as une seule base, qui contient tes tables. Ouvre la connexion de la base, remplis tes listbox, récupère les enregistrements choisis, ferme la connexion. S'il y a 2 ou 3 bases, faire pareil: ouvrir les n connexions à la fois (avec une variable de connexion pour chacune). Si tu as une dizaine de bases, l'ensemble est probablement mal conçu et devrait être revu. Une seule base peut contenir des dizaines de tables. Bernard - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [prog] Point d'insertion dans cadre par macro ?
Bonjour Serge J'sus pas sûr de pas être à côté de la plaque, mais bon. Supposons que j'écrive bien à un forum où on s'entraide à programmer dans OpenOffice 2.0. Heu, oui c'est bien le but de ce forum D'abord, merci à ceux qui ont fait tout le boulot. OpenOffice me semble représenter une grande idée. J'espère y participer un jour, peut-être pour rédiger de la doc si on me dit précisément ce qu'il faudrait faire. Donc supposons que je ne me sois pas trompé. Sinon, mille excuses. Voilà mon questionnement : je crée par macro un cadre (une frame). Et je veux coller là-dedans le contenu du presse papier ou quoi que ce soit, par macro toujours, dans la foulée. Comment mettre le point d'insertion dans le cadre ? (à la main ça se fait par Enter, mais quand on envoie chr$(13) ça ne le fait pas). Voilà, c'était ça. Cordialement, Serge Potteck Tu ne nous a pas précisé dans quel type de document tu insérait ton cadre, mais je te joins ci-dessous un petit bout de code qui me sert à intégrer du texte dans un cadre (dans un document writer) en utilisant les curseurs de texte : Dim MonCadre2 as object MonCadre2 = MonDocument.createInstance(com.sun.star.drawing.RectangleShape) 'création du cadre Taille1.Width = 2000 Taille1.Height = 500 With MonCadre2 .LineStyle = com.sun.star.drawing.LineStyle.NONE .FillColor = RGB (255,255,255) .AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH .VertOrient = com.sun.star.text.VertOrientation.NONE .VertOrientPosition = 1230 .HoriOrient = com.sun.star.text.HoriOrientation.NONE .HoriOrientPosition = 11200 .Size = Taille1 End With MonTexte = MonDocument.Text Moncurseur = MonTexte.createTextCursor MonTexte.insertTextContent(Moncurseur, MonCadre2, false) 'affichage du cadre MonTexte = MonCadre2.text 'écriture du texte dans le cadre Moncurseur = MonTexte.createTextCursor Moncurseur.CharWeight = com.sun.star.awt.FontWeight.BOLD Moncurseur.CharPosture = com.sun.star.awt.FontSlant.ITALIC MonTexte.insertString(Moncurseur, Client,False) En espérant que cela t'aidera. Martin - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[prog] Alignement vertical du contenu d'une cellule
Bonjour à tous, Dans un document writer, quel est la propriété qui permet de régler l'alignement vertical du contenu d'une cellule d'un tableau. J'ai essayé la propriété VertJustify ( comme dans un document calc ) mais ça ne marche pas et je ne trouve pas dans le livre les propriétés d'alignement vertical pour un curseur d'écriture. D'avance merci, Martin
Re: [prog] Resultset non nul pour une table vide
Bonsoir Bernard, Désolé, mais je ne comprend pas ta réponse. quand je fais : Printle libellé de mon premier champ est : ,Resultset.getString(1) c'est bien le résultat que je teste, non ? et j'obtient un texte du genre Matériel sup n° n, alors que ce matériel n'est pas présent dans le champ n°1 de ma table. Merci, Martin - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[prog] problème d'accès à mes bases de données
Bonjour à tous, Je repost ici un message que j'avais posté il y a quelque temps et qui n'avait pas eu de message. J'espérais que le passage à Ooo1.1.4 solutionnerait mon problème, mais ce n'est pas le cas. J'ai un petit souci avec mes connections à mes bases de données. J'ai de façon "apparemment" aléatoire le message suivant : Runtime errorBASIC Exception Type : com.sun.star.sdbc.SQLException Message: The statement is invalid. It contains no valid table.. cela concerne la commande suivante : oStatement.Executeupdate(SQL) Et là, plus moyen d'accéder à ma table, même en passant par F4 dans un autre document. si je ferme Open office (y compris le démarrage rapide) et que je relance l'appli, ma macro fonctionne normalement, jusqu'à la prochaine fois ! Où c'est-y que je m'a gourré ? D'avance merci, Martin
Re: [prog] problème d'accès à mes bases de données
Bonjour, Alors si tu es sous MySQL, regarde le format de tes tables. Sinon, peut-être que ma remarque imprécise éveillera des souvenirs aux autres... Je ne suis pas sous MySQL; il s'agit de bases DBF., mais merci quand même. Je pensais plutôt à un truc du genre : je ne libère pas correctement mes ressources et à un moment, à force de faire des tests sur ma petite appli, ça bloque. Est-ce que je dis des bétises, ou est-ce que c'est possible ? si oui, quelle est la bonne méthode pour libérer correctement les ressources? Merci, Martin. - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [prog] editer table
Un grand merci à toi Jovial, Effectivement ça marche très bien quand on remplace la virgule par le point . Pour ce qui est du livre, je l'ai déjà acheté. D'ailleurs, suite à ta réponse, j'ai retrouvé cette fonction NombreAnglais à la page 544( je ne suis pas encore arrivé jusque là !); de plus cela m'a permis de trouver aussi la fonction Quote, m'évitant ainsi de poser la question sur le forum. Amicalement, Martin - Original Message - From: Jovial [EMAIL PROTECTED] To: prog@fr.openoffice.org Sent: Wednesday, March 23, 2005 12:02 AM Subject: Re: [prog] editer table Martin Blaizot a écrit : C'est curieux, quand ma base était dans un répertoire D:/MesDocuments/Database , je ne pouvais pas l'éditer (F4, Editer la table). Maintenant que je l'ai placée dans C:/OpenOffice1.1.4/User/Database, je peux. Mais bon, passons. Il te faut créer la source avec Outil/Source de donnée sélection le type: dBase et le chemin du fichier, dans l'onglet tables tu peux voir et édit etr la composition de la table. Pour ton histoire de virgule je crois qu'il faut mettre le nombre au format anglais: 12.5 le séparateur doit être un point Si tu veux t'investir sur la programmation OOo je te conseille le livre de bernard Marcelly au éditions Eyrolles Programmation OpenOffice avec de nombreux exemple sur CD, tu gagneras un temps précieux. Function NombreAnglais(ByVal txtNombre As String) As String Dim x As Long x = Instr(txtNombre, ,) if x 0 then Mid(txtNombre, x, 1, .) NombreAnglais = txtNombre End Function [...] Dim Cout_peage as double Cout_peage = oProjectDialog2.getcontrol(NumericField3).value [...] oDatabaseContext = createUnoService(com.sun.star.sdb.DatabaseContext) oDataSource = oDatabaseContext.getByName(Devis) oConnection = oDataSource.GetConnection(,) oMatable = oConnection.Tables.getbyname(Liste) oMesChamps = oMatable.Columns oStatement = oConnection.createStatement() Dim sChamps as string Dim sValeurs as string sChamps = (ID,cout_peage,[...]) rem : Liste de tous les champs de ma table sValeurs = VALUES(' ID_devis ',' Cout_peage',[...]') rem Liste des variables correspondantes SQL = INSERT INTO oMatable.name sChamps sValeurs oStatement.Executeupdate(SQL) si avant d'éxécuter la commande SQL je fais : PrintLa valeur saisie est :, Cout_peage je récupère bien la bonne valeur (mettons 12,5) si je fais un printMacommande SQL est :, SQL c'est bien 12,5 que je vois apparaître dans ma commande SQL, Mais dans ma base, c'est 12,00 qui est inscrit ! Encore merci de te pencher sur mon problème, Martin - Original Message - From: Jovial [EMAIL PROTECTED] To: prog@fr.openoffice.org Sent: Tuesday, March 22, 2005 6:07 PM Subject: Re: [prog] editer table Ton fichier *.dbf n'a pas besoin d'être dans user, il faut juste qu'il soit déclaré à bonne adresse dans Outil/Source de données Regardes ton type de variable (as single ou as double,je crois pour les virgules) Fourni ton ton code dans ton message cela peut permettre de trouver ce qui colle pas Martin blaizot a écrit : Merci jovial, suite à tes indications, j'ai trouvé ce qui ne marchait pas ! en fait, ma base n'était pas dans le répertoire user de OOo 1.1.4. Je l'ai déplacée dans le bon répertoire, et j'ai pu l'éditer sans problème. - 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] - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [prog] editer table
Bonjour Jovial, Ben oui, c'est ça le pb ! c'est que je n'arrive pas à modifier cette valeur par défaut (dans Editer la Table ). Si je crée une nouvelle table en faisant Nouvelle Ebauche de table, pas de problème : je peux modifier le nombre de décimales. C'est sans doute ce que je vais devoir faire si il n'y a pas de solution à mon pb. (mais j'ai une trentaine de champs !!) Amicalement, Martin - Original Message - From: Jovial [EMAIL PROTECTED] To: prog@fr.openoffice.org Sent: Tuesday, March 22, 2005 2:39 PM Subject: Re: [prog] editer table Bonjour Regarde dans l'ébauche de table quand tu cliques sur ton champ le nombre de décimal ( proprièté champ , par défaut il est de 0) Jluc Martin blaizot a écrit : Bonjour à tous, Je suis confronté à un problème de format de nombres. J'ai une variable numérique ( mavariable as double) que je renseigne dans un champ numérique d'une boite de dialogue. La valeur de cette variable est enregistrée dans une BDD (DBASE). Je n'arrive pas a afficher ma variable au bon format, dans un tableau. Je n'obtient qu'un entier arrondi. J'ai donc farfouillé un peu, et je me suis rendu compte que mon champ de base de donnée est défini comme Decimal, mais que le nombre de décimales est à 0. Je n'arrive pas modifier cela : chaque fois que j'édite ma table et que je clique sur la petite disquette pour enregistrer, mon nombre de décimales repasse automatiquement à zéro. Est-ce normal ? Y-a-t-il un moyen de contourner cela ? (je suis sous win2k OOo 1.1.4) D'avance merci, Martin - 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] editer table
Merci jovial, suite à tes indications, j'ai trouvé ce qui ne marchait pas ! en fait, ma base n'était pas dans le répertoire user de OOo 1.1.4. Je l'ai déplacée dans le bon répertoire, et j'ai pu l'éditer sans problème. Martin - Original Message - From: Jovial [EMAIL PROTECTED] To: prog@fr.openoffice.org Sent: Tuesday, March 22, 2005 3:43 PM Subject: Re: [prog] editer table As tu fait enregistrer après ta modif dans l'ébauche de table,(actualises dans le browers) Tst ce que cela marche si tu affecte une valeur avec le brower(F4), sinon tu peux ouvrir le fichier dBase directement avec calc (sélectionner europe occidentale(window...) par exemple dans le champ prix,N,22,2: 2 est le nbr de décimal Attention si tu enregistres sous Calc, tous les champs passe en majuscule. Bonne chance Jluc Bonjour Regarde dans l'ébauche de table quand tu cliques sur ton champ le nombre de décimal ( proprièté champ , par défaut il est de 0) Jluc Martin blaizot a écrit : Bonjour à tous, Je suis confronté à un problème de format de nombres. J'ai une variable numérique ( mavariable as double) que je renseigne dans un champ numérique d'une boite de dialogue. La valeur de cette variable est enregistrée dans une BDD (DBASE). Je n'arrive pas a afficher ma variable au bon format, dans un tableau. Je n'obtient qu'un entier arrondi. J'ai donc farfouillé un peu, et je me suis rendu compte que mon champ de base de donnée est défini comme Decimal, mais que le nombre de décimales est à 0. Je n'arrive pas modifier cela : chaque fois que j'édite ma table et que je clique sur la petite disquette pour enregistrer, mon nombre de décimales repasse automatiquement à zéro. Est-ce normal ? Y-a-t-il un moyen de contourner cela ? (je suis sous win2k OOo 1.1.4) D'avance merci, Martin - 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] - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[prog] it contains no valid table
Bonjour à tous, J'ai un petit souci avec mes connections à mes bases de données. J'ai de façon "apparemment" aléatoire le message suivant : Runtime errorBASIC Exception Type : com.sun.star.sdbc.SQLException Message: The statement is invalid. It contains no valid table.. cela concerne la commande suivante : oStatement.Executeupdate(SQL) Et là, plus moyen d'accéder à ma table, même en passant par F4 dans un autre document. si je ferme Open office (y compris le démarrage rapide) et que je relance l'appli, ma macro fonctionne normalement, jusqu'à la prochaine fois ! Où c'est-y que je m'a gourré ? D'avance merci, Martin
[prog] Tableau dans un cadre ?
Bonjour à tous, Est-il possible d'insérer un tableau dans un cadre ? D'avance merci, Martin
Re: [prog] RE : [prog] Cellule dans tableau Writer - Alignement
Bonsoir Michel, Merci pour cette réponse. Je n'ais pas eu encore le temps de la tester, mais cela semble correspondre exactement à mes besoins. Bonne soirée à toi aussi, Martin - Original Message - From: michel tanguy [EMAIL PROTECTED] To: prog@fr.openoffice.org Sent: Monday, February 28, 2005 7:35 PM Subject: [prog] RE : [prog] Cellule dans tableau Writer - Alignement bonjour Martin j'espere que cet exemple répondra à ta demande 'action dans la 1ere cellule de la 1ere table oTable = ThisComponent.getTextTables().getByIndex(0) cellContent = otable.getCellByName(A1).getText() Cursor = cellContent.createTextCursor() Cursor.paraAdjust = com.sun.star.style.ParagraphAdjust.RIGHT 'Cursor.paraAdjust = com.sun.star.style.ParagraphAdjust.CENTER 'Cursor.paraAdjust = com.sun.star.style.ParagraphAdjust.LEFT Bonne soiree michel existe-t-il, pour les cellules d'un tableau Writer, une propriété d'alignement du texte ? si oui , quelle est sa syntaxe. - 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]
[prog] Modification dynamique d'une base de donnée
Bonjour à tous, Désolé si c'est la deuxième fois que vous recevez ce message, mais je l'avais envoyé avant de m'inscrire sur la liste, et comme je ne le vois pas dans les archives, je le repost. Je débute dans la programation de macros et je rencontre le problème suivant : J'ai une boîte de dialogue avec une listBox contenant les noms de mes clients. Je souhaiterais pouvoir ajouter un enregistrement directement depuis cette ListBox. Il faut donc pour cela que je puisse tapper quelque chose dans cette ListBox or pour le moment, ma ListBox semble être en lecture seule ( ci dessous le code de "Remplissage" de ma ListBox ). Quelle instruction dois-je utiliser ? D'avance merci Martin '== 'Remplissage de la listbox clients'==Dim DatabaseContext As ObjectDim DataSource As ObjectDim Connection As ObjectDim Matable as objectDim Statement As ObjectDim ResultSet As ObjectDatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")DataSource = DatabaseContext.getByName("Carnet d'adresses")Connection = DataSource.GetConnection("","")Matable = Connection.Tables.getbyname("Clients")Statement = Connection.createStatement()ResultSet = Statement.executeQuery("SELECT Societe FROM Clients ORDER BY Societe ASC")dim i as integerIf Not IsNull(ResultSet) Theni=0While ResultSet.nextLB_client.additem(ResultSet.getString(1),i)i=i+1WendEnd if