Insérer une photo dans un UserForm(cadre image)

Bonsoir, toutes et tous

Je peux insérer des photos dans les cellules d'une feuille

mais je n'arrive pas à les insérer dans un cadre image d'un UserForm

voici mon code

Private Sub Image1_Click()

   If Dir(Répertoire & "\" & Me.TextBox2 & ".jpg") <> "" Then
     Me.Image1.Picture = LoadPicture(Répertoire & "\" & Me.TextBox2 & ".jpg")

     Me.Image1.Picture = LoadPicture(Répertoire & "\" & "transparent.gif")
   ' Me.Image1.Picture = LoadPicture()
    End If
End Sub

Ce code colle l'image dans la feuille excel et non dans le cadre image de L'UF

Merci de votre aide

amicalement

Pierrot

Bonjour

Il ne te manque pas un Else entre tes 2 chargements d'image ?

Comme d'habitude un fichier serait utile

Édit : Ne passe pas par cet évènement Private Sub Image1_Click() (parce que ..... heu cela ne fonctionne pas)

Passe par un bouton ou autre (à déterminer)

Private Sub CommandButton1_Click()
  If Dir(Répertoire & "\" & Me.TextBox2 & ".jpg") <> "" Then
    Me.Image1.Picture = LoadPicture(Répertoire & "\" & Me.TextBox2 & ".jpg")
  Else
    Me.Image1.Picture = LoadPicture(Répertoire & "\" & "transparent.gif")
    ' Me.Image1.Picture = LoadPicture()
  End If
End Sub

Bonsoir, Banzai64

merci pour ta réponse, j'ai insérer un nouveau bouton

mais j'ai un message d'erreur

Je joins un fichier

Merci

Amitiés

Pierrot

259carte-jeunixe.zip (13.72 Ko)

Bonsoir

Si cela fonctionne très bien

Il faut penser à initialiser la variable "Répertoire" et tout roule

je ne sais pas initialiser la variable répertoire,

voilà le message d'erreur que je reçois

Private Sub CommandButton2_Click()              'Les images se trouvent dans le répertoire D:\Photos_Test
      If Dir(Répertoire & "\" & Me.TextBox2 & ".jpg") <> "" Then
        Me.Image1.Picture = LoadPicture(Répertoire & "\" & Me.TextBox2 & ".jpg")
      Else
      [Surligner] [color=#BF8000]Me.Image1.Picture ='message d'erreur LoadPicture(Répertoire & "\" & "transparent.gif")[/color]
        ' Me.Image1.Picture = LoadPicture()[/Surligner]
     End If
    End Sub

ces lignes de code sont surlignées en jaune

Pierrot


Je te joins le fichier avec quelques photos

Répertoire D:\ Photos_Test

171carte-jeunixe-02.zip (12.53 Ko)

Bonsoir

Initialiser c'est donner une valeur à la variable

Si les photos sont bien dans le répertoire "D:\Photos_Test", il n'y aura pas de problème

Private Sub CommandButton2_Click()                  'Les images se trouvent dans le répertoire D:\Photos_Test
  Répertoire = "D:\Photos_Test"
  If Dir(Répertoire & "\" & Me.TextBox2 & ".jpg") <> "" Then
    Me.Image1.Picture = LoadPicture(Répertoire & "\" & Me.TextBox2 & ".jpg")
  Else
    Me.Image1.Picture = LoadPicture(Répertoire & "\" & "transparent.gif")
    ' Me.Image1.Picture = LoadPicture()
  End If
End Sub
photos test

Bonjour, Banzai64,

voila le message que je reçoit si je clique su le bouton

CommandButton2_Click() dans l'UserForm

et pourtant, les photos sont bien dans ce répertoire.

ce matin j'ai un examen prévu chez le cardiologue

Je te laisse quelques heures pour me régler ce problème si tu le veux bien

Amitiés,

Pierrot

257carte-jeunixe-03.xlsm (262.41 Ko)

Bonjour

A tester

Dim Répertoire As String

Private Sub CommandButton2_Click()                       'Les images se trouvent dans le répertoire D:\Photos_Test
  Répertoire = "D:\Photos_Test"
  If Dir(Répertoire & "\" & Me.TextBox2 & ".jpg") <> "" Then
    Me.Image1.Picture = LoadPicture(Répertoire & "\" & Me.TextBox2 & ".jpg")
  Else
    Me.Image1.Picture = LoadPicture(Répertoire & "\" & "transparent.gif")
    ' Me.Image1.Picture = LoadPicture()
  End If
End Sub

Salut, Banzai 64,

je suis rentré de clinique et tout va bien

mieux que le code que tu m'as envoyé

mes photos sont dans le répertoire "Pierrot"D:\Photos_Test

Répertoire = "D:\Photos_Test"

Pierrot se place avant le répertoire D: j'ai testé mais toujours un message d'erreur

désolé de te causer tant de problèmes.

Pierrot

Bonjour

Bizarre ce répertoire

Passe par skype

je passe par Skype

de suite

Pierrot

Merci mon ami Banzai64, tout est réglé

bonne soirée

Amitiés

Pierrot

Rechercher des sujets similaires à "inserer photo userform cadre image"