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

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

--
Didier Dorange-Pattoret
http://www.dmaths.org




--
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