Microsoft 365 VBA insert photos

PHV62 · 30 Décembre 2023

Bonjour le forum pourriez vous m aider
j ai realiser un userform pour afficher des photos
quand j ai la photo qui correspond dans les fichiers: image , naissance, mariage, deces pas de probleme toutes les photos apparaissent correctement
par contre si il manque une photo: "ex mariage " la photo deces n apparait pas si c est la photo image aucune n apparait si il en manque une les utres apres n apparaissent pas

pourriez vous me dire ou est le probleme

merci
phv62

Private Sub textbox1_change()
TextBox1.Text = UCase(TextBox1.Text) 'Forcer la majuscule
ComboBox1 = TextBox1

If TextBox1 <> "" Then
cmdAdd.Enabled = True
Else
cmdAdd.Enabled = False
End If

Dim photo As String
photo = TextBox1.Value
Image1.Picture = LoadPicture("E:\GENEALOGIE\images\" & photo & ".JPG")

Dim photo2 As String
photo2 = TextBox1.Value
Image2.Picture = LoadPicture("E:\GENEALOGIE\naissance\" & photo & ".JPG")

Dim photo3 As String
photo3 = TextBox1.Value
Image3.Picture = LoadPicture("E:\GENEALOGIE\mariage\" & photo & ".JPG")

Dim photo4 As String
photo4 = TextBox1.Value
Image4.Picture = LoadPicture("E:\GENEALOGIE\deces\" & photo & ".JPG")
Exit Sub
End Sub

job75 · 30 Décembre 2023

Bonsoir PHV62,

Pourquoi 4 variables photo, photo2, photo3, photo4 puisqu'elles valent toutes TextBox1.Value ?

A+

PHV62 · 30 Décembre 2023

voila ce que j ai modifié en effet ca ne change rien si toutes les photos sont dans les fichiers toutes apparaissent
la j ai supprimé une photo dans le fichier " mariages de ce faite ca me bloque l userform et met message d erreur suivant
erreur 53
fichier introuvable
et me surligne en jaune image3

si je remet la photo je les ai toutes dans l userform

Private Sub textbox1_change()
TextBox1.Text = UCase(TextBox1.Text) 'Forcer la majuscule
ComboBox1 = TextBox1

If TextBox1 <> "" Then
cmdAdd.Enabled = True
Else
cmdAdd.Enabled = False
End If

Dim photo As String
photo = TextBox1.Value
Image1.Picture = LoadPicture("E:\GENEALOGIE\images\" & photo & ".JPG")

' Dim photo2 As String
' photo2 = TextBox1.Value
Image2.Picture = LoadPicture("E:\GENEALOGIE\naissance\" & photo & ".JPG")

' Dim photo3 As String
' photo3 = TextBox1.Value
Image3.Picture = LoadPicture("E:\GENEALOGIE\mariage\" & photo & ".JPG")

' Dim photo4 As String
' photo4 = TextBox1.Value
Image4.Picture = LoadPicture("E:\GENEALOGIE\deces\" & photo & ".JPG")
Exit Sub
End Sub

job75 · 30 Décembre 2023

Tout ça est normal et ne nécessite aucune explication.

PHV62 · 31 Décembre 2023

bonjour
mais pourquoi si il me manque l image 3, l image4 n apparait pas
ou si il manque l image 2, la 3 et la 4 n apparaissent pas alors quelle son bien dans las fichiers respectifs

merci
phv62

job75 · 31 Décembre 2023

Bonsoir PHV62,

Je ne comprends pas la question.

S'il y a un bug sur Image2.Picture les codes situés à la suite ne s'exécutent plus.

A+

PHV62 · 31 Décembre 2023

oui c est cela si il manque une photo, les images suivant n apparaissent pas

job75 · 31 Décembre 2023

Apparemment vous n'avez pas compris qu'un bug ça arrête tout.

PHV62 · 31 Décembre 2023

voici la solution en cherchant sur le forum j ai trouve ceci
Private Sub textbox1_change()

TextBox1.Text = UCase(TextBox1.Text) 'Forcer la majuscule

ComboBox1 = TextBox1

If TextBox1 <> "" Then
cmdAdd.Enabled = True
Else
cmdAdd.Enabled = False

End If

Dim photo As String
On Error Resume Next
photo = TextBox1.Value
Image1.Picture = LoadPicture("E:\GENEALOGIE\images taghon\" & photo & ".JPG")
On Error GoTo 0

On Error Resume Next

Image2.Picture = LoadPicture("E:\GENEALOGIE\images taghon naissance\" & photo & ".JPG")
On Error GoTo 0

On Error Resume Next

Image3.Picture = LoadPicture("E:\GENEALOGIE\images taghon mariage\" & photo & ".JPG")
On Error GoTo 0

On Error Resume Next

Image4.Picture = LoadPicture("E:\GENEALOGIE\images taghon deces\" & photo & ".JPG")
On Error GoTo 0

Exit Sub

End Sub

job75 · 31 Décembre 2023

Enlevez les On Error GoTo 0 et ne mettez qu'un seul On Error Resume Next.

PHV62 · 31 Décembre 2023

oui ca fonctionne aussi come cela
j ai une autre question comment et il possible de effacer les images dans l userform quand on change de nom dans le combobox

patricktoulon · 31 Décembre 2023

bonsoir
effacer l'image dans le userform
exemple
me.image1.picture=loadpicture("")

PHV62 · 31 Décembre 2023

merci pour l aide tout fonctionne

résolu
cordialement phv62

Microsoft 365 VBA insert photos

PHV62

XLDnaute Junior

job75

XLDnaute Barbatruc

PHV62

XLDnaute Junior

job75

XLDnaute Barbatruc

PHV62

XLDnaute Junior

job75

XLDnaute Barbatruc

PHV62

XLDnaute Junior

job75

XLDnaute Barbatruc

PHV62

XLDnaute Junior

job75

XLDnaute Barbatruc

PHV62

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

PHV62

XLDnaute Junior

Discussions similaires