inseré une image dans un userform a l'aide de l'option parcourir Résolu

Question

Bonjour, je créé un formulaire et j'aimerais permettre l'affichage d'image quelconque à l'aide de l'option parcourir. 

Ce que je veux dire c'est que n'importe qui qui utilise mon formulaire puisse ajouté une image en allant la chercher dans ses dossier.

Merci,

pijaku · Accepted Answer

Bonjour,

Dans votre UserForm :
- dessinez un contrôle Image (nommé Image1)
- dessinez un CommandButton (nommé CommandButton1, propriété Caption : Parcourir...)

Le code de votre bouton est :
Private Sub CommandButton1_Click()
  Dim FichImg As Variant
  
    FichImg = Application.GetOpenFilename("Tous types de fichiers (*.*),*.*")
    'Si aucun fichier n'est sélectionné on passe au traitement d'erreur (PasDeFichier)
    If FichImg = False Then GoTo PasDeFichier
    'Si le fichier sélectionné n'est pas une image
    'le traitement d'erreur va traiter la ligne d'insertion
    'ne rien faire et passer au traitement de l'erreur (PasUneImage)
    On Error GoTo PasUneImage
    'Tentative d'insertion du fichier dans le contrôle Image1
    Me.Image1.Picture = LoadPicture(FichImg)
    Exit Sub
'traitements d'erreurs
PasDeFichier:
MsgBox "Vous devez sélectionner un fichier Image pour l'insérer.", vbCritical
Exit Sub
PasUneImage:
MsgBox "Le format de fichier choisi ne convient pas.", vbCritical
End Sub

Bob0876 · Answer

Merci bcp, mais j'ai pris votre code j'ai créé dans un module les deux sub (pasuneimage et pasdefichier), cependant lorsque je clique sur le bouton une erreur ce produit et sa me dit étiquette non définie? pourquoi?

Bob0876 · Answer

Lol C'est ma faute j'avais mal entré votre code!! Merci beaucoup sa marche parfaitement.

Inseré une image dans un userform a l'aide de l'option parcourir

3 réponses

Votre réponse

Discussions similaires