Inseré une image dans un userform a l'aide de l'option parcourir
Résolu
Bob0876
Messages postés
40
Date d'inscription
Statut
Membre
Dernière intervention
-
Bob0876 Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
Bob0876 Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
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,
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,
A voir également:
- Afficher une image dans un userform vba
- Légender une image - Guide
- Image iso - Guide
- Acronis true image - Télécharger - Sauvegarde
- Afficher le 0 devant un nombre dans excel - Guide
- Reduire taille image - Guide
3 réponses
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 :
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