Cezame Concept a écrit :
Ok je suis preneur …
J’ai résolu le problème de rechercher / Remplacer … j’ai par contre un
soucis avec l’EnregistrerSous …
Sous VB6 ça fonctionnait mais en passant ma fonction sous VB .Net ça
ne marche plus... problème semble t’il de constante peux tu jeter u
Mon module complet:
Dim oServiceManager, oDispatcher, oBasicLibraries,
oDialogLibraries, oXrayTool, oXrayModule As Object
Dim oDesktop As Object, oDocument As Object, oSel As Object
Dim Arguments(0) As Object
Sub openDoc(ByVal FichierATraiter As String, Optional ByVal
clInvis
[prog] VB et commandes UNO
ReBonjour,
>Histoire d'obtenir un kit exploitable pour programmer VB sur OOo,
je me
>suis posé la question suivante :
>
>
J'ai trouvé la réponse en utilisant la page 667 du livre.
J'ai trouvé comment lancer une macro de OOo à partir
ReBonjour,
Histoire d'obtenir un kit exploitable pour programmer VB sur OOo, je me
suis posé la question suivante :
J'ai trouvé la réponse en utilisant la page 667 du livre.
J'ai trouvé comment lancer une macro de OOo à partir de VB
et comment utiliser Xray à partir de VB.
Ce qui suit est du
End Function
Problème comment connaitre les différentes constantes pour enregistrer
aux différents formats ?
Peut être existe t'il une macro pour les récupérer ?
-Message d'origine-
De : Didier Dorange-Pattoret [mailto:[EMAIL PROTECTED]]
Envoyé : j
toret [mailto:[EMAIL PROTECTED]
Envoyé : jeudi 2 mars 2006 16:58
À : prog@fr.openoffice.org
Objet : Re: [prog] RE : [prog] VB et commandes UNO
ReBonjour,
Histoire d'obtenir un kit exploitable pour programmer VB sur OOo, je me
suis posé la question suivante :
Comment peut-on lancer une ma
ReBonjour,
Histoire d'obtenir un kit exploitable pour programmer VB sur OOo, je me
suis posé la question suivante :
Comment peut-on lancer une macro de OOoBasic depuis VB ?
Je m'explique.
Je voudrais utiliser Xray de B. Marcelly.
J'arrive à lancer Xray avec la macro ci-dessous mais pas à pas
exe
*
-Message d'origine-
De : Didier Dorange-Pattoret [mailto:[EMAIL PROTECTED]
Envoyé : jeudi 2 mars 2006 12:52
À : prog@fr.openoffice.org
Objet : Re: [prog] RE : [prog] VB et commandes UNO
Rebonjour,
Si tu peux nous faire passer le code de ce que tu auras compulsé, nous
pour
Objet : Re: [prog] RE : [prog] VB et commandes UNO
Rebonjour,
Si tu peux nous faire passer le code de ce que tu auras compulsé, nous
pourrons le proposer au comme contribution au projet OOo sous la forme
d'un how-to. :-)
Quelques idées :
1 ) Pour retrouver les objets BasicLibraries et Dia
Didier Dorange-Pattoret [mailto:[EMAIL PROTECTED]
Envoyé : jeudi 2 mars 2006 12:52
À : prog@fr.openoffice.org
Objet : Re: [prog] RE : [prog] VB et commandes UNO
Rebonjour,
Si tu peux nous faire passer le code de ce que tu auras compulsé, nous
pourrons le proposer au comme contribution au projet OO
Pas de problème ...
Maintenant que je maîtrise la gestion des UNO je vais rapidement compléter
mon assemblage.NET
l
-Message d'origine-
De : Didier Dorange-Pattoret [mailto:[EMAIL PROTECTED]
Envoyé : jeudi 2 mars 2006 12:52
À : prog@fr.openoffice.org
Objet : Re: [prog] RE : [pro
Rebonjour,
Si tu peux nous faire passer le code de ce que tu auras compulsé, nous
pourrons le proposer au comme contribution au projet OOo sous la forme
d'un how-to. :-)
Quelques idées :
1 ) Pour retrouver les objets BasicLibraries et DialogLibraries du
conteneur soffice
oBasicLibraries =
lacer ...
-Message d'origine-
De : Didier Dorange-Pattoret [mailto:[EMAIL PROTECTED]
Envoyé : jeudi 2 mars 2006 11:57
À : prog@fr.openoffice.org
Objet : Re: [prog] RE : [prog] VB et commandes UNO
Voici un code qui fonctionne. Vois comment est rédigé Sub Copy().
Cordialement.
Je te fais
Voici un code qui fonctionne. Vois comment est rédigé Sub Copy().
Cordialement.
Je te fais passer mes "trouvailles".
Dim oServiceManager As Object, oDispatcher As Object
Dim oDesktop As Object, oDocument As Object, oSel As Object
Sub openDoc(ByVal FichierATraiter As String, Optional By
Ci-joint le fichier que j'ai t'envoyé avant (delphi)
-Message d'origine-
De : Cezame Concept [mailto:[EMAIL PROTECTED]
Envoyé : jeudi 2 mars 2006 10:56
À : prog@fr.openoffice.org
Objet : RE: [prog] RE : [prog] VB et commandes UNO
Ci-joint le code de mon projet
Ci-joint le code de mon projet VB Express 2005
-Message d'origine-
De : Didier Dorange-Pattoret [mailto:[EMAIL PROTECTED]
Envoyé : jeudi 2 mars 2006 09:33
À : prog@fr.openoffice.org
Objet : Re: [prog] RE : [prog] VB et commandes UNO
Bonjour,
Si cela t'intéresse, j'a
---
De : Cezame Concept [mailto:[EMAIL PROTECTED]
Envoyé : jeudi 2 mars 2006 10:00
À : prog@fr.openoffice.org
Objet : RE: [prog] RE : [prog] VB et commandes UNO
Ok envoies moi ce que tu as ... je suis entrain de travailler sur une DLL
.NET Pour Writer ...
Je teste ensuite son utilisation sous Windev ..
Objet : Re: [prog] RE : [prog] VB et commandes UNO
Bonjour,
Si cela t'intéresse, j'ai en réserve qq fonctions du type ConvertToUrl
Cezame Concept a écrit :
> Merci pour ton aide
>
> Je vais tenter de créer un assemblage .net avec lensemble des
> fonctions princ
rg
*Objet :* Re: [prog] RE : [prog] VB et commandes UNO
Bonjour,
Le code ci-dessous fonctionne à merveille avec VB express 2005:
Public Function ConvertToUrl(ByVal strFile As String) As String
strFile = Replace(strFile, "\", "/")
strFile = Replace(strFile,
: Didier Dorange-Pattoret [mailto:[EMAIL PROTECTED]]
Envoyé : jeudi 2 mars 2006
09:21
À : prog@fr.openoffice.org
Objet : Re: [prog] RE :
[prog] VB et commandes UNO
Bonjour,
Le code ci-dessous fonctionne à merveille avec VB express 2005:
Module Module1 Sub openDoc() Dim ServiceManager As
hel tanguy [mailto:[EMAIL PROTECTED]
Envoyé : mercredi 1 mars 2006 18:40
À : prog@fr.openoffice.org
Objet : [prog] RE : [prog] VB et commandes UNO
Bonsoir
J'espere que cet exemple pourra t'aider
Sub ouvrirWriterDepuisExcel_SelectionPuisCopie()
'macro testée avec Excel2002
Bonsoir
J'espere que cet exemple pourra t'aider
Sub ouvrirWriterDepuisExcel_SelectionPuisCopie()
'macro testée avec Excel2002 & OOo 2.0.1
Dim ServiceManager As Object, oDispatcher As Object
Dim Desktop As Object, Document As Object, Sel As Object
Dim Fichier As String
Dim Args()
Fichier = "file:
22 matches
Mail list logo
