Pour Dranreb, juste une précision (Résolu)

[misteryann]

Re bonjour.

Précision, mais de taille, un clic sur le nom de la combo2 doit faire apparaître la photo associée au pdf (extension JPG) et le bouton ouvrir doit ouvrir le pdf

Merci d'avance.

 

[misteryann]

Re : Pour Dranreb, juste une précision

Un fichier joint, c'est mieux

 

[Dranreb]

Re : Pour Dranreb, juste une précision

Je ne comprends pas trop, là.
Il semble y avoir une confusion de discussions précédentes et de pièces jointes.

Mais pour charger une image dans un contrôle image c'est Image1.Picture = LoadPicture(NomFic)
avec NomFic le nom du fichier. Par exemple NomFic = Replace(NomFic, ".pdf", ".jpg")

Private Sub ComboBox2_Change()
If ComboBox2.ListIndex = -1 Then Exit Sub
On Error Resume Next
Me.Image1.Picture = LoadPicture(Replace(UCase(ComboBox2.Text), ".PDF", ".JPG"))
If Err Then Me.Image1.Picture = LoadPicture("")
End Sub

 

[misteryann]

Re : Pour Dranreb, juste une précision

Bonsoir Bernard.
Pas de confusion Et votre code me va parfaitement.

Désolé pour la confusion mais je pensais que le post était précis, jusqu'à cette histoire d'image.
Je cherche juste à apprendre et j'essayes de rester concis et minimaliste dans mes recherches.

Bonne soirée et merci pour votre attention.
Cordialement.

 

[Dranreb]

Re : Pour Dranreb, juste une précision (Résolu)

Apparemment la confusion résidait donc seulement dans le fichier joint au poste #2, pas vraiment de ma facture, et ne contenant pas d'Userform. Rien à voir, certainement.