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

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
sabrina21000
Membre hOOnoraire
Membre hOOnoraire
Messages : 133
Inscription : 09 mars 2012 11:14

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

Message 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

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 ?
Dernière modification par sabrina21000 le 14 août 2019 10:01, modifié 1 fois.
Version: libreoffice 7.2.7(x64)
,windows 10 X64
Avatar de l’utilisateur
micmac
RespOOnsable forum
RespOOnsable forum
Messages : 9225
Inscription : 28 août 2010 10:45

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

Message par micmac »

Bonjour,
Dans votre signature il y a écrit :ibreoffice 5.3.6.1 (obligation de version pour le moment)
[b]sabrina21000[/b] 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é.
Touche Ctrl de Windows = touche cmd⌘ sur Mac
Outils > Options sur Windows = OpenOffice > Préférences sur Mac
sabrina21000
Membre hOOnoraire
Membre hOOnoraire
Messages : 133
Inscription : 09 mars 2012 11:14

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

Message 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.
Version: libreoffice 7.2.7(x64)
,windows 10 X64
Avatar de l’utilisateur
Dude
IdOOle de la suite
IdOOle de la suite
Messages : 25145
Inscription : 03 mars 2006 08:45
Localisation : 127.0.0.1
Contact :

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

Message 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

chemin\du\logiciel.exe chemin\du\fichier.ext
NB : corrige ta signature en y mentionnant que tu utilises LibreOffice
sabrina21000
Membre hOOnoraire
Membre hOOnoraire
Messages : 133
Inscription : 09 mars 2012 11:14

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

Message par sabrina21000 »

Bonjour,

Je transpose votre réponse et cela donne:

Code : Tout sélectionner

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.
Version: libreoffice 7.2.7(x64)
,windows 10 X64
Avatar de l’utilisateur
Dude
IdOOle de la suite
IdOOle de la suite
Messages : 25145
Inscription : 03 mars 2006 08:45
Localisation : 127.0.0.1
Contact :

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

Message 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é ?

:?
sabrina21000
Membre hOOnoraire
Membre hOOnoraire
Messages : 133
Inscription : 09 mars 2012 11:14

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

Message par sabrina21000 »

Bonjour,

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

Solution 1 - depuis un fichier calc deja ouvert:

Code : Tout sélectionner

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

@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.
Version: libreoffice 7.2.7(x64)
,windows 10 X64
Avatar de l’utilisateur
Dude
IdOOle de la suite
IdOOle de la suite
Messages : 25145
Inscription : 03 mars 2006 08:45
Localisation : 127.0.0.1
Contact :

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

Message 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.
Répondre