Image et userform

[canard]

salut à tous,

j'utilise un userform qui me sert de fiche, et je voulais rajouter la possibilité d'inserer une image de son choix qui est sur un disque dur dans le userform.


J'ai reussi une fois , mais j'ai perdu le fichier en question et je n'arrive pas a le refaire.

Ensuite est-il possible de renvoyer l'image dans une cellule donnée, car mon userform s'ouvre quand je fait un clik droit dans une cellule de la colonne A, et les textbox se remplissent avec les données contenu dans les cellules de la meme ligne. Moi je voudrais que l'image soit envoyé sur la meme ligne dans la colonne IV .

Je joint un petit fichier, que j'adpterais par la suite.

Merci à tous.

[file name=image_20051027180557.zip size=8634]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/image_20051027180557.zip[/file]

 

[deudecos]

Salut Canard, le forum,

Si je me souviens bien, j'ai du repondre une fois a ta question, je vais chercher et je te donne le fil...

Le voila !

Lien supprimé

Bonne soiree

Olivier

 

[canard]

salut deudecos,

j'ai relu deja ce post mais , a lépoque, j'avais réussi a adapter ton fichier mais la je coince.

Je ne sais pas pourquoi.

Merci quand meme.

@+

 

[canard]

salut deudecos,

j'ai relu deja ce post mais , a lépoque, j'avais réussi a adapter ton fichier mais la je coince.

Je ne sais pas pourquoi.

Merci quand meme.

@+

 

[Eric C]

Bonsoir le forum
Bonsoir Canard, bonsoir Olivier

Je ne vais répondre qu'à la première question (c'est une reprise.... lol.... j'ai beaucoup perdu ...re lool).
Ceci est basée sur l'une des démos de notre ami Thierry (que je salue au passage) :

Private Sub CommandButton1_Click()
Dim TheFile As Variant
Dim ThePath As String
Dim UserDir As String

ThePath = 'C:\\Photo\\' 'a ajuster au répertoire contenant tes images

UserDir = CurDir
MsgBox UserDir
ChDir ThePath

TheFile = Application.GetOpenFilename('image(*.jpg),*.jpg')
If TheFile = False Then ChDir UserDir: Exit Sub

With Me.Image1
.Picture = LoadPicture(TheFile)
End With

ChDir UserDir
End Sub

Bonne soirée à toutes & à tous

 

[canard]

salut Eric C, le forum

merci j'ai reussi a l'adapter comme je voulais, merci beaucoup.

@+