Photo d'identité

Salut à tout le forum,

dans mon projet que je vous présente, je souhaiterais insérer des photos d'identité qui resteront dans une base de données qui me permettra de les récupérer pour pouvoir les imprimer. Seulement je ne connais pas de codes.

Merci de m'aider

Bonjour,

A tester, colle ces deux codes dans la feuille de ton classeur

Sub test()
Dim zz As String, g As String, xx As String
Dim myPicture As Object
Dim d As Byte

On Error GoTo 1
Application.DisplayAlerts = False
aa = Application.GetOpenFilename

zz = Dir(aa)
d = Len(zz)

Do Until g = "."
    g = Mid(zz, d, 1)
    d = d - 1
Loop

xx = Left(zz, Len(zz) - (Len(zz) - d))
Range("B2") = xx

Set myPicture = ActiveSheet.Pictures.Insert(aa)

With myPicture.ShapeRange
    .Left = Range("B3").Left
    .Top = Range("B3").Top
   ' .Height = Range("H3:H11").Height
   '.Width = Range("B3:C3").Width
End With
Application.DisplayAlerts = True
End
1 MsgBox "Le fichier sélectionné n'est pas une image.": On Error GoTo 0: Application.DisplayAlerts = True: Exit Sub
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 And Not Intersect(Target, Range("B2:B20")) Is Nothing Then test
Cancel = True
End Sub

Amicalement

Pierrot

Re

Ton fichier avec les codes

Salut Cappe Pierre

le code marche lorsque je suis sur la feuille excel mais pas de réaction dans mon userform, sauf erreur de ma part.

Merci

Bonjour,

Il faut affecter la macro a ton bouton dans l'UserForm

Pierrot

Salut,

j'ai affecté la macro à un bouton dans l'userform, mais la photo n'affiche pas sur l'userform mais dans la feuille excel.

Merci.

Je viens de poser la question sur ce forum, j'attends une réponse

Pierrot

Bonjour à toi,

je viens de recevoir une réponse positive de mon ami Banzai64

le tout fonctionne parfaitement à condition d'indiquer le bon répertoire des photos dans le code du bouton "Insérer une image" dans l'UserForm Cadre

si tu le souhaites, donnes-moi le chemin du répertoire de tes photos et je le mettrai dans le code p.e. C:\Mes images.Jpg

Amicalement

Pierrot

Salut,

Voici mon repertoire :

C:\Users\SESP\Pictures

Merci

Voila le fichier mis à jour, j'ai installé ton répertoire dans le C:\

Amicalement

Pierrot

Salut Monsieur Pierro,

extraordinaire, en plein dans le mil. Merci pour ton code qui est parfait pour mon projet.

Très respectueusement.

Bonjour, mon ami,

c'est avec plaisir que j'ai pu t'aider, c'est aussi grâce à l'aide de Banzai 64,que je remercie encore ici

Bonne journée et n'oublie pas de marquer "Résolu"dans ta feuille de départ, je n'avais pas vu que c'était déjà résolu.

Amicalement

Pierrot