Re: [fr-users] Recherche exemple de macro avec la fonction Shell

Merci Didier pour ces deux exemples,

Le plus dur est d'avoir la bonne syntaxe pour chaque application externe!!

J'ai une vielle version du livre de Bernard et Laurent qui date de 2005

Cordialement

Jean Luc


Le 10/08/2017 à 10:28, Didier Dorange-Pattoret a écrit :
> Bonjour,
>
> Le livre qu'il faut posséder : 
> http://www.editions-eyrolles.com/Livre/9782212132472/programmation-openoffice-org-et-libreoffice
>
> Voici deux macros adaptées qui en proviennent et qui permettent de 
> piloter des objets COM.
>
> Option Explicit
>
> 'Utilisation de MS Word depuis une macro LibreOffice
> Sub loading_MSWord( )
> Dim oword As Object, odoc As Object
>
> oword = CreateObject("Word.Application")
> ' l'objet va utiliser l'API de Word
> oword.Visible = True
> odoc = oword.Documents.Add
> odoc.Range.Text = "Hello World!"
>
> Wait 5000
>
> odoc.close
>
> oword.quit
>
> End Sub
>
> 'Utilisation d'Internet Explorer depuis une macro LibreOffice
> Sub using_IE( )
> Dim IE As Object
>
> IE = CreateObject("InternetExplorer.Application.1")
> ' l'objet va utiliser l'API d'internet Explorer
> IE.Visible = 1
> IE.Navigate("http://fr.openoffice.org";)
> End Sub
>
>
> Le 10/08/2017 à 09:09, linux a écrit :
> > Merci Didier et Bernard de vous intéresser à mon problème,
> >
> > Je suis sous windows 10 Libreoffice 4.4.7.2 usage professionnel
> >
> > J'ai un grand nombre de macro développée en Basic langage que je 
> > maitrise, ce qui est une autre affaire pour Python même si j'ai déjà 
> > fait quelque programme sur d'autre environnement, c'est pourquoi il 
> > me semble long et risqué de basculer de libreoffice basic en python.
> >
> > Bernard la plus part des liens derrière ton lien me donne des 
> > convertisseurs VBA vers python mais pas libreoffice basic vers python 
> > est ce normal ?
> >
> > Mais je reviens à ma problématique du jour:
> >
> > Je souhaite à l'intérieure d'une macro libreoffice basic copier un 
> > répertoire et l'ensemble de ses sous-répertoires, ne trouvant pas 
> > dans libreoffice basic, j'ai pensé le faire avec  shell et la 
> > fonction Dos :Xcopy fonction qui fonctionne parfaitement sous windows 
> > Powershell.
> >
> > Je souhaite à l'intérieure d'une macro libreoffice basic lancer une 
> > application tiers et revenir à la fermeture de celle-ci dans la macro 
> > libreoffice basic en cours
> >
> > et merci encore de votre aide
> >
> > Cordialement
> >
> > Jean-Luc


--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés