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

misteryann

XLDnaute Occasionnel

• 25 Mai 2015

• #2

Re : Pour Dranreb, juste une précision

Un fichier joint, c'est mieux

 

Pièces jointes

• Copie de jb-ListeFichiersRepertoireChoixDossier.xls

  77.5 KB · Affichages: 31

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Mai 2015

• #3

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")

VB:

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

 

Dernière édition: 25 Mai 2015

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 25 Mai 2015

• #4

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Mai 2015

• #5

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.

 

Dernière édition: 25 Mai 2015

Vote positif 0 Vote négatif