Inseré une image dans un userform a l'aide de l'option parcourir [Résolu/Fermé]

Signaler
Messages postés
40
Date d'inscription
mardi 16 septembre 2014
Statut
Membre
Dernière intervention
4 décembre 2014
-
Messages postés
40
Date d'inscription
mardi 16 septembre 2014
Statut
Membre
Dernière intervention
4 décembre 2014
-
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,

3 réponses

Messages postés
12235
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
6 janvier 2021
2 550
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

3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

Messages postés
40
Date d'inscription
mardi 16 septembre 2014
Statut
Membre
Dernière intervention
4 décembre 2014

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?
Messages postés
40
Date d'inscription
mardi 16 septembre 2014
Statut
Membre
Dernière intervention
4 décembre 2014

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