Discussion :

[El Bosc]

Bonsoir,

Une idée saugrenue! Dans un sous formulaire, je stocke le chemin d’ accès d’ un fichier avec son nom et son extension. Pour info, un double clic sur ce fichier permet de l’ ouvrir avec le logiciel correspondant(LibreCad en l’ occurrence).
Est-il possible de reproduire cette action à partir d’ un bouton du sous formulaire?

Cordialement

[zoom61]

Il te suffit de récupérer la donnée de ton champ, ensuite tu as ici une explication en OBasic pour ouvrir un fichier ou ici.

@+.

[El Bosc]

Bonsoir,

Je vous remercie de votre réponse. J' ai tenté de la mettre en application mais je me heurte à un problème.
En fait, dans la ligne de commande ci-dessous, je pensai pouvoir indiquer le chemin du fichier qui se trouve dans le sous formulaire mais ou mon code doit être mal ecrit.
Code d' origine:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub ouvrirClasseur
	Dim Fichier As String
	Dim Wb As Object
	Dim Args()
 
	Fichier = ConvertToUrl("C:\Documents and Settings\michel\dossier\leTableur.ods")
	Wb = StarDesktop.loadComponentFromURL(Fichier,"_blank",0 ,Args() )
End Sub

Code proposé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub OuvrirFichier()
 
		Dim Fichier As String, Chm as string
		Dim Wb As Object, Form as object
		Dim Args()
		Form = thiscomponent.DrawPage.Forms.GetByIndex(0)
 		chm= Forrm.getByName("MainForm").getByName("SubForm").getByName("SubForm_Grid").getByName("ChmPln")
		Fichier=ConvertToUrl(chm)	
		Wb = StarDesktop.loadComponentFromURL(Fichier,"_blank",0 ,Args() )
 
	End Sub

Quand pensez-vous?

Cordialement

[zoom61]

Ton code me semble correct... mais je peux pas tester (tablette).

As-tu essayé l'autre méthode ?

@+.

[El Bosc]

Bonjour,

J' ai tenté sans succès d' appliquer la méthode de ma dernière réponse. A chaque fois, j' obtiens le message suivant:
Type: com.sun.star.container.NoSuchElementException
Logiquement, il s' agit d' une erreur de nom. En fait, le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chm = Form.getByName("MainForm").getByName("SubForm").getByName("SubForm_Grid").getByName("ChmPln")

fonctionne dans une autre procédure. je ne comprends pas d' ou vient le problème.
Pour mémoire, le bouton est situé dans le sous formulaire.
Cordialement

[zoom61]

Alors là, je ne vois pas ce qu'à ton formulaire, car même un code simple ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
dim oDoc as Object
dim oForm as Object
dim nom as String
 
oDoc = thisComponent
oForm = oDoc.DrawPage.Forms.getByName("Standard")
nom = oForm.getByName("ChampsNom").Text
 
msgbox nom

@+.

[El Bosc]

Bonsoir,

Je viens de mixer deux trois bout de code et j' ai réussi à ramener le chemin du fichier qui se trouvait dans la table.
Par contre, j' ai encore un message d' erreur que voici:
Type: com.sun.star.lang.IllegalArgumentException
Message: Unsupported URL <file:///cible>.
Ci-dessous le code bidouillé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
	Sub VrFch
		dim oDoc as Object, Fch as string
		dim oForm as Object
		dim cible as string
		Dim Wb As Object
		Dim Args()
		oDoc = thisComponent
		oForm = oDoc.DrawPage.Forms.getByName("MainForm").getByName("SubForm").getByName("SubForm_Grid")
		cible = oForm.getByName("ChmPln").Text
		msgbox cible
		Fch=ConvertToUrl("cible")
		Wb = StarDesktop.loadComponentFromURL(Fch,"_blank",0 ,Args() )
 
	End Sub

En fait, la commande "ConvertToUrl" place "//" devant le chemin du fichier.
L' erreur pourrait-elle venir de la?

Cordialement

[zoom61]

A la place de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Fch=ConvertToUrl(cible)
Wb = StarDesktop.loadComponentFromURL(Fch,"_blank",0 ,Args())

Mets plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
oShell = createUnoService("com.sun.star.system.SystemShellExecute") 
oShell.execute(ConvertToUrl(cible), "", 0)

@+.

[El Bosc]

Bonsoir,

Merci Zoom61, votre dernière intervention m' a permis de régler le problème. Pour information ,voici le code complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub OuvrirFichier
 
        dim oDoc as Object, Fichier as string
	dim oForm as Object,oShell as object
	dim cible as string
	Dim Wb As Object
	Dim Args()
 
	oDoc = thisComponent
        'Le champ contenant l' information du chemin se trouve dans un sous formulaire
	oForm = oDoc.DrawPage.Forms.getByName("MainForm").getByName("SubForm").getByName("SubForm_Grid")
	cible = oForm.getByName("ChmPln").Text    'ChmPln est le champ qui contient le chemin du fichier
	msgbox cible    ' Inutile sauf pour vérifier le chemin du fichier 
	oShell = createUnoService("com.sun.star.system.SystemShellExecute") 
	oShell.execute(ConvertToUrl(cible), "", 0)   'Ouverture du fichier avec le logiciel correspondant
 
End Sub

Bonne soirée et encore merci.