Page 1 sur 1

[Résolu][Calc]ouverture fichier avec "ouvrir avec"

MessagePublié: 12 Août 2019 15:20
par sabrina21000
Bonjour,

Suite à une récente mise à jour de sécurité des ordinateurs de mon travail, l'ouverture de mes racourcits vers tout mes fichiers libreoffice(.ods , .odt , etc) ne fonctionne plus. En effet, à chaque démarrage de mon ordinateur, le programme d'ouverture des mes fichiers libreoffice se fait par defaut par excell.
Je peux modifier le programme par défaut via windows mais à chaque démarrage de mon ordinateur le prorgramme par défaut redevient automatiquement excell.
Le seul moyen est pour moi, d'effectuer manuellement l'ouverture de chaque fichier avec le clic doit de la sourie puis "ouvrir avec" => "libreoffice"

Ce que je souhaiterais, c'est pouvoir modifier le morceau de code suivant qui me permet d'ouvir mes liens:

Code : Tout sélectionner   AgrandirRéduire
Sub ouvrir_lien1

Dim oShell As Object 
oShell = createUnoService("com.sun.star.system.SystemShellExecute") 
 
'La procédure renvoie un message d'erreur si le répertoire n'existe pas
oShell.execute(ConvertToUrl("C:\....................\lien1.ods"), "", 0) 
End Sub


Par un code qui prend en compte "ouvrir avec libreoffice", le tout, sans aucune action de ma part. Ceci me permettant d'utiliser de nouveau tous mes racourcits se situant dans le menu de mon fichier calc principale.

Pouvez-vous m'aidez SVP ?

Re: [Calc]ouverture fichier avec "ouvrir avec"

MessagePublié: 12 Août 2019 16:32
par micmac
Bonjour,
Dans votre signature il y a écrit:ibreoffice 5.3.6.1 (obligation de version pour le moment)

sabrina21000 a écrit:récente mise à jour de sécurité des ordinateurs
Et la version de LibreOffice est toujours la même ?

Pourquoi est-ce important d'être à jour ?
Les mises à jour corrigent des bogues des versions précédentes mais surtout elles fixent des failles de sécurité.

Re: [Calc]ouverture fichier avec "ouvrir avec"

MessagePublié: 12 Août 2019 18:16
par sabrina21000
Mise à jour du profil effectué, cependant, il s'agit dans ce cas précis de contourner un bloquage système causé par la configuration de mon ordinateur par mon entreprise.

Re: [Calc]ouverture fichier avec "ouvrir avec"

MessagePublié: 13 Août 2019 08:33
par Dude
Salut,

Sous Windows, pour lancer un fichier avec un logiciel spécifique, il suffit de passer la chaîne :
Code : Tout sélectionner   AgrandirRéduire
chemin\du\logiciel.exe chemin\du\fichier.ext


NB : corrige ta signature en y mentionnant que tu utilises LibreOffice

Re: [Calc]ouverture fichier avec "ouvrir avec"

MessagePublié: 13 Août 2019 10:01
par sabrina21000
Bonjour,

Je transpose votre réponse et cela donne:

Code : Tout sélectionner   AgrandirRéduire
Sub techreportprof

Dim oShell As Object 
oShell = createUnoService("com.sun.star.system.SystemShellExecute") 
 
'La procédure renvoie un message d'erreur si le répertoire n'existe pas
oShell.execute(ConvertToUrl("C:\Program Files\LibreOffice\program\scalc.exe C:\.....\exemple.ext"), "", 0) 
End Sub


Cela ne fonctionne pas,Jai pas du comprendre car je ne code pas.

Re: [Calc]ouverture fichier avec "ouvrir avec"

MessagePublié: 13 Août 2019 10:30
par Dude
As-tu exécuté en "Invite de commande" le chemin que tu passes pour voir si cela fonctionne ?
Penses-tu déjà que le nom que tu passes est correct : exemple.ext

sabrina21000 a écrit:car je ne code pas.

Aparté : l'usage de macro n'est jamais la panacée.
Le tableur dispose de fonctionnalités internes qu'il convient d'exploiter avant.
Et si le problème n'est pas résolu, se poser la question : une suite bureautique est-il l'outil adapté ?

:?

Re: [Calc]ouverture fichier avec "ouvrir avec"

MessagePublié: 14 Août 2019 09:00
par sabrina21000
Bonjour,

J'ai trouvé plusieurs solutions qui peuvent etre interressante.

Solution 1 - depuis un fichier calc deja ouvert:

Code : Tout sélectionner   AgrandirRéduire
Option Explicit
Sub Main
   Ouvrir( "C:\....exemple.ods" )   '  A modifier pour mettre le nom du fichier à ouvrir
 
End Sub

Sub Ouvrir( nomFic As String )
Dim props(1) As New com.sun.star.beans.PropertyValue
Dim LeFichier As Object
   nomFic = ConvertToURL(nomFic)
   LeFichier = StarDesktop.loadComponentFromURL(nomFic, "_blank", 0, props())
End Sub


Solution 2: depuis l'ordinateur en creant un fichier batch (.bat)

Code : Tout sélectionner   AgrandirRéduire
@echo off
title mon programme
mode con cols=80 lines=16
color 0F
cd C:\Program Files\LibreOffice
Start "program" "scalc.exe" "C:...exemple.ods"

exit


Merci à tous.

Re: [Calc]ouverture fichier avec "ouvrir avec"

MessagePublié: 14 Août 2019 16:42
par Dude
sabrina21000 a écrit:J'ai trouvé plusieurs solutions qui peuvent etre interressante.

Ce qui aurait été intéressant, c'est d'avoir une réponse à ma question :
Dude a écrit:As-tu exécuté en "Invite de commande" le chemin que tu passes pour voir si cela fonctionne ?

Et fournir une copie écran de la console, histoire d'avancer.