Discussion :

[kbj_ihma]

bonsoir,
Dans le cadre de mon travail, j'ai réalisé une liste de documents qu'on voudrait mettre en ligne pour tous les employés. (cette liste n'est pas encore remplie entièrement)

Ce que je voudrai, c'est qu'en cliquant sur un des documents, donc sur l'une des cellules qui comporte le nom d'un document, je puisse avoir un userform qui me reprend le nom du document et qui affiche sa photo juste en dessous et nous donne la possibilité d'accéder à ce fichier, sinon de refermer.

l'idée est de mettre les photos dans le même emplacement que ce fichier excel, nommé de la même façon que les documents dans les cellules excel.

Vous verrez dans ce document un exemple du userform que je voudrai avoir en résultat.

Je vous avoue que je ne m'y connais pas du tout en VBA, si vous pouvez m'aider, ce sera très gentil à vous,
Merci d'avance

[jfontaine]

Bonjour,

Dans l'idée ou la Userform serait appeleé lors de l'entrée dans une cellule (Evenement SelectionChange), tu pourras charger l'image avec ce genre de code

Code :

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

Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Activecell.Value)

[kbj_ihma]

Bonjour et merci pour ta réponse,

au niveau du cadre supérieur qui devrait reprendre le nom de la cellule active, j'ai marqué :

Code :

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

1
2
3
4
Private Sub Label1_Initialize()
Label1.Text = ActiveCell.Value
 
End Sub

mais ça marche pas.
J'ai aussi testé :

Code :

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

1
2
Label1.Text = ActiveCell.Name
Label1.Name= ActiveCell.Name

sans succès

[jfontaine]

pour un label il faut utiliser la propriété Caption car text n'existe pas en VBA (sur cet objet)

Code :

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

Label1.Caption = ActiveCell.Value

[kbj_ihma]

Désolée mais j'ai essayé ce que tu m'a écris, mais ça n'a pas marché.

J'ai noté çà :

Code :

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

1
2
3
Private Sub Label1_Initialize()
Label1.Caption = ActiveCell.Value
End Sub

et je me suis mise dans une cellule où il y avait du texte pourtant.

Cordialement

[jfontaine]

Je mettrais ce code dans le Userform_Initialize

Code :

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

1
2
3
Private Sub UserForm_Initialize()
Label1.Caption = ActiveCell.Value
End Sub