Photo user nom prenom etc

Bonjour le Forum

J'ai une liste de 150 personnes avec un userform avec nom prénom etc..., je voudrais mettre la photo correspondant à la personne quand je sélectionne cette dernière

Est ce que cela pourrais planter ?

Par avance merci à vous tous

Bien cordialement

Bonjour,,

il y a des exemples sur l'excellent site de J. Boisgontier:

http://boisgontierjacques.free.fr/

P.

Re

Je vais aller ce pas, merci

Bonjour,

J'ai un soucis avec le chemin, j'ai beau chercher, je ne comprends pas, ça me bloque au niveau repertoire

avec comme dialogue "Erreur de compilation, variable non définie"

Pourriez vous m'orienter

Par avance, merci Cordialement

Private Sub btninserer_une_image_Click() 'Les images se trouvent dans le répertoire D:\Photos_Test

Repertoire = "C:\heron"

If Dir(Repertoire & "\" & Me.TbxNom & ".jpg") <> "" Then

Me.eric.Picture = LoadPicture(Repertoire & "\" & Me.TbxNom & ".jpg")

Else

Me.eric.Picture = LoadPicture(Repertoire & "\" & "transparent.gif")

' Me.Image1.Picture = LoadPicture()

End If

End Sub

Bonjour,

Il te faut déclarer ta variable juste avant de l'utiliser de cette façon :

Dim Repertoire as String

Ensuite tu peux l'utiliser :

Repertoire = "C:\heron"

Je te remercie de t'être arrêté sur mon soucis, mais il me mets en jaune

Me.Image1.Picture = LoadPicture(Repertoire & "\" & Me.TbxNom & "transparent.gif")

Je ne comprends pas

Bonjour,

Dans ton chemin une chose m'interpelle, c'est -->Repertoire & "\" & Me.TbxNom & "transparent.gif"<-- !

Est ce que le nom du Gif (qui se trouve je suppose dans le TextBox) sur le disque est concaténé avec le mot "transparent" ?

Du genre "Mon dessintransparent.gif" ?

Bonjour,

C'est un code que j'ai pris sur le forum, mais le post s'est arrêté avant d'avoir la solution final, aussi je bidouille mais tout ce bloque.

Aurais-tu une solution à mon soucis ?

Par avance, merci

Cordialement

ericp

Bonjour,

Le code posté au début doit fonctionner :

Private Sub btninserer_une_image_Click() 'Les images se trouvent dans le répertoire D:\Photos_Test

    Dim Repertoire As String

    Repertoire = "C:\heron" '<--indiquer ici le chemin du dossier où se trouvent les photos

    If Dir(Repertoire & "\" & Me.TbxNom.Text & ".jpg") <> "" Then
        Me.eric.Picture = LoadPicture(Repertoire & "\" & Me.TbxNom.Text & ".jpg")
    Else
        Me.eric.Picture = LoadPicture(Repertoire & "\" & "transparent.gif")
    End If

End Sub

Par contre, il faut que tu indique le chemin du dossier si il est différent de "C:\heron" car je voir qu'en commentaire tu indique "D:\Photos_Test" si c'est le cas, la ligne de code devient :

Repertoire = "D:\Photos_Test"

Re

mon chemin est bien, Repertoire = "C:\heron, c'est pour que je comprend pas

Re,

J'ai trouvé ce code qui correspond a ce que je veux sur la base mais quanf je monte une photo dans mon userform, j'enregistre mon fichier et que je le ré-ouvre,, la photo n'est pas enregistrer

Comment faire pour que cette reste dans l'userform

Cordialement

ericp

J'ai oublié de mettre le code

Private Sub CommandButton1_Click()

Dim TheFile As Variant

Dim ThePath As String

Dim UserDir As String

ThePath = "C:\Mes Documents\" 'a ajuster au répertoire contenant tes images

UserDir = CurDir

MsgBox UserDir

ChDir ThePath

TheFile = Application.GetOpenFilename("image(*.jpg),*.jpg")

If TheFile = False Then ChDir UserDir: Exit Sub

With Me.Image1

.Picture = LoadPicture(TheFile)

.PictureSizeMode = fmPictureSizeModeZoom

End With

ChDir UserDir

End Sub