Bonjour,
Le 23/08/2010 22:58, Jean Sympa a écrit :
Bonsoir à vous deux,
>Ça devrait fonctionner sans problème sous Windows et Linux. Le
contrôle "Sélection de fichier" > permet de choisir le fichier et la
macro l'enregistre "bêtement dans la table". La bidouille pour
> récupérer le nom de fichier au bout du chemin :-) n'est pas utile
pour Jean, c'est moi qui l'avait
> rajouté dans la macro pour mes besoins personnels.
Que faut-il faire pour supprimer cette bidouille, qui fonctionne sous
Windows 7 ?
Avec mes remerciements
Cordialement
Papy
La procédure d'affichage devrait pouvoir être simplifiée comme suit :
Sub ApercuImage
Dim Control as object, ShExec as object
dim txtFle_Nom as string, txtFle_chemin as string, Fichier as string
Control = ThisComponent.drawpage.Forms( "MainForm" ).getByName(
"txtFle_Chemin" )
Fichier = Control.text
ShExec = createUnoService( "com.sun.star.system.SystemShellExecute" )
ShExec.execute( convertToURL( Fichier ), "", 0 )
End Sub
Je pense qu'elle devrait être compatible pour toutes les plateformes.
--
Francois Gatto
Ubuntu 10.04 / Fedora 13
OpenOffice.org 3.2.1
---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org
For additional commands, e-mail: users-h...@fr.openoffice.org
