XL 2019 Afficher une photo dans un formulaire si la "checkbox" est coché dans un autre formulaire

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Isabellisa
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

Isabellisa

XLDnaute Nouveau
Bonjour,

J'ai suivi un tuto sur internet. J'ai dû modifier un peu sa façon de faire pour afficher les informations et photos dans un nouveau formulaire (FicheEmployés)parce sa façon ne fonctionnait pas avec ce que je voulais faire. Tout va bien pour tout afficher dans le formulaire même les photos. Le souci, c'est quand la case dans le formulaire d'enregistrement d'un Nouvel Employé n'est pas cochée, c'est censé afficher la photo "Imagevide" dans mon formulaire pour afficher et modifier l'employé, mais ça me met erreur 53. Donc, je présume que c'est dans ma modification qu'il y a une erreur. J'ai mis en rouge où ça me donne l'erreur 53.

Code d'une partie du tutoriel :

'Déclaration des Variables Dim NomImage As String Dim Matricule As Integer Dim MaSource As Range Dim DossierPhoto As String 'Affectation des Variables DossierPhoto = ThisWorkbook.Path & "\Photos\" Set MaSource = shData.Range("A1").CurrentRegion Matricule = shListe.Range("B13") ... Me.cboService = Application.WorksheetFunction.VLookup(Matricule, MaSource, 14, 0) Me.txtSalaire = Format(Application.WorksheetFunction.VLookup(Matricule, MaSource, 15, 0), "Currency") If Application.WorksheetFunction.VLookup(Matricule, MaSource, 16, 0) <> "ImageVide" Then 'Me.chkPhoto = True Else ' Me.chkPhoto = False End If Me.lblNomImage.Caption = Application.WorksheetFunction.VLookup(Matricule, MaSource, 16, 0) 'On affiche l'image du Salarié dans le Formulaire NomImage = Me.lblNomImage.Caption Me.Image1.Picture = LoadPicture(DossierPhoto & NomImage & ".jpg")

Code d'une partie du mien (j'ai pas de CBO, mais c'est pour vous montrer comment j'ai modifié Papplication. WorksheetFunction.....) :

'Déclaration des variables Dim NomImage As String Dim DossierPhoto As String 'Affectation des Variables DossierPhoto = ThisWorkbook.Path & "\Photos Employés\" Dim no_ligne As Integer no_ligne = ComboBox11.ListIndex + 2 ... TextBox22.Value = shData.Cells(no_ligne, 20).Value TextBox21.Value = shData.Cells(no_ligne, 21).Value If shData.Cells(no_ligne, 22) <> "Imagevide" Then Me.CheckBox1 = True Else Me.CheckBox1 = False End If Me.lblNomImage.Caption = Me.TextBox16 & " " & Me.TextBox15 'On affiche l'image du Salarié dans le Formulaire NomImage = Me.lblNomImage.Caption [COLOR=rgb(184, 49, 47)]Me.Image3.Picture = LoadPicture(DossierPhoto & NomImage & ".jpg")[/COLOR]

Merci énormément!

Isabellisa
 
Solution
fanch55
Isabellisa à dit:
Me.lblNomImage.Caption = Me.TextBox16 & " " & Me.TextBox15
'On affiche l'image du Salarié dans le Formulaire
NomImage = Me.lblNomImage.Caption
Me.Image3.Picture = LoadPicture(DossierPhoto & NomImage & ".jpg")
Cliquez pour agrandir...
Il est important de savoir ce que vous mettez dans Textbox15 et Textbox16 (potentiellement nom et prénom) :
Si Textbox16 est vide et Textbox15 = "toto" => Nomimage = " Toto" ( avec un espace en début)
Si Textbox16 = "toto" et Textbox15 est vide => Nomimage = "Toto " ( avec un espace en fin)
Si les 2 sont vides => Nomimage = " " ( un espace )
Ces 3 cas provoqueront une erreur 53 au loadPicture ( ainsi qu'une image non existante )

Vous pouvez pallier à ce problème :
VB: 
    Me.lblNomImage.Caption = Me.TextBox16 & " " &...
Trier par date Trier par votes
Bonsoir Isabellisa, Fanch,

Rajoutez cette ligne dans votre code.
Est ce que le message vous donne bien le bon chemin de l'image à afficher ?
VB: 
Me.lblNomImage.Caption = Me.TextBox16 & " " & Me.TextBox15
    'On affiche l'image du Salarié dans le Formulaire
    NomImage = Me.lblNomImage.Caption
    Msgbox DossierPhoto & NomImage & ".jpg"        ' LIGNE A RAJOUTER'
   [COLOR=rgb(184, 49, 47)]Me.Image3.Picture = LoadPicture(DossierPhoto & NomImage & ".jpg")[/COLOR]
 
Vote positif 0 Vote négatif
fanch55 à dit:
Bonjour, qu'y a-t-il dans NomImage ( donnez un exemple )
L'erreur 53 indique un fichier introuvable .
Cliquez pour agrandir...
C'est le nom de l'image exemple : Georges de la Jungle.jpg ". Pour les photos d'employés ça les affichent, Donc, il trouve le fichier. C'est l'image qui représente une image vide qu'il ne trouve pas et pourtant l'image s'intitule Imagevide.jpg. Et c'est là que l'erreur 53 apparaît!

Merci ! 😉
 
Vote positif 0 Vote négatif
Que cette phrase que tu as rajouté a une erreur de syntaxe!
🤷‍♀️

Me.Image3.Picture = LoadPicture(DossierPhoto & NomImage & ".jpg")
sylvanu à dit:
Bonsoir Isabellisa, Fanch,

Rajoutez cette ligne dans votre code.
Est ce que le message vous donne bien le bon chemin de l'image à afficher ?
VB: 
Me.lblNomImage.Caption = Me.TextBox16 & " " & Me.TextBox15
    'On affiche l'image du Salarié dans le Formulaire
    NomImage = Me.lblNomImage.Caption
    Msgbox DossierPhoto & NomImage & ".jpg"        ' LIGNE A RAJOUTER'
   [COLOR=rgb(184, 49, 47)]Me.Image3.Picture = LoadPicture(DossierPhoto & NomImage & ".jpg")[/COLOR]
Cliquez pour agrandir...

sylvanu à dit:
Me.Image3.Picture = LoadPicture(DossierPhoto & NomImage & ".jpg")
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Isabellisa à dit:
Me.lblNomImage.Caption = Me.TextBox16 & " " & Me.TextBox15
'On affiche l'image du Salarié dans le Formulaire
NomImage = Me.lblNomImage.Caption
Me.Image3.Picture = LoadPicture(DossierPhoto & NomImage & ".jpg")
Cliquez pour agrandir...
Il est important de savoir ce que vous mettez dans Textbox15 et Textbox16 (potentiellement nom et prénom) :
Si Textbox16 est vide et Textbox15 = "toto" => Nomimage = " Toto" ( avec un espace en début)
Si Textbox16 = "toto" et Textbox15 est vide => Nomimage = "Toto " ( avec un espace en fin)
Si les 2 sont vides => Nomimage = " " ( un espace )
Ces 3 cas provoqueront une erreur 53 au loadPicture ( ainsi qu'une image non existante )

Vous pouvez pallier à ce problème :
VB: 
    Me.lblNomImage.Caption = Me.TextBox16 & " " & Me.TextBox15
    'On affiche l'image du Salarié dans le Formulaire
    Nomimage = Trim(Me.lblNomImage.Caption)
    If Nomimage = "" Then
        Nomimage = DossierPhoto & "ImageVide" & ".jpg"
    Else
        Nomimage = DossierPhoto & Nomimage & ".jpg"
        If Dir(Nomimage) = "" Then Nomimage = DossierPhoto & "ImageVide" & ".jpg"
    End If
    Image3.Picture = LoadPicture(Nomimage)
 
Vote positif 0 Vote négatif
Solution
fanch55 à dit:
Il est important de savoir ce que vous mettez dans Textbox15 et Textbox16 (potentiellement nom et prénom) :
Si Textbox16 est vide et Textbox15 = "toto" => Nomimage = " Toto" ( avec un espace en début)
Si Textbox16 = "toto" et Textbox15 est vide => Nomimage = "Toto " ( avec un espace en fin)
Si les 2 sont vides => Nomimage = " " ( un espace )
Ces 3 cas provoqueront une erreur 53 au loadPicture.

Vous pouvez pallier à ce problème :
VB: 
    Me.lblNomImage.Caption = Me.TextBox16 & " " & Me.TextBox15
    'On affiche l'image du Salarié dans le Formulaire
    Nomimage = Trim(Me.lblNomImage.Caption)
    If Nomimage = "" Then
        Nomimage = DossierPhoto & "ImageVide" & ".jpg"
    Else
        Nomimage = DossierPhoto & Nomimage & ".jpg"
        If Dir(Nomimage) = "" Then Nomimage = DossierPhoto & "ImageVide" & ".jpg"
    End If
    Image3.Picture = LoadPicture(Nomimage)
Cliquez pour agrandir...
Ok, je me disais justement ce matin, que si je veux les noms qui sont affichés dans les textbox 15 et 16, ce n'est pas le nom de la photo... (Désolée, problèmes de mémoire, je me remets d'une maladie et ça me prend plus de temps pour trouver mes erreurs) Donc, j'arrivais à cerner l'erreur ce matin (après des mois)! Merci pour le code je l'essaie!

Si ça fonctionne, je ne saurai comment vous remercier!
 
Vote positif 0 Vote négatif
Merci de votre réponse,
Si cela a pu vous aider et que vous considérez que cela puisse être "une" solution,

n'oubliez pas de le faire savoir, cela évitera à d'autres contributeurs d'analyser un sujet clos .
1680530689419.png
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
898
TooFatBoy
TooFatBoy
A
  • Question Question
XL 2019 Vérifier si une ligne existe dans un autre fichier
Réponses
7
Affichages
802
A-F
A
C
  • Résolu(e)
XL 2013 afficher image dans Userform via HyperText
Réponses
5
Affichages
876
Cyril-neo
C
F
  • Question Question
Microsoft 365 Macro pour chercher un code client dans une autre feuille
Réponses
2
Affichages
690
Hasco
Hasco
W
  • Résolu(e)
Microsoft 365 Insertion Image dans une Feuille et Ratio conservé
2
Réponses
23
Affichages
4 K
patricktoulon
patricktoulon
G
  • Question Question
XL 2016 Ecrire une boucle pour afficher ensemble dans un userform, toutes ses textbox complétées par la boucle! Voir mon code et photos feuilles joints !
Réponses
8
Affichages
1 K
vgendron
vgendron
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
1 K
VirginieG
V
L
  • Question Question
Problème pour afficher une image liée à un Combobox (Liste déroulante) dans un formulaire
Réponses
4
Affichages
2 K
Legendre
L
maval
  • Question Question
XL 2013 Donnée un nom à une image sur Formulaire
Réponses
13
Affichages
1 K
patricktoulon
patricktoulon
B
  • Question Question
XL 2016 Afficher les résultats d'un tableau dans un autre
2
Réponses
16
Affichages
2 K
Bobleesouf
B
F
  • Question Question
re-Modification à partir d'une ComboBox dans un tableau dynamique
Réponses
9
Affichages
4 K
Staple1600
Staple1600
D
  • Question Question
XL 2016 Faire défiler des photos dans un userForm
Réponses
5
Affichages
2 K
mapomme
mapomme
D
  • Question Question
XL 2016 Code pour faire défiler les photos
Réponses
1
Affichages
1 K
BOISGONTIER
BOISGONTIER
ARNAUD ZIRIPE
  • Question Question
Enregistrer, afficher et modifier des données dans un formulaire
Réponses
2
Affichages
2 K
ARNAUD ZIRIPE
ARNAUD ZIRIPE
Le_Troll_Du_27
  • Question Question
XL 2016 Logo dans une feuille et données dans une autre
Réponses
2
Affichages
1 K
Le_Troll_Du_27
Le_Troll_Du_27
K
  • Question Question
insertion d'une photo dans un userform
Réponses
11
Affichages
2 K
Dranreb
Dranreb
maval
  • Question Question
Supprimer une image d'un UserForm à la réinitialisation
2
Réponses
22
Affichages
4 K
maval
maval
nrdz83
  • Question Question
afficher photo dans userform
Réponses
4
Affichages
8 K
stefan373
S
A
  • Question Question
afficher dans une listbox une colonne de cellule selon la celule trouvée avec find
Réponses
4
Affichages
7 K
adjovi7
A
Retour