Détecter la fin du processus Shell ouvrant la visionneuse Microsoft Photos

Bonjour à tous,

Je vous soumets le problème suivant pour lequel je bloque totalement depuis deux jours.

Dans une feuille Excel, j'explore (au moyen d'un contrôle ActiveX SpinButton) les fichiers photos se trouvant dans un répertoire. En cliquant sur un contrôle ActiveX Button sur la feuille, j'ouvre la photo affichée sur la feuille dans la visionneuse Microsoft pour me permettre de la modifier (rognage, modifier la luminosité,...) et d'enregistre les modifications. Je souhaite qu'à la fermeture du processus de la visionneuse Microsoft, apparaisse sur la feuille Excel la photo modifiée.

Vous trouverez ci-dessous le code que j'ai rédigé:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub BTN_VISIONNEUSE_IMAGE_Click() Dim Fichier_Image As String   Fichier_Image = Tbl_Photos(SPIN_PHOTOS.Value) '---> Les chemins des fichiers images sont stockés dans un Array   If Dir(Fichier_Image) <> "" And Fichier_Image Like "*jpg*" Then ShellExecute FindWindow("", Application.Caption), "Open", Fichier_Image, "", "", 1   Image1.Picture = LoadPicture(Fichier_Image): Image1.PictureSizeMode = fmPictureSizeModeZoom End Sub

---

Hors le code VBA et le processus Shell sont asynchrones: le code VBA poursuit donc son exécution après l'ouverture de la visionneuse. Les modifications apportées à la photo ne seront donc pas mises à jour lors de la dernière ligne du code ci-dessus.

La documentation de Microsoft apporte une solution générale au problème rencontré avec l'utilisation de l'API CreateProcessA mais ne semble pas fonctionner avec la visionneuse photo (la commande ExecCmd Fichier_Image n'ouvre pas la visionneuse):

https://docs.microsoft.com/fr-FR/off...d-process-ends

J'ai poursuivi mes recherches y compris sur des sites anglophones mais à cette heure, je n'ai pas trouver la solution.

Je vous remercie tous par avance pour l'aide que vous pourrez m'apporter.

Bon week-end à tous.

Frédéric

Bonjour.
Avez-vous essayé les API OpenProcess et GetExitCodeProcess ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)   '------------------------------------------------------------------------------------------------------ Public Function ShellAndWait(ByVal ShellCommand As String, ByVal WindowState) As Boolean '------------------------------------------------------------------------------------------------------ ' Permet d'exécuter Shell (qui est asynchrone) en bouclant tant que le traitement n'est pas terminé, ' ce qui rend la fonction synchrone. ' http://www.rondebruin.nl/win/winfiles/7zip_zipexamples.txt ' ShellCommand : la lige de commande à exécuter. ' WindowState : l'affichage, voir ci-dessous: ' vbHide 0 = la fenêtre est masquée et reçoit le focus. ' vbNormalFocus 1 = la fenêtre reçoit le focus et retrouve sa taille et sa position d'origine. ' vbMinimizedFocus 2 = la fenêtre est affichée sous forme d'icône et reçoit le focus. ' vbMaximizedFocus 3 = la fenêtre est agrandie et reçoit le focus. ' vbNormalNoFocus 4 = la fenêtre retrouve sa taille et sa position les plus récentes. La fenêtre active reste active. ' vbMinimizedNoFocus 6 = la fenêtre est affichée sous forme d'icône. La fenêtre active reste active. ' Retourne : Vrai si succès ou Faux si erreur. ' Exemple : ShellAndWait ShellCommand, vbHide '------------------------------------------------------------------------------------------------------ Const PROCESS_QUERY_INFORMATION = &H400 Const STILL_ACTIVE = &H103 Dim hProg As Long, hProcess As Long, ExitCode As Long   ' Gestion des erreurs: Err.Clear On Error GoTo Gest_Err   hProg = Shell(ShellCommand, WindowState) hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, hProg)   Do Sleep 200 GetExitCodeProcess hProcess, ExitCode Loop While ExitCode = STILL_ACTIVE   Gest_Err: If Err.Number = 0 Then ShellAndWait = True Err.Clear End Function '------------------------------------------------------------------------------------------------------

---

Cordialement.

Bonjour Laurent_ott,

Tout d'abord un très grand merci pour t'être penché sur mon problème.

Je viens de tester la solution que tu m'as proposée dans la procédure suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test_Ouverture_Image_Visionneuse() Dim Fichier_Image As String Dim A As Boolean   Fichier_Image = "C:\oiseau.jpg" A = ShellAndWait(Fichier_Image, vbNormalFocus)   MsgBox A   End Sub

---

Malheureusement, le fichier_Image ne s'ouvre pas et la valeur A reste à False. L'erreur peut-elle venir dans une mauvaise rédaction de la variable ShellCommand?

En effet, j'ai ensuite modifié A = ShellAndWait(Fichier_Image, vbNormalFocus) par

Code:

---

A = ShellAndWait("RunDLL32.exe C:\Windows\Programmes\Windows Photo Viewer\PhotoViewer.dll,ImageView_Fullscreen " & Fichier_Image, vbNormalFocus)

---

J'ai alors le message d'erreur suivant:

Pièce jointe 596546

Sans que la visionneuse photo de Windows s'ouvre mais en revanche la variable A passe à True.

Sais-tu quel est le processus qui permet d'ouvrir la visionneuse Windows?

Merci d'avance pour le temps que tu me consacres.

Dans l'attente de te lire.

Bien à toi,

Frédéric

Normalement c'est comme un appel "Shell" classique, il suffit de passer en argument : le nom du programme avec son extension ".exe" précédé de son chemin, un espace, le nom du fichier à ouvrir.

Merci pour ta réponse.

Le nom du programme (lorsqu'on ouvre la visionneuse) qui est donné dans le gestionnaire de taches est: "Microsoft.photos.exe" et en recherchant le chemin du programme dans le disque C: impossible de le retrouver.

Donc je ne sais absolument pas où se trouve le programme pour pouvoir exécuter le Shell.

Si les fichiers concernés s'ouvrent pas défaut depuis l'explorer Windows, vous pouvez l'utiliser :
exemple pour ouvrir le fichier image "0_PDF Scanner 29-03-21 10.40.37.jpg" situé dans mon dossier téléchargement:

Code:

---

ShellAndWait("Explorer.exe C:\Users\OTT\Downloads\0_PDF Scanner 29-03-21 10.40.37.jpg", vbnormalfocus)

---

Pour retrouver le chemin d'un programme j'utilise cette API :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal InputPathName As String, _ ByVal OutputPathBuffer As String) As Long   '---------------------------------------------------------------------------------------- Public Function RechercheFichierAPI(ByVal StrRepertoire As String, _ ByVal StrFichier As String) As String '---------------------------------------------------------------------------------------- ' Recherche un fichier dans le répertoire indiqué et ses sous-répertoires. ' Idem Dir() où : ? pour remplacer un caractère et * pour une suite de caractères. ' Retourne : l'adresse du fichier si trouvé, vide si pas trouvé. '---------------------------------------------------------------------------------------- Dim TempStr As String, Ret As Long TempStr = String(260, 0) Ret = SearchTreeForFile(StrRepertoire, StrFichier, TempStr) If Ret <> 0 Then RechercheFichierAPI = Left$(TempStr, InStr(1, TempStr, Chr$(0)) - 1) End Function

---

Par exemple pour retrouver où est explorer.exe :

Code:

---

RechercheFichierAPI("c:\", "Explorer.exe")

---

Retourne : "c:\Program Files (x86)\Microsoft Office\root\VFS\System\explorer.exe"

Cordialement.

Bonsoir Laurent_ott,

Impossible de retrouver le fichier photos.exe avec l'utilisation de l'API que vous proposez (que je garde précieusement car très utile). Après plusieurs recherches sur des sites anglosaxons, il semblerait que l'executable de la visionneuse se trouve dans le répertoire WindowsApps mais le dossier est vide (C'est un répertoire caché)!

Sur un autre site () on indique:

Code:

---

rundll32.exe "C:\Program Files\Windows Photo Viewer\PhotoViewer.dll", ImageView_Fullscreen C:\Windows\Web\Screen\img100.jpg

---

Dans ce cas ShellAndWait est à True mais la visionneuse ne s'affiche pas!

J'ai l'impression d'être le Jean Claude Dusse demandant le train pour Bourg-Saint-Maurice à un agent de la Gare Saint Lazare!:mouarf:

Si vous avez une quelconque suggestion, je suis toujours preneur!

Très bonne soirée.

Frédéric

Moi aussi je ne trouve pas cet "exécutable". Par contre avec l'explorateur passé en argument ça m'ouvre bien un fichier image (car paramétré pour ouvrir Microsoft Photos par défaut).
N'est ce pas ce que vous voulez faire. Est ce OK pour vous ?

Bonjour Laurent_ott,

Merci pour votre réponse. Je m'absente pour 2 jours mais testerai votre réponse à mon retour et vous tiendrai informé.

Très belle journée.

Bien à vous,

Frédéric

Bonjour Laurent_ott,

Encore une fois un très grand merci pour toute la patience dont vous faites preuve pour répondre à mon problème.

J'ai testé ce matin la solution que vous aviez proposée en ouvrant le fichier image avec "explorer.exe". Effectivement l'image s'ouvre bien dans la visionneuse Microsoft.

Maintenant, pour détecter la fin du processus Shell, j'ai repris la solution que vous aviez aussi proposée (création d'un Handle hProcess à l'ouverture du processus shell (API OpenProcess) et suivi de la valeur ExitCode calculée par l'API GetExitCodeProcess hProcess, ExitCode: Si la valeur = 259 le processus est ouvert sinon le processus est fermé et poursuite de l'exécution du code VBA).

Hors dans l'itération qui recalcule à intervalle régulier ExitCode, GetExitCodeProcess donne une valeur différente entre le premier passage (ExitCode = 259) et le second (ExitCode = 1) que la visionneuse soit ouverte ou non:

Code:

---

1 2 3 4

Do Sleep 200 GetExitCodeProcess hProcess, ExitCode Loop While ExitCode = STILL_ACTIVE

---

Ainsi l'API ne semble pas "remplir sa tache" pour interrompre l'exécution du code VBA si la visionneuse reste ouverte.

J'ai utilisé le code suivant pour tester la fonction ShellAndWait:

Code:

---

1 2 3 4 5 6 7 8 9

Sub TEST_VISIONNEUSE_IMAGE() Dim Fichier_Image As String, Flag_Visionneuse As Boolean   Fichier_Image = "c:\WeChat Image_20201230110529.jpg" Flag_Visionneuse = ShellAndWait("Explorer.exe " & Fichier_Image, vbNormalFocus)   ....   End Sub

---

Pourriez-vous m'éclairer une nouvelle fois de vos lumières?

Par avance un très grand merci.

Bien à vous,

Frédéric

Le problème ne viendrait-il pas des versions de Windows et d'Excel utilisées à savoir que j'utilise Excel 2016 32 bits avec l'OS Windows 10 64 bits nécessitant une déclaration des API et des variables particulières?

Bonjour.
Effectivement, le code que j'ai donné n'est pas adapté à vote situation (et j'en suis désolé), je m'explique:
"ShellAndWhait" analyse la fin du traitement de l'application lancée, or ici c'est l'explorer Windows et non pas l'application Photos qui est lancé, donc quand le fichier est ouvert le processus explorer est fermé et donc la fonction retourne que tout est fermé. Ce qui est logique.
Comme je n'arrive pas à lancer le bon processus, l'application Windows Photos, il faut procéder autrement :
- ouvrir Windows Photos qui doit être l'application par défaut des fichiers image avec un Shell classique (explorer + espace + chemin avec fichier) ;
(à vérifier mais l'application Windows Photos doit avoir logiquement dans son titre le nom du fichier image, sinon il faut adapter le code pour qu'il reconnaisse la présence de cette application)
- boucler tant que l'on trouve (avec les API suivantes en 32 Bits) un processus qui contient ce nom de fichier image dans son titre, ou un mot clé qui permet de l'identifier.

Dans l'exemple ci-dessous la procédure "Toto" ouvre une image et attend la fermeture de l'application pour passer à la suite.
Attention : si l'utilisateur renomme l'image (en la sauvegardant) la boucle est perdue.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58

Option Explicit   ' Pour gérer les fenêtres actives: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long Private Declare Function GetWindowA Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long ' Pour faire une attente (en millisecondes): Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)   '------------------------------------------------------------------------------------------------------ Sub Toto() '------------------------------------------------------------------------------------------------------ Dim StrFichier As String Dim StrChemin As String   StrFichier = "Attestation 03-02-2020.jpg" StrChemin = "C:\_Temporaire\"   Call Shell("explorer.exe " & StrChemin & StrFichier, vbNormalFocus) Sleep 1000   Do DoEvents Loop While TrouverFenetre("*" & StrFichier & "*") <> 0   MsgBox "fin" End Sub   '------------------------------------------------------------------------------------------------------ Public Function TrouverFenetre(StrFenetre As String) As Long '------------------------------------------------------------------------------------------------------ ' Retourne le Handle de la fenêtre passé en argument. Utilise l'opérateur Like donc accepte * et ? ' et autres, voir l'aide. ' Retourne 0 si la fenêtre n'est pas trouvée. '------------------------------------------------------------------------------------------------------ Dim Ret As Long Dim MyStr As String   ' Boucle sur les fenêtres actives: Ret = FindWindow(0, 0) Do While Ret <> 0   ' Cherche le nom de la fenêtre: MyStr = String(255, Chr$(0)) GetWindowText Ret, MyStr, Len(MyStr)   ' Si c'est la fenêtre recherchée alors renvoie l'Hdc: If Left(MyStr, InStr(1, MyStr, Chr(0)) - 1) Like StrFenetre Then TrouverFenetre = Ret Exit Function End If   ' Cherche la fenêtre suivante: Ret = GetWindowA(Ret, 2)   Loop   End Function

---

Merci beaucoup pour votre réponse.

Après de longues recherches dimanche soir l'exe de la visionneuse aurait à priori le chemin suivant: C:Program Files\WindowsApps\Microsoft.Windows.Photos_2020.20120.4004.0_x64__8wekyb3d8bbwe\Microsoft.Photos.exe
Mais pour autant je n'avais pas réussi à lancer le processus shell avec cette adresse.

Maintenant, je viens d'essayer la solution alternative que vous venez de proposer et effectivement cette solution fonctionne parfaitement! :D

UN TRES GRAND MERCI POUR VOTRE AIDE TRES PRECIEUSE.

Je vous souhaite une très bonne soirée.

Bien à vous,

Frédéric