Discussion :

[nabil192]

bonjour a tous
j'ai une aplication sur excel qui gére le maintenance des machine industriel,
pour chaque intervention d'une machine je collecte les images des pièces de rechange changés dans une userform qui comporte la référence de la pièce date d'auisition etc... et une image que je l'insère manuellement avec un bouton de commande, je veut maintenant quand je clique deux fois sur l'image sera agrandi vers sa taille réelle dans une autre fenêtre au bien ouvrir l'aperçu des images de windows
merci pour vos réponse d'avant.

[aalex_38]

bonjour,

Peut être en déclenchant une macro lorsque l'on clique sur l'image, puis avec une commande shell pour l'ouvrir :

Code :

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

 ActiveSheet.Shapes("Picture 8").OnAction = "essai"

Un exemple pour la macro essai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub essai()
quot = """"
Chemin = ThisWorkbook.Path & Application.PathSeparator & "icones" & Application.PathSeparator
Chemin = Chemin & "xxx.jpg"
 
Monshell = Environ("windir") & Application.PathSeparator & "system32" & Application.PathSeparator & "mspaint.exe"
Chemin = " " & quot & Chemin & quot
Monshell = Monshell & Chemin
 
RetVal = Shell(Monshell, 1)
 
 
End Sub

Il doit y avoir plus simple, si c'est la cas, je suis preneur.

[ucfoutu]

Bonsoir, aalex_38,

regarde ce qu'afficherait ceci :

Code :

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

MsgBox Left(Environ("Path"), InStr(Environ("Path"), ";") - 1)

ceci étant vu : il est totalement inutile de préciser le chemin de MsPaint.Exe dans le Shell (MsPaint.exe étant un exécutable de Windows). On pourrait même se passer de préciser l'extension (exe)...

EDIT :
Et je ne comprends pas la nécessité d'utiliser MsPaint. Puisqu'on est sur un UserForm, un contrôle image devrait recevoir l'image dont on précise le chemin ...

[aalex_38]

ceci étant vu : il est totalement inutile de préciser le chemin de MsPaint.Exe dans le Shell (MsPaint.exe étant un exécutable de Windows). On pourrait même se passer de préciser l'extension (exe)...

Effectivement

Code :

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

 Shell "mspaint"

fonctionne parfaitement

Et je ne comprends pas la nécessité d'utiliser MsPaint.

On peut vouloir ouvrir une image dans un logiciel choisi :

je veut maintenant quand je clique deux fois sur l'image sera agrandi vers sa taille réelle dans une autre fenêtre au bien ouvrir l'aperçu des images de windows
merci pour vos réponse d'avant.

[aalex_38]

Code :

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

MsgBox Left(Environ("Path"), InStr(Environ("Path"), ";") - 1)

Chez moi ça donne :

C:\Program Files\Microsoft Office\OFFICE11\