Discussion :

[cbredeche]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

fichier tableau ger - Copie.xlsm



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

[patricktoulon]

bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[patricktoulon]

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 ????????

[cbredeche]

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

[cbredeche]

encore merci de votre aide sur le forum