Charger une photo

Bonjour à tous,

Je retourne sur un fichier qui chargeait des photos, mais çà fonctionne plus

J'ai vérifié avec ce sujet, j'ai pas trouvé d'erreur.

J'ai changé le chemin pour le bureau, en mettant une photo test sur le bureau aussi, mais pareil, voilà ce que çà donne.

Voilà le code :

'CHERCHER
Private Sub btnCherchP_Click()
    Dim x As Long, Y As Long, ws2 As Worksheet, chemin As String
Set ws2 = Sheets("profs")
    x = ws2.Range("B" & Rows.Count).End(xlUp).Row
If Len(nomP) = 0 Then 'si non vide
    MsgBox "Veuillez saisir les premières lettres du nom du professeur."
    Exit Sub
End If
For Y = 2 To x
        If ws2.Cells(Y, 2).Value = ecole.nomP.Value Then
            'remplissage UF avec infos feuill
            ecole.matP.Value = ws2.Cells(Y, 1).Value  'matricule
'MsgBox CSng(ws2.Cells(Y, 1).Value)ok
chemin = "Desktop\" & CSng(ws2.Cells(Y, 1).Value) & ".jpg"
'chemin = CreateObject("WScript.Shell").specialFolders("Desktop")
'chemin = "D:\Users\FRANCK\FRANCK\FRANCK\EXCEL\JOB\ecole\Photos Profs\" & CSng(ws2.Cells(Y, 1).Value) & ".jpg"
            ecole.nomP.Value = ws2.Cells(Y, 2).Value 'nom
            ecole.prenP.Value = ws2.Cells(Y, 3).Value 'prenom
            ecole.cmbSexP.Value = ws2.Cells(Y, 4).Value 'sexe
            ecole.datNP.Value = ws2.Cells(Y, 5).Value 'date naissance
            ecole.cmbMatP.Value = ws2.Cells(Y, 6).Value 'matiere
            ecole.cmbCl1.Value = ws2.Cells(Y, 7).Value 'classe1
            ecole.cmbCl2.Value = ws2.Cells(Y, 8).Value 'classe2
            ecole.cmbCl3.Value = ws2.Cells(Y, 9).Value 'classe3
            ecole.cmbCl4.Value = ws2.Cells(Y, 10).Value 'classe4
            ecole.cmbCl5.Value = ws2.Cells(Y, 11).Value 'classe5
            ecole.cmbCl6.Value = ws2.Cells(Y, 12).Value 'classe6
                If Dir(chemin) <> "" Then
                    Me.imageP.Picture = LoadPicture(chemin)
                    Me.imageP.PictureSizeMode = 3
                ElseIf Dir(chemin) = "" Then
                    MsgBox "rien"
                End If
            On Error Resume Next
        End If
    Next Y
End Sub

Pour avoir accés au bouton chercher, il faut cliquer droit dans le classeur, onglet profs.

Merci

Bonjour, pour test sur le bureau il faut écrire l'adresse entière sous la forme :

"C:\users\nomutilisateur\......."

Dans votre exemple le code va aller chercher pour Brulebois une image qui s'appelera : CSng1.jpg

il faut donc une image qui se nomme ainsi sur le bureau.

Bonjour Xmenpl,

J'ai oublié de dire que les photos sont nommés par le matricule.

Et pour un chiffre, je rajoute Csng() pour que çà fonctionne.

Merci

Bonjour,

J'ai teste le code en modifiant le chemin comme le dit Xmenpl et la photo se charge. elle s'appelle bien 1.jpg pour brulebois et 9.jpg pour bontemps.

Chez moi ca fonctionne en tous cas

@+

Bonjour fg2b,

Si c'est le bureau c'est pas le disque dur (En tout cas çà ne marche pas non plus) et

"C:\users\nomutilisateur\......."

Mais qqchose comme

"Desktop\" & ws2.Cells(Y, 1).Value & ".jpg"

Quel est ton chemin exact stp

Merci

Bonjour,

Voila le chemin exact

chemin = "C:\Users\MON_NOM\Desktop\" & CSng(ws2.Cells(Y, 1).Value) & ".jpg"

Fait attention au nom du fichier image qui est sur ton bureau, avec l'affichage ou pas des extensions de fichiers, il arrive qu'ion se retrouve avec des noms de type 1.jpg.jpg au lieu de 1.jpg

Cdlt

Bonjour,

Quelqu'un pour me donner le chemin complet d'une photo depuis le bureau, il n'y a rien de confidentiel comme çà.

Voila un msgbox de chemin

Toujours rien avec.

chemin = "C\Users\Desktop\1.jpg"

Salut,

Chemin = Environ("UserProfile") & "\Desktop\1.jpg"

Maintenant testes avec une image .bmp en lieux est place de la .jpg

Je me suis noté sur onenote que çà fonctionnait que sur le disque dur sous le répertoire de mon nom, doncC\Users\mon nom et pas mon prénom, comme l'a dit Xmenpl . Et donc pas sur le disque D ou le bureau maintenant.

Merci de votre participation et de votre patience.

Toujours rien avec.

chemin = "C\Users\Desktop\1.jpg"

Bonjour,

Comment veux tu que l'on te donne l'adresse exacte de ton propre bureau ??? on est pas dans ton PC.

Tout dépend du compte créer à l'ouverture de la session windows.

Si tu as copié ton image sur le bureau alors clic droit sur l'image ( option propriété ) à la ligne emplacement :

tu trouveras le chemin exact dont tu as besoins.