Comment tester si une photo est présente dans un dossier ?

[Willy]

Bonsoir à tous
vraiment la dernière des dernières de la journée :

J'ai un dossier nommé PERMIS présent à la racine du fichier et contenant des photos dont le nom correspond au matricule de l'agent.
Par ex : 27 1052.jpg

Le pb est que tous les agents n'ont pas forcément de photo et j'ai donc besoin de tester si une photo est nommée au matricule demandé, si ce n'est pas le cas j'affiche une photo "modèle" nommée elle : 00 0000.jpg

Voici la procédure en cours de construction, elle est un peu lourde pour l'instant avec tous les textbox, je l'affinerai par la suite, de plus le Private Sub Userform_Activate() ne sert que pour afficher l'userform avant l'erreur et donc pouvoir lire le contenu des textbox pour vérif.
********

Private Sub UserForm_Initialize()
' Récupération du matricule sélectionné
marque = Chercher_Agent_STAT.Cat_Document.Value

' Chemin de la photo
Chemin_Photo = ActiveWorkbook.Path & "\Permis\" & marque & ".jpg"

' Teste si une photo à un nom identique au matricule
' c'est ici que je sèche !!!!!!

If Chemin_Photo = True Then
TextBox1 = Chemin_Photo
' Récupère les 11 derniers caractères du chemin dans le textBox1 soit le nom de la photo
TextBox2 = Right(TextBox1.Text, 11)
Else
TextBox2 = "00 0000.jpg"
End If

' Conversion en texte pour lecture dans textbox
TextBox3 = marque & ".jpg"

' Chemin de l'image MODELE si l'agent ne dispose pas de document
Chemin_Photo1 = ActiveWorkbook.Path & "\Permis\00 0000.jpg"
End Sub


Private Sub UserForm_Activate()
' Chargement de l'image, compare si le nom de la photo est identique au matricule
' sinon affiche la photo modèle
If TextBox2 = TextBox3 Then
PHOTO.Picture = LoadPicture(Chemin_Photo)
Else
PHOTO.Picture = LoadPicture(Chemin_Photo1)
End If
End Sub

' ===============
Je n'arrive à afficher que la photo modèle, je pense aussi qu'une boucle doit être faite pour vérifier dans le dossier PERMIS qu'une photo correspond ou pas au matricule plutôt que : If Chemin_Photo = True Then

Une piste ?
Merci de votre aide et bonne fin de soirée

Willy qui va rejoindre Morphée car depuis ce matin 7 h, Excel et surtout mon cerveau commence à chauffer !lol

 

[wally]

Bonjour Willy et le forum,

Essaye de remplacer :

If Chemin_Photo = True Then

par

If Dir(Chemin_Photo) <> "" Then


Slts

wally


P.S. Le problème mentionné dans le post <http://www.excel-downloads.com/html/French/forum/messages/1_73853_73853.htm> est-il toujours d'actualité ou l'as-tu résolu entre-temps ?

 

[Willy]

Bonjour Wally,
Merci pour ton aide, je vais appliquer cela dans mon projet photo.

Concernant le pb rencontré dans l'autre post, oui c'est toujours d'actualité, j'ai toujours l'erreur.

Merci à toi et bonne journée
Willy