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
Pouvez-vous m'aidez SVP ?