RE: [prog] boite de dialogue
Bonjour,
[...]
Avec excel, j'avais la possibilité de remplir les champs de la boite de
dialogue dés que je l'appelais avec les anciennes données inscrites dans
les cellules sur la feuille excel ainsi l'utilisateur ne modifait qu'une
ou deux données et validait.
Hors avec Open office je n'arrive pas a faire la meme chose.
est que c'est possible ou pas ?
[...]
Oui
[...]
et si oui comment ?
[...]
Comme ça,
Sub Main
Dim oForm As Object
'Sur la 1ère feuille, accès au 1er formulaire (on peut le faire
également par les noms de feuille et formulaires)
oForm =
ThisComponent.Sheets.GetByIndex(0).DrawPage.Forms.GetByIndex(0)
'Accès au texte du controle nommé "MaTextBox" (on peut également le
faire par le N° de controle)
oForm.getByName("MaTextBox").Text = "Toto"
End Sub
Voili, voila
Jean-Claude
-
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] Filtre sur les tables d'une base de données ?
Bonjour,
[...]
Je souhaite maintenant filtrer à l'affichage la liste des tables de cette
même base.
[...]
Ci joint extrait de code qui filtre un formulaire :
'Définition du Filtre en SQL
strSQL = "commu = " & CLNG(sCommune) & " AND annee_permis = " & CLNG(sAnnee)
& " AND no_permis LIKE '" & sPermis & "'"
'Accès au formulaire
oForm = ThisComponent.DrawPage.Forms.GetByName("Saisie_totale")
'Affecte le filtre au formulaire
oForm.Filter = strSQL
'Recharge le formulaire avec les nouvelles données
oForm.Reload
C'est tout
Jean-Claude
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Retour sur fonction CalcSQL2
1) Oui, dans le 1er onglet
2) Sur tous les PC, la source de données doit être définie (à la main ou par
macro, mais c'est une autre histoire... pas du tout compliquée, mais plus
longue à expliquer ), le nom de la source de données doit être
absolument identique (orthographe et casse identiques). Si ce n'est pas le
cas, pour que ton classeur fonctionne il va falloir adpater la formule du
classeur sur chaque PC pour la mettre en rapport avec le nom exact de la
source de données sur ce PC (ce qui revient au même, mais en plus compliqué
et moins cohérent ;-
3) Je n'ai pas bien saisi l'utilisation de l'onglet "Liens", mais tu n'en as
à priori pas besoin
Je joint quand même ci dessous un exemple de code qui crée - si besoin - une
source de données avec pour nom le contenu de la variable globale NomSource
(Ex : "MaSource"), et le classeur situé - sur un réseau - à l'endroit
URLSource (Ex : "sdbc:calc:file:///J:/AEH/JCD/Sauvegardes/Toto.sxw"). Cette
fonction peut être appelé à l'ouverture du classeur et ainsi créer
automatiquement la source si elle n'est pas présente.
Jean-Claude
[...]
Tu parles de reparametrer l'URL de la source de donnée, je suppose que c'est
dans le premier onglet du gestionnaire. J'ai donc depuis un autre poste
était cherché la source de données mais pour que cela soit pris en compte,
il faut que je la déclare comme nouvelle source de données sur le poste ou
je suis avec le même nom que sur le poste d'origine pour que le requête soit
comprise.
Où alors faut-il également faire un lien dans le dernier onglet du
gestionnaire de source de données
[...]
Function Creation_Source_De_Donnees() As Boolean
dim oContext as object
dim oSource as object
dim Reponse as string
On Error Goto ErrorHandler
oContext = createUnoService("com.sun.star.sdb.DatabaseContext")
'Test si la source de données existe
Reponse = oContext.hasByName(NomSource)
If Reponse = False Then
'Création de la source de données
oSource = oContext.createInstance
oContext.registerObject(NomSource, oSource)
oSource.URL = URLSOurce
End If
Creation_Source_De_Donnees = True
Goto Exit_Here
Exit_False:
Exit Function
Exit_Here:
Exit Function
ErrorHandler:
MsgBox "Creation_Source_De_Donnees Erreur " & Err & " : " & Error$ &
" (Ligne N°" & Erl & ")", sbCritical + sbOkOnly, Titre_Appli
On Error Goto 0
Goto Exit_False
End Function
-
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] Retour sur fonction CalcSQL2
Je n'ai jamais utilisé CalSQL... mais, Au démarrage du classeur, tu peux affecter une procédure (sans paramètres), mais tu ne peux pas affecter une "fonction" avec des paramètres (ces paramètres seront forcément manquants à l'appel ==> "L'argument n'est pas facultatif", et le résultat de la fonction, Ooo va le mettre où ???) Essayes d'effacer la zone de destination avant de relancer le calcul de la feuille. Jean-Claude [...] J'ai essayé en assignant la fonction au démarrage du document mais cela me renvoi une erreur dans le module Basic, Runtime Error Basic L'argument n'est pas facultatif à ce niveau dans le code: NomSource=Trim(NomSource) [...] - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Aide sur fonction CalcSQL2
Si il te dit qu'il y a des cellules protégées, c'est qu'il doit y avoir des cellules protégées... ;- Refais l'essai avec la formule sur un classeur tout neuf, sans protection. Ne mets pas la cellule de ta formule à l'intérieur de ta zone de destination. Jean-Claude - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Aide sur fonction CalcSQL2
1) Tu as des problèmes de conflits dans les quotes utilisées dans la requête
SQL?
2) Tu ne dois pas pouvoir utiliser "N" paramètres
3) Il faut que Stat soit une table (ou au moins une requête enregistrée)
Je remplacerais donc :
[...]
SELECT "IMDEC", "IMVIS", "EXDEC", "EXVIS" FROM "STAT" "STAT"
[...]
Par :
SELECT IMDEC, IMVIS, EXDEC, EXVIS FROM STAT
et donc la formule devient :
=calcsql2("Feuille3";"D7";"ESSAI";"SELECT imdec, imvis, exdec, exvis FROM
stat")
Jean-Claude
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] question sur copier/coller dans Calc
Bonjour, as tu essayé sans le "hidden" pour voir si le comportement est identique ? Jean-Claude [...] Args(0).Name = "Hidden" Args(0).Value = true [...] - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Aide sur fonction CalcSQL2
ReBonjour,
Il me semble - à la lecture du code (com.sun.star.sheet.DataImportMode.SQL)
- que le 4ème paramètre doit être du code SQL (SELECT FROM... ) et pas
le nom d'une requête (RQ1). Ce qui donnerait :
=CALCSQL2("feuille3";"D7";"ESSAI";"SELECT * FROM RQ1")
Jean-Claude
[...]
=CALCSQL2("feuille3";"D7";"ESSAI";"RQ1")
[...]
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Aide sur fonction CalcSQL2
Bonjour,
Il manque un ";" entre "CelluleCible" et "Source de Données". CalqSQL2
attend 4 paramètres. Tu n'as pas tort dans le sens où ce ";" manque dans la
documentation (cela doit être la souris qui a fourché ;-)
Jean-Claude
[...]
=CALCSQL2("NomFeuille";""CelluleCible""SourceDeDonnees";"select * from
LaTable where LeChamp=" & QUOTE(A14))
[...]
-
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
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] 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] 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 : 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] Listbox notion de topindex? sous formulaire
Ok, j'ai compris. Je n'ai pas cherché, mais "à priori" je dirais qu'il n'y a pas de solution car cela correspond seulement un état transitoire de la liste (pendant la phase de recherche d'un élément avant sélection). De manière similaire, dans une feuille de classeur on ne va pas "surveiller" la position des ascenseurs verticaux et horizontaux. De plus, je ne vois pas de gros intérèt général à un évènement du type "1er élément visible de la liste en ce moment". Bon, ce n'est pas la réponse que tu attendais, c'est seulement mon avis... ;-(( Jean-Claude [...] Comment faire pour lire le numéro d'item situé en haut de la list box ( ouverte sous forme d'une fenêtre) ? [...] Existe -t-il une méthode pour lire ce numéro plutot que seulement l'imposer via makevisible(N°) ? - 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]
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] assignement de macro pour une simple sélection de cellule
Bonjour, à ma connaissance il n'y a pas vraiment de possibilité en ce sens. En fonction de ton contexte, n'y a t'il pas moyen de contourner le problème, de le prendre de manière fondamentalement différente puisque la 1ère méthode qui est venue à l'esprit semble ne pas fonctionner. Non pas en codant, mais en laissant l'interface Ooo gérer le problème : - en masquant les lignes sous la ligne 20 - en protégeant certaine parties de la feuille - en jouant avec la "Validité de données" - ... ? Jean-Claude -Message d'origine- De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] [...] Bonjour Jean-Luc, merci pour ces précisions, je vais regarder les listener dans la bible ;) ce que je veux faire exactement : je voudrais qu'un MsgBox (différent selon les cas) apparaisse lorsque la cellule sélectionnée se trouve en-dessous de la ligne 30 (sur Calc donc). par exemple : si le user se positionne sur la cellule B35, je veux qu'un message lui soit affiché... voilà, merci bien, je vais explorer les pistes que tu m'as indiquées. William - 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]
[prog] RE: Pb avec LockControllers
Merci de ta réponse, même si elle ne fait pas avancer la chose. Que ce soit bien clair, je ne reproche rien à personne, je ne cherche pas lancer une polémique ou quoi que ce soit, chacun à ses problèmes, disponibilités, compétences, centres d'intérèts... Le "figeage" du rafraichissement d'écran pendant le déroulement d'un programme est généralement la 1ère ligne que je mets dans une procédure (même si je ne "l'active" qu'une fois le développement complètement terminé). Venant du VBA, c'est l'une des premières fonctions que j'ai recherché dans StarBasic, ceci permet l'exécution beaucoup plus rapide d'un programme, et ne perturbe pas l'utilisateur avec des feuilles qui bougent dans tous les sens... C'est donc plus efficace et plus propre. Le test demandé consiste à : - ouvrir un nouveau document Calc - ouvrir le Basic :Menu Outils/Macros/Macros... - descendre l'ascenseur de la liste déroulante de gauche jusqu'en bas et y sélectionner "Standard" (dans "Sans Nom 1") - cliquer sur "Nouveau" et valide le nom du module proposé - faire monter le curseur sur la 2ème ligne (juste sous "REM * BASIC ") - copier le code ci dessous, le coller dans le Basic à l'endroit où se trouve le curseur - appuyer sur F5 - noter le chiffre indiqué par chaque boite de dialogue (3 chiffres en tout) - me renvoyer ces valeurs ainsi que la version d'Ooo et de système d'exploitation utilisé Merci, Jean-Claude Sub Test Dim oCurseur As Object Dim oSheet As Object oSheet = ThisComponent.Sheets(0) oSheet.getCellByPosition( 8, 8).String = "X" oCurseur = oSheet.createCursor 'Find the sheet's last cell oCurseur.GotoEndOfUsedArea(True) 'Display "8", that's correct Print oCurseur.getRangeAddress.EndRow ThisComponent.LockControllers oSheet.getCellByPosition( 8, 8).String = "" oSheet.getCellByPosition( 10, 10).String = "X" oCurseur.GotoEndOfUsedArea(True) 'Also display "8", that's very BAD !!! Print oCurseur.getRangeAddress.EndRow ThisComponent.unLockControllers oCurseur.GotoEndOfUsedArea(True) 'Display "10", that's correct too Print oCurseur.getRangeAddress.EndRow oSheet.getCellByPosition( 10, 10).String = "" End Sub - 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]
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]
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]
[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]
[prog] Pb avec LockControllers
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
Dim oCurseur As Object
ThisComponent.Sheets.getByName("Résultat").getCellByPosition( 10,
10).String = "X"
oCurseur = ThisComponent.Sheets.getByName("Résultat").createCursor
'Crée un curseur
oCurseur.GotoEndOfUsedArea(True) 'Recherche de la dernière cellule
utilisée
Print oCurseur.getRangeAddress.EndRow 'Dernière Ligne : Affiche 10,
normal
ThisComponent.LockControllers
ThisComponent.Sheets.getByName("Résultat").getCellByPosition( 10,
10).String = ""
ThisComponent.Sheets.getByName("Résultat").getCellByPosition( 8,
8).String = "X"
oCurseur = ThisComponent.Sheets.getByName("Résultat").createCursor
'Crée un curseur
oCurseur.GotoEndOfUsedArea(True) 'Recherche de la dernière cellule
utilisée
Print oCurseur.getRangeAddress.EndRow 'Dernière Ligne : Affiche
aussi 10, pas normal
ThisComponent.unLockControllers
oCurseur = ThisComponent.Sheets.getByName("Résultat").createCursor
'Crée un curseur
oCurseur.GotoEndOfUsedArea(True) 'Recherche de la dernière cellule
utilisée
Print oCurseur.getRangeAddress.EndRow 'Dernière Ligne : Affiche 8,
normal
ThisComponent.Sheets.getByName("Résultat").getCellByPosition( 8,
8).String = ""
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Problème pour lancer OOo en mode caché RESOLU
"C'est au pied du mur que l'on voit le moins bien le mur..."
C'est tellement plus facile de voir l'erreur de code d'un autre que les
siennes sur lesquelles on peut repasser vingt fois sans rien remarquer...
D'où l'intérèt de soumettre son code à un oeil moins subjectif que le sien,
sur sa propre prose.
Bonne continuation.
Jean-Claude
-Message d'origine-
De : Vincent Buys [mailto:[EMAIL PROTECTED]
Merci Jean Claude... ça fonctionne... que je suis distrait mea culpa... et
dire que j'ai passé 2 jour à compiler la doc croyant que hidden était pas le
bon paramètre
-Message d'origine-
De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Bonjour,
Essaye donc déjà de retirer le "s" de arg() dans la dernière ligne. ;-)
Jean-Claude
-Message d'origine-
De : Vincent Buys [mailto:[EMAIL PROTECTED]
Objet : [prog] Problème pour lancer OOo en mode caché
Bonjour,
J'ai un petit problème que je n'arrive pas à identifier. Je souhaite ouvrir
un document en lançant une macro d'openoffice sans lancer l'interface
graphique. Pour cela, j'utilise la propriété hidden de LoadComponentFromURL.
Le problème c'est que j'ai le message d'erreur suivant "Runetime Error
Basic, Variable d'objet non paramétrée" sur la dernière ligne du script que
je vous mets ci après. (Sachez qu'en mode par défaut, donc sans la propriété
hidden, le script fct très bien)
Merci pour votre aide
Vincent
dim oDesktop as object
dim oDocument as object
dim sUrl as string
sUrl = "file:///" + NomFichier
dim arg(0) as new com.sun.star.beans.PropertyValue
arg(0).Name ="Hidden"
arg(0).Value = True
oDesktop = createUnoService("com.sun.star.frame.Desktop")
oDocument = oDesktop.loadComponentFromURL(sUrl,"_blank",0,args())
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Problème pour lancer OOo en mode caché
Bonjour,
Essaye donc déjà de retirer le "s" de arg() dans la dernière ligne. ;-)
Jean-Claude
-Message d'origine-
De : Vincent Buys [mailto:[EMAIL PROTECTED]
Envoyé : mercredi 1 juin 2005 12:13
À : prog@fr.openoffice.org
Objet : [prog] Problème pour lancer OOo en mode caché
Bonjour,
J'ai un petit problème que je n'arrive pas à identifier. Je souhaite ouvrir
un document en lançant une macro d'openoffice sans lancer l'interface
graphique. Pour cela, j'utilise la propriété hidden de LoadComponentFromURL.
Le problème c'est que j'ai le message d'erreur suivant "Runetime Error
Basic, Variable d'objet non paramétrée" sur la dernière ligne du script que
je vous mets ci après. (Sachez qu'en mode par défaut, donc sans la propriété
hidden, le script fct très bien)
Merci pour votre aide
Vincent
dim oDesktop as object
dim oDocument as object
dim sUrl as string
sUrl = "file:///" + NomFichier
dim arg(0) as new com.sun.star.beans.PropertyValue
arg(0).Name ="Hidden"
arg(0).Value = True
oDesktop = createUnoService("com.sun.star.frame.Desktop")
oDocument = oDesktop.loadComponentFromURL(sUrl,"_blank",0,args())
-
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]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] Trouver la dernière cellule vide d'une colonne
Bonjour, à priori il n'y a pas d'équivalent dans Ooo à End(xlUp). La seule
fonction qui existe retourne la dernière cellule de la feuille, ce qui n'est
pas la même chose.
Pour ma part je me suis fait une petite fonction qui me retourne la ligne de
la dernière cellule d'une colonne. Cette fonction utilise une autre fonction
qui retourne la ligne de la dernière cellule utilisée dans la feuille :
'---
---
' Retourne le N° de Ligne de la dernière cellule utilisée dans une colonne
' à partir d'une cellule.
' Auteur : Jean-Claude DAVID
' Ex : i = lGetLastLigFromCell ( oXLFeuil1.GetCellRangeByName("A1") )
'---
---
Function lGetLastLigFromCell( oCell As Object) As Long
Dim oCurseur As Object 'Curseur d'accès à la dernière cellule de la feuille
Dim i As Long 'Ligne courante
Dim lDerLig as Long 'Dernière ligne utilisée dans la feuille
Dim lFirstLig As Long 'Ligne de départ de la recherche
Dim lCol As String 'Colonne de recherche
Dim oFeuille As Object 'Feuille utilisée
On Error Goto ErrorHandler
'Feuille utilisée
oFeuille = oCell.SpreadSheet
'Dernière ligne utilisée dans la feuille
lDerLig = lGetLastLig( oFeuille)
'Ligne de départ de la recherche
lFirstLig = oCell.CellAddress.Row
'Colonne de recherche
lCol = oCell.CellAddress.Column
'Parcourt de la dernière ligne utilisée dans la feuille,
' jusqu'à la première ligne de la zone passée en paramètre
For i = lDerLig To lFirstLig Step - 1
'Dernière Ligne
If oFeuille.getCellByPosition ( lCol, i).String <> "" Then
lGetLastLigFromCell = i
Exit For
End If
Next i
Goto Exit_Here
Exit_False:
Exit Function
Exit_Here:
Exit Function
ErrorHandler:
MsgBox "lGetLastLigFromCell Erreur " & Err & " : " & Error$ & "
(Ligne N°" & Erl & ")", sbCritical + sbOkOnly, Titre_Appli
On Error Goto 0
Goto Exit_False
End Function
'---
---
' Retourne le N° de Ligne de la dernière cellule utilisée d'une Feuille
' Auteur Jean-Claude DAVID
' Ex : i = lGetLastLig ( oXLFeuil1)
'---
---
Function lGetLastLig( oFeuille As Object) As Long
Dim oCurseur As Object 'Curseur d'accès à la dernière cellule de la feuille
On Error Goto ErrorHandler
oCurseur = oFeuille.createCursor 'Crée un curseur
oCurseur.GotoEndOfUsedArea(True) 'Recherche de la dernière cellule
utilisée
lGetLastLig = oCurseur.getRangeAddress.EndRow 'Dernière Ligne
Goto Exit_Here
Exit_False:
Exit Function
Exit_Here:
Exit Function
ErrorHandler:
MsgBox "lGetLastLig Erreur " & Err & " : " & Error$ & " (Ligne N°" &
Erl & ")", sbCritical + sbOkOnly, Titre_Appli
On Error Goto 0
Goto Exit_False
End Function
Bon courage,
Jean-Claude
-Message d'origine-
De : superfan [mailto:[EMAIL PROTECTED]
Envoyé : samedi 28 mai 2005 20:06
À : prog@fr.openoffice.org
Objet : [prog] Trouver la dernière cellule vide d'une colonne
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]
[prog] Copie/Coller : CopyRange
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
D'avance, merci
Jean-Claude (Ooo 1.1.3 / Windows 98)
Sub TestCopyJCD
Dim wkshtDestin As Object
Dim ActiveWorkBook As Object
'Feuille destination, dans ce classeur
wkshtDestin = ThisComponent.Sheets(2)
'Choix et ouverture du classeur contenant les données à copier,
'retourne en objet le classeur ouvert
ActiveWorkBook = Ouvrir_Fichier_XL(Choisir_Fichier_Xl)
'Nom de la feuille source : Ok
Print ActiveWorkBook.Sheets(0).Name
'Contenu d'une cellule source: Ok
Print ActiveWorkBook.Sheets(0).getCellRangeByName("A2").String
'N° feuille source : Ok
Print "Sheet = " &
ActiveWorkBook.Sheets(0).getCellRangeByName("A1:M10").getRangeAddress.Sheet
'Plage feuille source à copier : Ok
Print "Plage = " &
ActiveWorkBook.Sheets(0).getCellRangeByName("A1:M10").getRangeAddress.StartR
ow _
& ", " &
ActiveWorkBook.Sheets(0).getCellRangeByName("A1:M10").getRangeAddress.StartC
olumn _
& ", " &
ActiveWorkBook.Sheets(0).getCellRangeByName("A1:M10").getRangeAddress.EndRow
_
& ", " &
ActiveWorkBook.Sheets(0).getCellRangeByName("A1:M10").getRangeAddress.EndCol
umn
'Copie des données Pas ok !!! ;-(
'les données copiées sont celles de la 1ère feuille de ce classeur
'et pas celles de ActiveWorkbook ??!!
wkshtDestin.copyRange (
wkshtDestin.getCellRangeByName("A1").getCellAddress, _
ActiveWorkBook.Sheets(0).getCellRangeByName("A1:M10").getRangeAddress)
End Sub
-
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] Recherche de parents
Merci. >essaye ceci > >Sub Toto(oCell As Object) >Dim oSheet As Object 'Feuille parent de la cellule recue en paramètre >print oCell.SpreadSheet.Name >End Sub > >oCell.SpreadSheet contient bien l'objet feuille contenant ta cellule > >Laurent > -- Laurent Godard <[EMAIL PROTECTED]> - Ingénierie OpenOffice.org Indesko >> http://www.indesko.com Nuxeo CPS >> http://www.nuxeo.com - http://www.cps-project.org Livre "Programmation OpenOffice.org", Eyrolles 2004 - 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]
RE: [prog] Resultset non nul pour une table vide
De mémoire, il me semble que le pointeur du resultSet pointe sur
l'enregistrement "avant" le premier enregistrement.
Je le parcoure alors de la manière suivante :
oRst = oStatement.ExecuteQuery(strSQL) 'Exécution de la requête
'Parcoure les enregistrements
Do While oRst.Next
...
Loop
Le IsNull() doit seulement indiquer la réussite de l'ouverture du resultset.
Jean-Claude
De : Martin blaizot [mailto:[EMAIL PROTECTED]
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("Materiel")
Connection = DataSource.GetConnection("","")
Matable = Connection.Tables.getbyname("Provisoire")
Statement = Connection.createStatement()
Resultset = Statement.executeQuery("SELECT * FROM "& Matable.name &"")
If Not IsNull(Resultset) Then
Resultset.first
Print"le libellé de mon premier champ est : ",Resultset.getString(1)
End if
Il me trouve un enregistrement alors que ma table est vide !!!
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Recherche de parents
Pas mieux, même résultat ;-( -Message d'origine- De : Thomas Coquery [mailto:[EMAIL PROTECTED] Envoyé : jeudi 12 mai 2005 15:17 À : prog@fr.openoffice.org Objet : Re: [prog] Recherche de parents getContainer() alors ??? [EMAIL PROTECTED] a écrit : >J'ai essayé : >oSheet = oCell.getParent() ==> Propriété ou méthode introuvable... > > >Je suppose que tu as essayé getParent(); - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: [prog] Recherche de parents
J'ai essayé :
oSheet = oCell.getParent() ==> Propriété ou méthode introuvable...
Je suppose que tu as essayé getParent();
[EMAIL PROTECTED] a écrit :
>Bonjour, je cherche à récupérer en StarBasic une référence sur le parent
>d'un objet ?...
>
>Je m'explique :
>
>Sub Test
>Dim oCell As Object
> oCell = ThisComponent.Sheets(0).getCellRangeByName("A1")
> Toto(oCell)
>End Sub
>
>Sub Toto(oCell As Object)
>Dim oSheet As Object 'Feuille parent de la cellule recue en paramètre
> oSheet = ... (oCell) 'A faire pointer sur la feuille container de la
>cellule : ThisComponent.Sheets(0).
> ...
> ...
>End Sub
>
>Si je passe oCell en paramètre à ma procédure Toto, comment puis-je y
>récupérer un objet oSheet qui pointe sur la feuille parente de la référence
>passée en paramètre à ma procédure (ici ThisComponent.Sheets(0) ) ...
>
>
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
[prog] Recherche de parents
Bonjour, je cherche à récupérer en StarBasic une référence sur le parent
d'un objet ?...
Je m'explique :
Sub Test
Dim oCell As Object
oCell = ThisComponent.Sheets(0).getCellRangeByName("A1")
Toto(oCell)
End Sub
Sub Toto(oCell As Object)
Dim oSheet As Object 'Feuille parent de la cellule recue en paramètre
oSheet = ... (oCell) 'A faire pointer sur la feuille container de la
cellule : ThisComponent.Sheets(0).
...
...
End Sub
Si je passe oCell en paramètre à ma procédure Toto, comment puis-je y
récupérer un objet oSheet qui pointe sur la feuille parente de la référence
passée en paramètre à ma procédure (ici ThisComponent.Sheets(0) ) ...
__
D'avance merci
Jean-Claude
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
