[Résolu][Calc] Rafraichir un lien extérieur

[Eric And Co]

Bonjour

J'utilise ceci pour ouvrir l'explorateur

Code : Tout sélectionner

Sub Explorateur
Dim ShExec As Object
Dim Fichier As String

Fichier = "C:\Mon Chemin"
ShExec = createUnoService("com.sun.star.system.SystemShellExecute")
ShExec.execute(Fichier , "", 0)
End Sub

Il est à noter que je suis dans un réseau et comme je le consulte plusieurs fois il faut que je le rafraichisse avec la touche "F5" pour voir les fichiers que j'envoie dedans avec une instruction.
J'ai trouvé comment rafraichir des liens dans "Calc" mais pas des liens sur un service extérieur comme ici "l'explorateur"
Y-a-t'il une séquence d'instruction qui pourrait le faire?

L'autre idée serait de fermer l'explorateur automatiquement s'il est ouvert, puis de le rouvrir après.
Je sais fermer un fichier "Calc" que je viens d'ouvrir avec :

Code : Tout sélectionner

dim myDoc as object
myDoc = thisComponent
myDoc.close(True)

Mais une application extérieur, je cherche.
Il semble qu'une piste du côté des "shell" soit possible comme on trouve dans

Code : Tout sélectionner

ShExec.execute(Fichier , "", 0)

du premier exemple :

Code : Tout sélectionner

Fichier = "C:\Mon Chemin"
ShExec = createUnoService("com.sun.star.system.SystemShellExecute")
ShExec.execute(Fichier , "", 0)

Il faudrait trouver un truc du style

Code : Tout sélectionner

ShExec = createUnoService("com.sun.star.system.SystemShellClose")
Ou SystemShellExite 

Mais cela ne fonctionne pas
Y-a-t'il une personne qui aurait une idée de ce type ou une piste... même petite???

[Dude]

Peut-être devrais-tu lire la documentation ?
L'interface SystemShellExecute n'a qu'une seule méthode et ne renvoie rien.

[Eric And Co]

Bonjour

Merci pour ta remarque qui me laisse peu d'espoir!!!
J'ai beau retourner la question dans tous les sens, avec F5 ou "fermer ouvrir", je ne trouve rien qui fermerait une application extérieur.
Il y a ce "F5"? peut-on le déclencher par macro?
Je cherche encore

[Dude]

Tu peux éventuellement te tourner vers le protocole COM-Automation.
Mais c'est spécifique à Windows et différent suivant le navigateur utilisé.
Bref, tout cela est un problème XY.

[Eric And Co]

Bonjour

Oui Dude, on peut penser que je ne suis pas sur la bonne demande et pourtant....
Je cherche à rafraichir l’exportateur car j'en ai vraiment besoin

Je suis arrivé grâce à toi au fichier .bat car tu m'as envoyé du côté de windows
Donc un .bat "essai.bat" qui ferme et ouvre l'explorateur :

Code : Tout sélectionner

taskkill /PID explorer.exe
start C:\Users\Mon_Univers\Downloads

Placé à la racine de C:
Ce qui me donne comme instruction :

Code : Tout sélectionner

Sub ExplorateurFermerOuvrir
Dim ShExec As Object
Dim Fichier As String
Dim Fichier2 As String
Fichier = "C:\essai.bat"
ShExec = createUnoService("com.sun.star.system.SystemShellExecute")
ShExec.execute(Fichier , "", 1)
End Sub

Cela à l'air de fonctionner sur mon PC mais cela ne fonctionne pas dans le réseau
Mais les .bat ne sont pas le but de ce forum sauf si j'arrivais à les faire fonctionner avec des instruction "Calc"
Je préfère le dire avant que l'on me le rappel

Donc je continue

Mardi 5 février 2019

Bonjour

Ce matin j'en suis arrivé à :

Code : Tout sélectionner

cmd.exe /c taskkill.exe /f /im explorer.exe
start explorer.exe
start C:\Users\MonPC\Downloads

Qui à l'air de fonctionner chez moi en fichier ".bat"
Cela me ferme toutes les fenêtres "Explorer" et m'ouvre là où je veux aller.
Le problème c'est que cela m’éteint l'écran et le rallume pendant un instant mais cela fonctionne
Donc mis avec l'instruction "Sub ExplorateurFermerOuvrir" d'hier cela devrait rafraichir les données de "l'explorer" ce que je recherchais

Jeudi 7 Février 2019

Après un essai dans le réseau, le problème est résolu.

Merci

A+

Eric