CommandeButon

Réponse 1 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
25 mars 2017 à 10:34

Bonjour,

Vous voulez choisir un fichier image?

amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017
25 mars 2017 à 10:49

Oui oui

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017
25 mars 2017 à 13:25

Re,

Au plus simple, adaptez les extentions fichier image

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

amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017
Modifié le 25 mars 2017 à 18:10

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"

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017
25 mars 2017 à 18:58

Re
Qu n'est-ce qui ne passe pas?

amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017 > amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017
25 mars 2017 à 21:31

bon quand je click sur le bouton ont met méthode introuvable

Réponse 2 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
26 mars 2017 à 08:56

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

Réponse 3 / 6

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
25 mars 2017 à 19:12

Bonjour

commande d'une image par combobox et non commandbutton

https://mon-partage.fr/f/PStaP4kN/

amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017
25 mars 2017 à 21:43

le bouton est placé sur la userform

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017
26 mars 2017 à 08:38

Bo,jour,

C'était une proposition, pas une question !!!

Réponse 4 / 6

amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017
Modifié le 26 mars 2017 à 23:51

merci f894009
je vais corrigé

Réponse 5 / 6

amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017
Modifié le 27 mars 2017 à 12:35

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 mars 2017 à 14:40

Bonjour,

ont met erreur d’exécution chemin d'accès introuvable
Sur quelle ligne?

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
27 mars 2017 à 15:47

Re,
Je viens de refaire un essai, pas d'erreur!

Réponse 6 / 6

amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017
27 mars 2017 à 16:36

justement c'était à moi la faute ça passe.

une fois de plus merci f894009

CommandeButon

6 réponses

Newsletters