Pour les images elles sont appelées ainsi exemple pour ce formulaire quand je choisi le badge :
Ce code s’exécute :
If Not ComboBox1.Value = « » Then
Dim MonFichier As String
nom = ComboBox1.Value
MonFichier = (« C:\Users\Leclerc\Pictures\Fichedupersonnel ») & nom & (".jpeg")
Dim no_ligne As Integer
Sheets(« Feuil1 »).Select
no_ligne = ComboBox1.ListIndex + 3
'TextBox1.Value = Cells(no_ligne, 1).Value
TextBox2.Value = Cells(no_ligne, 2).Value
TextBox3.Value = Cells(no_ligne, 3).Value
TextBox4.Value = Cells(no_ligne, 4).Value
TextBox5.Value = Cells(no_ligne, 5).Value
TextBox6.Value = Cells(no_ligne, 7).Value
TextBox7.Value = Cells(no_ligne, 8).Value
Else
End If
If FichierExiste(MonFichier) = True Then
'MsgBox « Le fichier existe… »
Image1.Picture = LoadPicture(MonFichier)
Else
MsgBox « Le fichier image n’existe pas… »
Image1.Picture = LoadPicture
End If
la partie qui concerne la cible de l’image à remonter est celle-ci :
nom = ComboBox1.Value
MonFichier = (« C:\Users\Leclerc\Pictures\Fichedupersonnel ») & nom & (".jpeg")
le nom est celui du choix du badge dans la copie précédente c’est 1 ou 2
MonFichier porte le chemin du répertoire où se trouve l’image
ces lignes analysent l’existence de l’image et si elle est trouvée la charge dans la fenêtre Image1
If FichierExiste(MonFichier) = True Then
'MsgBox « Le fichier existe… »
Image1.Picture = LoadPicture(MonFichier)
Mais la variable MonFichier qui est le chemin est le nom de l’image se compose comme ceci :!
(« C:\Users\Leclerc\Pictures\Fichedupersonnel ») & nom & (".jpeg"
soit (« C:\Users\Leclerc\Pictures\Fichedupersonnel1.jpeg »)
C’est à dire vue du côté du traitement dans un répertoire Pictures dont le chemin est C:\Users\Leclerc\Pictures\ et le nom de l’image Fichedupersonnel1.jpeg
Je pense que tu souhaites récupérer l’image 1.jpeg dans le répertoire Fichedupersonnel et donc il manque dans la définition de ton chemin que porte la variable MonFichier un caractère indispensable pour prendre en compte comme répertoire sa terminaison : " \ "
tu dois l’écrire comme ceci :
MonFichier = (« C:\Users\Leclerc\Pictures\Fichedupersonnel\ « ) & nom & ( ».jpeg »)
de plus les accolades sont en trop j’écrirais cette variable ainsi :
MonFichier = "C:\Users\Leclerc\Pictures\Fichedupersonnel\ " & nom & « .jpeg »
J’ai fais un essai en adaptant ainsi pour le traitement Badge et avec mon chemin personnel et une de mes images bingo cela fonctionne
Adaptes le traitement Badge de ce formulaire comme je te l’ai indiqué puis testes le et si OK adaptes tous tes traitements à l’identique
Je te transmets ton fichier avec cette modification pour le Badge en place
Regardes et testes
Presque complet (1) (1).xlsm (98,5 Ko)
