Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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
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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
I

Isabellisa

XLDnaute Nouveau
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
I

Isabellisa

XLDnaute Nouveau
Que cette phrase que tu as rajouté a une erreur de syntaxe!


Me.Image3.Picture = LoadPicture(DossierPhoto & NomImage & ".jpg")

sylvanu à dit:
Me.Image3.Picture = LoadPicture(DossierPhoto & NomImage & ".jpg")
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc
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
I

Isabellisa

XLDnaute Nouveau
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

fanch55

XLDnaute Barbatruc
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 .
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

G
  • Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
18
Affichages
1 K
GClaire
G
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
716
TooFatBoy
A
  • Question
XL 2019 Vérifier si une ligne existe dans un autre fichier
Réponses
7
Affichages
643
A-F
A
C
  • Résolu(e)
XL 2013 afficher image dans Userform via HyperText
Réponses
5
Affichages
760
Cyril-neo
C
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
W
  • Résolu(e)
Microsoft 365 Insertion Image dans une Feuille et Ratio conservé
2
Réponses
23
Affichages
3 K
patricktoulon
F
  • Question
Microsoft 365 Macro pour chercher un code client dans une autre feuille
Réponses
2
Affichages
612
Hasco
C
  • Résolu(e)
Microsoft 365 Identifier une cellule dans une colonne en fonction d'un numéro identifier dans une autre cellule avec VBA
Réponses
2
Affichages
942
Carine35
C
G
  • 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
890
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
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…