Clo from Ghost World
XLDnaute Nouveau
Bonjour à tout le forum,
Oui je sais, ce problème a déjà été traité et pourtant oui je repose la question car à l'évidence, ce que j'ai pu tester en lisant les posts du forum ne fonctionne pas. Il s'agit sans nul doute d'une erreur de ma part mais je suis un peu perdue et je n'arrive pas à avancer. Je vous demande donc de l'aide.
Je souhaitais que lorsque j'affiche le CV d'une personne, la photo se rapportant à la personne s'affiche également dans mon UserForm.
Voici le code :
-------
PhotoCV.Picture = LoadPicture()
Photo = ActiveWorkbook.Path & "\Photos CV\" & Range("AH" & ligSelect).Value
If Dir(Photo) = "" Then Exit Sub
PhotoCV.Picture = LoadPicture(Photo)
--------
J'aimerais à présent que lorsqu'il n'y a pas de photos disponibles, une image s'affiche par défaut pour ne pas laisser la case image vide.
J'ai donc essayé le fameux "Error GoTo Fin" comme je l'ai lu ici sur ce forum mais ça ne semble pas fonctionner.
J'ai également essayé avec la formule If ActiveWorkbook.Path & "\Photos CV\" & Range("AH" & ligSelect).Value = "" then PhotoCV.Picture = LoadPicture (Photo par défaut) ... Rien n'y fait.
Quelqu'un pourrait me donner quelques conseils ?
Je vous remercie. Bonne soirée !
Oui je sais, ce problème a déjà été traité et pourtant oui je repose la question car à l'évidence, ce que j'ai pu tester en lisant les posts du forum ne fonctionne pas. Il s'agit sans nul doute d'une erreur de ma part mais je suis un peu perdue et je n'arrive pas à avancer. Je vous demande donc de l'aide.
Je souhaitais que lorsque j'affiche le CV d'une personne, la photo se rapportant à la personne s'affiche également dans mon UserForm.
Voici le code :
-------
PhotoCV.Picture = LoadPicture()
Photo = ActiveWorkbook.Path & "\Photos CV\" & Range("AH" & ligSelect).Value
If Dir(Photo) = "" Then Exit Sub
PhotoCV.Picture = LoadPicture(Photo)
--------
J'aimerais à présent que lorsqu'il n'y a pas de photos disponibles, une image s'affiche par défaut pour ne pas laisser la case image vide.
J'ai donc essayé le fameux "Error GoTo Fin" comme je l'ai lu ici sur ce forum mais ça ne semble pas fonctionner.
J'ai également essayé avec la formule If ActiveWorkbook.Path & "\Photos CV\" & Range("AH" & ligSelect).Value = "" then PhotoCV.Picture = LoadPicture (Photo par défaut) ... Rien n'y fait.
Quelqu'un pourrait me donner quelques conseils ?
Je vous remercie. Bonne soirée !