Discussion :

[Jean-Philippe André]

Bonjour à tous,

Mon contexte :
Lors de l'ouverture d'un de mes fichiers Excel, je dois accéder à un dossier sur un lecteur mappé (le P:\)
dans le cadre de mes utilisateurs en teletravail, j'ai deux cas de figure possible :
- les utilisateurs passent par une VM, tout est OK, avec un lecteur bien présent et opérationnel dès l'ouverture
- les utilisateurs qui sont sur leur machine perso, mais disposant des droits, le lecteur P sera bien accessible, mais la connexion au lecteur mappé n'est pas opérationnel, ce qui genere une erreur sur un

Code :

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

Dir("P:\*.txt")

Ma solution tentée
Comme lorsqu'on ouvre l'explorateur de fichiers sur le lecteur en question, le rafraichissement de la connexion s'effectue :

Code :

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

1
2
3
Dim u as Double
u=Shell("C:\Windows\explorer.exe P:\")¸
Application.Wait Now + TimeValue("00:00:05")

mais pour fermer cet explorateur de fichier, je souhaitait killer le processus, en passant par

Code :

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

Shell "pskill " & u

mais je me pogne une erreur 53 "Fichier introuvable".

Est-ce que c'est une chose que vous avez réussi à court-circuiter, avec un ajustement du code ou bien une autre méthode (le pID du process étant récupéré depuis le shell, j'aurai aimé le terminer via ce critère...

A noter que le code dans la indique bien que la solution n'est pas possible pour mon cas
https://access.developpez.com/faq/?p...tion#close_exe

Merci à tous !

[jurassic pork]

hello,
le souci c'est que shell ne renvoie pas le bon ID. Une solution possible c'est d'utiliser powerShell pour lister les processus explorer et de tuer le processus explorer qui a été lancé (par exemple le titre de la fenêtre contient P.
Voici un code comme point de départ pour faire ceci (manque la partie repérage du PID de l'explorer lancé) :

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
 
Sub TestProcess_PowerShell()
Dim sPSCmd As String
Dim Reponse, PID
Shell ("C:\Windows\explorer.exe D:\")
sPSCmd = "Get-Process explorer | Format-Table Name,Id,MainWindowTitle"
'Construction de la commande complète
sPSCmd = "powershell -command " & sPSCmd
'Exécute et capture la réponse si il y en a
Reponse = CreateObject("WScript.Shell").Exec(sPSCmd).Stdout.ReadAll
Debug.Print Reponse
'Code à écrire pour trouver le PID à tuer parmi Reponse
'Pour tuer le processus d'id PID en powershell
'Stop-Process -ID PID -Force
End Sub

Ami calmant, J.P

[jurassic pork]

hello,
il y a une autre solution en connaissant le nom de la fenêtre de l'explorer lancé.
Par exemple je lance une commande explorer sur P: qui chez moi est une clé USB qui s'appelle TRANSFERT.
La fenêtre de l'explorer ressemble à ceci :



Avec la commande taskKill et le début du nom de la fenêtre (suivi d'un joker *), j'arrive à fermer la fenêtre.
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
 
Sub TestKillExplorer()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Exec ("explorer.exe P:\")
Application.Wait Now + TimeValue("00:00:05")
objShell.Exec ("taskkill /FI ""WINDOWTITLE eq TRANSFERT*"" /IM explorer.exe")
End Sub

Ami calmant, J.P

[Jean-Philippe André]

Salut Pork,

je vais regarder cette idée demain

Merci