insertion image dans un commandbutton

Version imprimable

2 pièce(s) jointe(s)

bonjour j'ai mis en place dans useform 1 un commandbutton pour qui affiche une image
mon code ci dessous
Code:

1 2 3 4 5 6 7 8 9 Private Sub CommandButton3_Click() Dim a a = Application.GetOpenFilename("Fichier jpg;gif;bmp;tif,*.jpg ;*.tif;*.gif;*.jpg") If a <> False Then Imag.Picture = LoadPicture(a): photo = a End Sub Private Sub CommandButton4_Click() Imag.Picture = LoadPicture(""): photo = "" End Sub
Pièce jointe 483516

Pièce jointe 483514

mais cela n'affiche pas l'image dans mon bouton et le chemin ne s’enregistre pas dans ma feuill "00-recap en colonne aw
ci joints mon fichier
merci de votre aide

bonsoir

Code:

1
2
3
4
5
Private Sub CommandButton3_Click()
Dim a
a = Application.GetOpenFilename("Fichier jpg;gif;bmp;tif,*.jpg ;*.tif;*.gif;*.jpg")
If a <> False Then Imag.Picture = LoadPicture(a): photo = a
End Sub

heu... il est ou ce controls ("Imag") dans ton UserForm

ca serait pas plutôt ca

Code:

1
2
3
4
5
6
 
Private Sub CommandButton3_Click()
Dim a
a = Application.GetOpenFilename("Fichier jpg;gif;bmp;tif,*.jpg ;*.tif;*.gif;*.jpg")
If a <> False Then CommandButton3.Picture = LoadPicture(a): photo = a
End Sub

17/06/2019, 09h29
cbredeche

merci mais cela ne marche pas
je n'y arrive pas
ma banque d'images est sur un répertoire et dossier bien défini lors de la sélection de l'image je veux que le chemin soit enregistré dans la cellule correspondant à ma fiche
et lors d'un rappel je vais lire les chemins pour afficher l'image
merci de votre aide
17/06/2019, 09h44
patricktoulon

1 pièce(s) jointe(s)

re

re
Bonjour
qu'est ce que tu comprends pas quand je te dit que le controls("imag") n'existe pas dans ton UserForm
ensuite tu parle de chemin bien défini dans une cellule et tu présente un code avec une boite de dialogue ????????:koi:

Pièce jointe 484033
17/06/2019, 13h20
cbredeche

2 pièce(s) jointe(s)

Désolé je me suis mal fait comprendre cela fonctionne mais cela ne place pas mon image dans la fiche correspondante et cela ne place pas non plus sur mon tableau
j'ai une série de numéros.
Moi je voudrais la photo dans la fiche et le chemin en texte exemple c:\document\image.jpg
merci de ton aide
18/06/2019, 15h05
cbredeche

encore merci de votre aide sur le forum