Image et ComboBox

[Toubabou]

Bonjour à tous

J’ai un Userform dans lequel se trouvent une ComboBox et un cadre image.
Je voudrai que lorsque la ComboBox est renseignée l’image concerné affiche une photo déterminée se trouvant dans le même document que mon fichier et sur une clé USB (tout en tenant compte que la lettre des clés USB n’es pas toujours la même en fonction du PC utilisé.
Pourriez-vous m’aider ?

Merci par avance,

Toubabou

 

[RED45]

Bonsoir,
Merci pour votre réponse.
Avez-vous le fichier avec cette modification?

 

[herve62]

Bonsoir
JM ... pourquoi tu lui as pas joint l' image de ton appli ? je l'ai encore ..ci joint
bon ensuite

programmer sur vba de façon à avoir un message (photo non disponible)

faut un message .... mais où ??

 

[RED45]

bonsoir Herve62
merci !

 

[RED45]

en fait je souhaite un message photo non disponible avec limage de la photo barrée si je saisie dans combobox voiture par ex je suis débutant en vba

 

[Toubabou]

Bonjour Hervé, Tout simplement parce que je ne suis pas à la maison

 

[job75]

Bonjour Toubabou, RED45, herve62,

Placez les fichiers joints (3) dans le même dossier, le code de l'UserForm :

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then Image1.Picture = LoadPicture(""): Exit Sub
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & IIf(ComboBox1.ListIndex = -1, "inexistante", ComboBox1) & ".jpg")
End Sub

Private Sub UserForm_Initialize()
Dim fichier
fichier = Dir(ThisWorkbook.Path & "\*.jpg")
While fichier <> ""
  If fichier <> "inexistante.jpg" Then ComboBox1.AddItem Left(fichier, Len(fichier) - 4)
  fichier = Dir
Wend
End Sub

Avec la propriété 1 - fmPictureSizeModeStretch l'image inexistante.jpg est un peu écrasée.

Pour ne pas la déformer on pourrait utiliser la propriété 3 - fmPictureSizeModeZoom mais bof...

A+

 

[RED45]

Bonjour
Merci beaucoup pour votre aide.

 

[Toubabou]

Et si les photos sont dans un sous dossier?

 

[job75]

Et si les photos sont dans un sous dossier?

Eh bien ajoutez le nom du sous-dossier après ThisWorkbook, depuis le temps vous devriez le savoir.

 

[Toubabou]

Eh bien ajoutez le nom du sous-dossier après ThisWorkbook, depuis le temps vous devriez le savoir.

Bonsoir Job75, bonsoir à tous,
Je suis désolé, j'ai tendance à oublier ces derniers temps .
Je vous prie de m'en excuser.
Jean-Marie

 

[Toubabou]

Bonjour Job75, Salut Hervé, salut à tous

job75 a dit:
Eh bien ajoutez le nom du sous-dossier après ThisWorkbook, depuis le temps vous devriez le savoir.

Je viens de me remettre d'aplomb et cela fonctionne parfaitement. Alors maintenant pour une vidéo à visionner dans un UserForm (à la place de l'image) la procédure est-elle la même?
Toubabou

 

[job75]

Bonjour Toubabou,

Cela n'a rien à voir avec le sujet de ce fil.

Si l'URL de la video est stockée dans la cellule A1 il suffit d'exécuter l'instruction :

ThisWorkbook.FollowHyperlink [A1]

La macro contenant cette instruction peut être n'importe où, UserForm ou autre.

A+

 

[Toubabou]

Job75
Merci beaucoup, je vais ouvrir un nouveau fil

 

[job75]

je vais ouvrir un nouveau fil

Pour faire quoi ? Ne comptez pas mettre une video dans un contrôle image !!!

 

[herve62]

Bonsoir tous , Job !! eh oui dur !!
JM .. stp reste réaliste !! par contre si c'est juste pour substituer ce que je t'ai fait (doc & pdf) , là oui mais bon tu as toutes le billes pour le faire , tu changes d'appli à chaque type de fichier, ex:
mp4 = wmplayer