Fiche avec photo d'après une BD Excel

mimi42 · 16 Juin 2010

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 · 16 Juin 2010

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 · 16 Juin 2010

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 · 15 Novembre 2013

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

Bonsoir,

Voila un code qui permet d'afficher des photos

Code:

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

Fiche avec photo d'après une BD Excel

mimi42

XLDnaute Nouveau

mutzik

XLDnaute Barbatruc

mimi42

XLDnaute Nouveau

kingfadhel

XLDnaute Impliqué

Discussions similaires

Fiche avec photo d'après une BD Excel

mimi42

XLDnaute Nouveau

mutzik

XLDnaute Barbatruc

mimi42

XLDnaute Nouveau

kingfadhel

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency