Photos dans Excel

Le 01/01/2013 à 14:08

Bonjour à tous et meilleurs voeux pour 2013

J'ai crée une Base de Données Excel avec des photos à chaque lignes, lorsque j'affiche un formulaire, la photo correspondante

n'apparait pas dans ce formulaire, alors qu'elle apparait dans l’aperçu avant impression.

Ces photos sont insérées avec" insertion d'images" et les cellules sont adaptées au format de la photos

Je joint un petit fichier comme exemple.

Merci à ceux qui pourront m'aider.

Papy Pierrot

43test-photo.xlsm (42.08 Ko)

Le 01/01/2013 à 15:15

Bonjour

Je ne penses pas que les photos puissent apparaître dans le formulaire standard.

Tu peux passer par VBAen adaptant cet exemple de JB

Cordialement

40suivantprecedent-photo.zip (47.38 Ko)

Le 02/01/2013 à 12:53

Cher Amadeus

Bonjour et mes meilleurs voeux pour 2013

Merci de me répondre si vite, mais je ne vois pas ou je dois placer le chemin du répertoire pour mes photos dans la macro ?

Voici le chemin : File:///D:\Documents excel\AAModèles tableaux\Photos

Je vous renvoie le tableau, Merci et bonne année

Papy Pierrot 73 ans

34copie-de-formsuivantprecedent.xlsm (85.60 Ko)

Le 02/01/2013 à 14:39

bonjour, je suis pas très fort mais je pense que c'est comme ça :

Private Sub Image1_Click()

End Sub

Private Sub UserForm_Initialize()
   [A2:H2000].Sort key1:=[B2]           ' Tri la BD
   Me.ChoixNom.List = Application.Transpose(Range([B2], [B65000].End(xlUp)))
   Me.ChoixNom.ListIndex = 0
 End Sub
 Private Sub ChoixNom_Change()
   [B2].Offset(ChoixNom.ListIndex, 0).Select
   recupere
End Sub
Private Sub B_suivant_Click()
 If Me.ChoixNom.ListIndex < Me.ChoixNom.ListCount - 1 Then
   Me.ChoixNom.ListIndex = Me.ChoixNom.ListIndex + 1
   [B2].Offset(Me.ChoixNom.ListIndex, 0).Select
   recupere
 End If
End Sub
Private Sub b_précédent_Click()
 If Me.ChoixNom.ListIndex > 0 Then
   Me.ChoixNom.ListIndex = Me.ChoixNom.ListIndex - 1
   [B2].Offset(Me.ChoixNom.ListIndex, 0).Select
   recupere
 End If
End Sub
Private Sub b_fin_Click()
  Unload Me
End Sub
Sub recupere()
     Me.nom = ActiveCell
     '-- civilité
     Select Case ActiveCell.Offset(0, -1)
      Case "Mme"
        Me.Civilité.Controls(0) = True
      Case "Mle"
        Me.Civilité.Controls(1) = True
      Case "M."
        Me.Civilité.Controls(2) = True
     End Select
     Me.prenom = ActiveCell.Offset(0, 1)
     Me.Marié = ActiveCell.Offset(0, 2)
     Me.date_naissance = ActiveCell.Offset(0, 3)
     Me.service = ActiveCell.Offset(0, 4)
     Me.ville = ActiveCell.Offset(0, 5)
     Me.Salaire = ActiveCell.Offset(0, 6)
     Répertoire = ThisWorkbook.Path
     If Dir(Répertoire & "D:\Documents excel\AAModèles tableaux\Photos\" & Me.nom & ".jpg") <> "" Then
        Me.Image1.Picture = LoadPicture(Répertoire & "\" & Me.nom & ".jpg")
     Else
        On Error Resume Next
        Me.Image1.Picture = LoadPicture(Répertoire & "D:\Documents excel\AAModèles tableaux\Photos\" & "transparent.gif")
     End If
End Sub

Francky

Le 02/01/2013 à 17:26

Salut Francky,

Un grand merci pour ton savoir-faire et ta gentillesse.

J'essaierai plus tard car j'ai de la visite.

Bonne année à toi et à toute ta famille

Papy Pierrot en Belgique

Le 03/01/2013 à 17:07

Cher Francky,

J'ai testé ta solution et cela marche à merveille, il me reste à adapter ce petit programme à ma grosse Base de Données.

Encore un tout gros merci et bonne année 2013

Papy Pierrot