Bonjour le forum

Le classeur à 3 feuilles "Donnees" "Listing" Images"
Les logo sont dans "Images dans la colonne D
A: TxtB_Numéro1 (Identité) B: Nom de l'Image C: Chemin Images D: Images E: Si Pas Image
J'ai un soucis . Je n'arrive pas à charger l'image du client au double click de la listbox:
voilà le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub Initialise_LstB_Referentiel()
    ' déclarations des variables
    Dim i As Integer
    Dim fPath As String
    Dim Image1, Image2 As String
    Dim t As Byte
 
    Sheets("Listing").Select
    With LstB_Referentiel
        TxtB1 = .List(.ListIndex, 0)        ' Numéro de la Ligne
        CmbB_Groupe_Nom = .List(.ListIndex, 1)        'Groupe de la famille
        CmbB_Civilite = .List(.ListIndex, 2)        ' Civilité
        For t = 1 To 4        'Nom, Prénom, Entreprise, Service
            Userform1.Controls("TxtB_Numero" & t) = .List(.ListIndex, t + 2)
        Next t        ' Fin de boucle
        CmbB_Activite = .List(.ListIndex, 7)        ' Activité
        TxtB_Numero5 = .List(.ListIndex, 8)        'Adresse Domicile
        CmbB_Code_Postal_Domicile = .List(.ListIndex, 9)        ' Code Postal Domicile
        CmbB_Ville_Domicile = .List(.ListIndex, 10)        ' Ville Domicile
        CmbB_Pays_Domicile = .List(.ListIndex, 11)        'Pays Domicile
        TxtB_Numero6 = .List(.ListIndex, 12)        'Adresse Bureau
        CmbB_Code_Postal_Bureau = .List(.ListIndex, 13)        'Code Postal Bureau
        CmbB_Ville_Bureau = .List(.ListIndex, 14)        'Ville Bureau
        CmbB_Pays_Bureau = .List(.ListIndex, 15)        'Pays Bureau
        For t = 7 To 25
            Userform1.Controls("TxtB_Numero" & t) = .List(.ListIndex, t + 9)
        Next t                
        CmbB_Code_APE = .List(.ListIndex, 35)        ' N° APE
        TxtB_Numero26 = .List(.ListIndex, 36)        ' Titulaire du Compte
        TxtB_Numero27 = .List(.ListIndex, 37)        ' Nom APE
        CmbB_Banque = .List(.ListIndex, 38)        ' Banque
        For t = 28 To 35        ' Domiciliation, Code Banque, Code Guichet, N° Compte
            Userform1.Controls("TxtB_Numero" & t) = .List(.ListIndex, t + 11)        ' Clé RIB, Code BIC, Code IBAN, N° SS
        Next t        ' Fin de boucle
        TxtB_Date1 = .List(.ListIndex, 47)        ' Date de naissance
        CmbB_Type_Contrat = .List(.ListIndex, 48)        'Type de Contrat
        CmbB_Statut = .List(.ListIndex, 49)        ' Statut
        TxtB_Numero36 = .List(.ListIndex, 50)        ' Salaire
        CmbB_Groupe_Travail = .List(.ListIndex, 51)        ' Coefficient
        CmbB_Coefficient = .List(.ListIndex, 52)        ' Groupe
        CmbB_Poste = .List(.ListIndex, 53)        ' Nom du Poste
        TxtB_Date2 = .List(.ListIndex, 54)        ' Date d'arrivée
        TxtB_Date3 = .List(.ListIndex, 55)        ' Date de création
        TxtB_Date4 = .List(.ListIndex, 56)        ' Date de modification
        TxtB_Numero37 = .List(.ListIndex, 57)        ' Notes
        CmbB_CodeClient = .List(.ListIndex, 58)        ' Code Client
        TxtB_Numero38 = .List(.ListIndex, 59)        ' Nom Enfant 1
        TxtB_Numero39 = .List(.ListIndex, 60)        ' Prénom Enfant 1
        TxtB_Date5 = .List(.ListIndex, 61)        ' Date de naissance E1
        TxtB_Numero40 = .List(.ListIndex, 62)        ' Nom Enfant 2
        TxtB_Numero41 = .List(.ListIndex, 63)        ' Prénom Enfant 2
        TxtB_Date6 = .List(.ListIndex, 64)        ' Date de naissance E2
        TxtB_Numero42 = .List(.ListIndex, 65)        ' Nom Enfant 3
        TxtB_Numero43 = .List(.ListIndex, 66)        ' Prénom Enfant 3
        TxtB_Date7 = .List(.ListIndex, 67)        ' Date de naissance E3
        TxtB_Images = .List(.ListIndex, 68)        ' N° de l'image
        TxtB_Chemin = .List(.ListIndex, 69)        ' Chemin de l'image
        TxtB_Numero36 = Format(TxtB_Numero36.Value, "## ##0.00€")
        TxtB_Numero1.SetFocus
    End With
ensuite nous arrivons à la partie Images

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
fPath = ThisWorkbook.Path & "\" & TxtB_Numero1.Value
    I = Me.LstB_Referentiel.ListIndex
    On Error Resume Next
    ' .............................................................................................Afficher l'image
    Dim Répertoire As String
 
    Répertoire = "C:\Users\Mignot Laurent\Documents\Fichiers Clients\Logo"
    'If Image1 <> "" Then        ' ........Dir(Fichier) <> "" Then OU If Me.Image1.Picture Is Nothing Then
    If Dir(Répertoire & "\" & Me.TxtB_Numero1 & ".jpg") <> "" Then
        Me.Image1.Picture = LoadPicture(Répertoire & "\" & Me.TxtB_Numero1.Value & ".jpg")
        ' .....................................................................................Si le fichier existe, il est chargé pour visualisation.
        'Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & TxtB_Numero1.Value)
        'Image1.Picture = LoadPicture(fPath & "\" & Me.LstB_Referentiel.Column(3, i) & ".bmp;.jpg;.jpeg;.jfif;.jpe;.tif;.tiff")        ' (Fichier)
        ' Me.Image1.Picture = LoadPicture(strFileName)
        ' Me.Image1.Picture = LoadPicture(Sheets(5).TxtB_Numero1.Value)
        Me.Image1.Visible = True        ' .....................................................Affiche Image1
        Me.Image2.Visible = False        ' ....................................................Masque Image2
    Else        ' .................................................................................Si l'image des contacts ne sont pas disponibles
        Me.Image2.Picture = LoadPicture(Répertoire & "\" & "PasImages.bmp")
        'Me.Image2.Picture = Sheets(5).PasImages.Picture        ' ..............................Charge PasImages dans l'Image2
        Me.Image2.Visible = True        ' .....................................................Affiche Image2
        Me.Image1.Visible = False        ' ....................................................Masque Image1
    End If
J'ai consulté tout ce que je pouvais et impossible de comprendre pourquoi l'image ne charge pas.
Que ce soit l'image1 et image2

faut il que je change mon approche mais si je dois prendre les images dans un dossier j'aurai tous à recommencer

Dans ce cas là la TextBox "TxtB_Numero1" passera en ComboBox sous le même nom.

Le dossier de déclaration sera : C:\Users\Mignot Laurent\Documents\Fichiers Clients\Logo

Je tourne en rond c'est donc pourquoi je demande un conseil sur cette approche.

Cordialement