Créer des carte identité scolaire

merci de m’aider

je veux créer des carte identité scolaire

comment insérer une image dans une forme automatique sur cellule?

Bonjour,

Un code à adapter à ton programme

Private Sub TbPrénom_Change()
Dim Répertoire As String
  ' les photos doivent être au format jpg
  Répertoire = "D:\Excel\Ecole\Photos"
 ' Répertoire = ThisWorkbook.Path                 ' Pour mes essais
  If Dir(Répertoire & "\" & Me.TbNom& ".jpg") <> "" Then
    Me.Image1.Picture = LoadPicture(Répertoire & "\" & Me.TbPrénom & ".jpg")
  Else
    ' Chat remplace les photos absentes
    Me.Image1.Picture = LoadPicture(Répertoire & "\" & "Chat.jpg")

  End If
End Sub

amicalement

Pierrot

MERCI POUR L'AIDE

JE SUIS DÉBUTANT SUR EXCEL

je n'ai pas bien compris ce que vous voulez dire

comment faire pour attribuer votre code sur excel

Bonjour à tous,

Pour de type de besoin, il ne me semble pas utile de passer par du Vba.

En effet un simple publipostage entre une liste sur Excel et un doc Word suffit.

Ici ma méthode pour faire un publipostage de ce type => http://tatiak.canalblog.com/archives/2007/02/13/3995398.html

Pierre

Bonjour,

je passe par un formulaire UserForm

voir l'image ci-dessous

la photo change à chaque changement de prénom

je peux vous créer un formulaire identique, si cela vous convient

chaque formulaire peut être imprimer

Pierrot