Microsoft 365 VBA insert photos

PHV62

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

PHV62

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

PHV62

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

Discussions similaires

Réponses
1
Affichages
359
Compte Supprimé 979
C

Statistiques des forums

Discussions
313 286
Messages
2 096 822
Membres
106 755
dernier inscrit
riviere gabriel