Bonjour James007,
Je te remercie mais sa ne fonctionne pas voici mon code en entier :
[code][/Private Sub TextBox1_Change()
On Error Resume Next
Image1.Picture = LoadPicture("E:\Le Monde\Etats Unis\Carte\" & TextBox1 & ".Gif")
On Error GoTo 0
End Sub
Public Sub UserForm_Activate()
UserForm2.Left = 827
UserForm2.Top = 180
'Affiche le nom du pays en haut gauche du Formulaire
UserForm2.Caption = " Etat de..." & " " & TextBox1.Value
End Sub
Private Sub UserForm_Initialize()
On Error Resume Next
Image1.Picture = LoadPicture("E:\Le Monde\Etats Unis\Carte\" & TextBox1 & ".Gif")
On Error GoTo 0
End Subcode]
Je dois a tout pris cliquer sur le textbox pour afficher l'image
Bonne journée
Max