bonjour,
me revoilà avec un problème qui doit certainement être tout bête a résoudre.

si je définis /
une variable avec un chemin ex: Chemin_Photo = "C:\Users\ANTEC\Desktop\TSCP Test Prog\Photo\"
Tout se passe bien
mais si je definis cette variable à partir d'une cellulle d'une feuille ex : Chemin_Photo = Sheets("DonnéesDiverses").Range("E2").Value
alors la cela bug

je cherche depuis 2 jours sans avoir trouver la solution qui devrait me sauter aux yeux

ci dessous une partie de mon code ( je sais on doit pouvoir faire plus léger)


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
Private Sub ComboBox2_Prenom_AfterUpdate()    ' affiche la photo de la personne dans le cadre photo
 
' definition des variables
Dim Chemin_Photo As String
Dim Nom_Prenom_Photo As String
Dim Chemin_Nom As String
Dim Chemin_Nom_Inconnu As String
 
' affiche la premiere lettre du prenom en majuscule    OK
ComboBox2_Prenom = UCase(Left(ComboBox2_Prenom, 1)) & LCase(Mid(ComboBox2_Prenom, 2, Len(ComboBox2_Prenom) - 1))
 
' definit le chemin du repertoire Photo
'Chemin_Photo = "C:\Users\ANTEC\Desktop\TSCP Test Prog\Photo\"
Chemin_Photo = Sheets("DonnéesDiverses").Range("E2").Value    '  C:\Users\ANTEC\Desktop\TSCP Test Prog\Photo\
 
MsgBox (Chemin_Photo)   ' OK    pour vérification du chemin de stockage des photos
 
' affichage du chemin photo  pour controle
' TextBox19.Value = Chemin_Photo
Nom_Prenom_Photo = ComboBox1_Nom.Value & " " & ComboBox2_Prenom.Value   'OK
 
' affichage du nom_premon de la photo recherchée   pour controle
' TextBox20.Value = Nom_Prenom_Photo
MsgBox (Nom_Prenom_Photo)   'OK
 
Chemin_Nom = Chemin_Photo & Nom_Prenom_Photo & ".jpg"   ' OK
 
' affichage  du chemin complet de la photo   pour controle
' TextBox21.Value = Chemin_Nom
MsgBox (Chemin_Photo & Nom_Prenom_Photo & ".jpg")   ' OK
 
Chemin_Nom_Inconnu = Chemin_Photo & "Photo indisponible" & ".jpg"
 
  'Vérifie si le fichier existe.
    If Dir(Chemin_Nom) <> "" Then       '  XXXXXXXXXXXX bloque a cette ligne  avec msg "Erreur d'execution 52  Nom ou numero fichier incorrect"
        'si le fichier existe, il est chargé pour visualisation.
        Image2_Photo_Adherent.Picture = LoadPicture(Chemin_Nom)
        Else
        'Sinon, affiche aucune image.
        Image2_Photo_Adherent.Picture = LoadPicture(Chemin_Nom_Inconnu)
        Label4.Caption = "Personne inconnue au fichier" & vbCrLf & "Veuillez vérifier l'ortographe"
    End If
 
' Affiche l'ID adhérent dans le champ "ID"   Label125     OK
' l'ID est constitué des 4 premieres lettres du nom et des 4 premieres lettres du prenom
Label7_ID.Caption = Left(ComboBox1_Nom.Value, 4) & Left(ComboBox2_Prenom.Value, 4)
 
' Ecriture de l'ID dans la cellule "A25" de la feuille "DonnéesDiverses"      OK
Sheets("DonnéesDiverses").Range("A25").Value = Label7_ID.Caption
 
End Sub
merci pour votre aide