Fiche avec photo d'après une BD Excel

[mimi42]

Bonjour,
J'ai une base de données dans Excel. Je souhaiterais insérer la photo des personnes. Et surtout je voudrais que la photo s'affiche dans la fiche individuelle de chaque personne quand je la sélectionne. La fiche se trouve également dans Excel, j'ai utilisé la fonction recherchev pour la faire.
Merci par avance.

mimi42

 

[mutzik]

Re : Fiche avec photo d'après une BD Excel

Bonjour Mimi,

à mon mati, euhhh avis, si tu as beaucoup de personnes, ton classeur va vite devenir très 'lourd', et très lent aussi.
Il est par contre possible de sélectionner puis d'afficher une photo 'extérieure' au classeur, par ex sur ta fiche perso de ta personne

 

[mimi42]

Re : Fiche avec photo d'après une BD Excel

Oui c'est ce que je voudrais faire. Les photos sont dans un autre dossier. Je voudrais qu'elle apparaisse quand je sélectionne une personne.
Comment faire ?

 

[kingfadhel]

Re : Fiche avec photo d'après une BD Excel

Bonsoir,

Voila un code qui permet d'afficher des photos

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$2" And Target.Count = 1 Then
    RépertoirePhoto = "c:\mesdoc\"    ' adapter
    nf = RépertoirePhoto & "\" & Target & ".jpg"
    If Dir(nf) <> "" Then
      Me.Image1.Picture = LoadPicture(nf)
      Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
    Else
      Me.Image1.Picture = Nothing
    End If
  End If
End Sub

Fichier d'exemple