Microsoft 365 VBA insert photos

[PHV62]

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]

Bonsoir PHV62,

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

A+

 

[PHV62]

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]

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

 

[PHV62]

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]

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]

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

 

[job75]

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

 

[PHV62]

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]

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

 

[PHV62]

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]

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

 

[PHV62]

merci pour l aide tout fonctionne

résolu
cordialement phv62