CommandeButon
Bonjour
J'ai ajouter un bouton sur ma userform que j'ai nommé CHOISIR IMAGE,
maintenant, je veux qu'en cliquant sur le bouton, ça oriente vers le poste de travail pour choisir une image
Merci de m'aider SVP
J'ai ajouter un bouton sur ma userform que j'ai nommé CHOISIR IMAGE,
maintenant, je veux qu'en cliquant sur le bouton, ça oriente vers le poste de travail pour choisir une image
Merci de m'aider SVP
6 réponses
-
Bonjour,
Vous voulez choisir un fichier image?-
-
@amram.aRe,
Au plus simple, adaptez les extentions fichier imageSub test() CheminFichier = Application.GetOpenFilename("Fichier image (*.jpg), *.jpg") If CheminFichier = "" Or CheminFichier = False Then 'pas de fichier choisi MsgBox "rien" Exit Sub Else 'code ........... MsgBox CheminFichier End If End Sub -
bon, j'ai essayer ce que vous m'avez montrer mais ça ne passe pas mais ça ne passe pas je comprend pas
Sub test()
CheminFichier = Application.GetOpenFilename("Fichier image (*.jpg), *.jpg")
If CheminFichier = "" Or CheminFichier = False Then 'pas de fichier choisi
MsgBox "rien"
Exit Sub
Else
'code ...........
MsgBox CheminFichier
End If
End Sub
et voilà aussi une autre méthode : que j'ai essayer mais ça ne passe pas aussi
Private Sub CommandButton2_Click()
image_path = Application.GetOpenFilename(filefilter = "picture.fileS(fichiers.image),*gf,*jpg,*bmp*,true=*Choisir image")
If image_path <> False Then
Me.Image1.Picture = LoadPicture(image_path)
Me.Image1.Visible = True
End If
Var = TextBox1.Text
SavePicture Image1.Picture, ThisWorkbook.Path & "\" & "photos\" & Var & "jpg" -
@amram.aRe
Qu n'est-ce qui ne passe pas? -
@amram.abon quand je click sur le bouton ont met méthode introuvable
-
-
justement c'était à moi la faute ça passe.
une fois de plus merci f894009 -
bonjour f894009
Merci pour l'aide
ça marche mais le soucis est que quand je choisis l'image, ont met erreur d’exécution chemin d'accès introuvable
voici des images en dessous
-
-
@f894009Re,
Je viens de refaire un essai, pas d'erreur!
-
-
merci f894009
je vais corrigé -
Bonjour,
Salut michel_m
amram.a:
Vous aurez peut-etre un soucis si vous enregistrez un fichier autre que .jpg en .jpg. Mais c'est vous qui voyez....Private Sub CommandButton2_Click() Dim fichier As String image_path = Application.GetOpenFilename(FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", Title:="Choisir image", MultiSelect:=False) If image_path <> False Then Image1.Picture = LoadPicture(image_path) Image1.Visible = True Var = TextBox1.Text SavePicture Image1.Picture, ThisWorkbook.Path & "\" & "photos\" & Var & ".jpg" End If End Sub -
ContributeurBonjour
commande d'une image par combobox et non commandbutton
https://mon-partage.fr/f/PStaP4kN/
