W
Willy
Guest
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
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