XL 2016 Ajouter une photo dans mes enregistrements

[pat12]

Bonjour,
Je suis en train de réalisé une base de donnée qui utilise une Userform pour enregistrer les données dans une feuille et cela fonctionne mais,
je n'arrive pas réalisé une fonction pour ajouter une photo.
(j'ai réalisé un zone de texte pour l'emplacement photo dans l'UserForme)
Je joint ma basse pour plus de facilité dans la compréhension.
Merci🙂

 

[pat12]

Bonjour,
Quelqu'un pour m'aider ?🙄
Merci.

 

[Dranreb]

Bonjour.
Il faut enregistrer dans la base le com complet du fichier image.
Alors vous pourrez faire IPhoto.Picture = LoadPicture(LaRéférenceFichierRetrouvéeDansLaBase)
Pourquoi y a-t-il des "Ž" dans votre code à la place des "é" ?

 

[job75]

Bonjour pat12, Bernard,

Il y a de nombreux exemples sur le forum.

Voyez le fichier joint et cette macro dans le code de l'UserForm :

Private Sub UserForm_Initialize()
Dim fichier$, s As Shape
fichier = ThisWorkbook.Path & "\MonImage.gif"
'---création du fichier image gif---
Application.ScreenUpdating = False
Set s = Sheets("accueil").Shapes("Image 3")
s.CopyPicture xlScreen, xlBitmap
With s.Parent.ChartObjects.Add(0, 0, s.Width, s.Height).Chart
    While .Shapes.Count = 0 'en attente du collage
        DoEvents
        .Paste
    Wend
    .Export fichier, "GIF"
    .Parent.Delete 'supprime le graphique temporaire
End With
Application.ScreenUpdating = True
'---chargement de l'image---
Iphoto.PictureSizeMode = fmPictureSizeModeClip 'fmPictureSizeModeStretch
Iphoto.Picture = LoadPicture(fichier)
Kill fichier 'suppression du fichier image
End Sub

A+

 

[Dranreb]

Sinon, si vous préférez que vos images (pas trop nombreuses) soient enregistrées dans votre classeur, enregistrer les sous formes d'images ActiveX et non de formulaire. IPhoto.Picture = OLEObjects("SonNomDansLaFeuille").Object.Picture ça marche aussi, j'ai testé.
Remarque: faire un Me.Repaint derrière sinon ça ne semble pas marcher :

Private Sub Iphoto_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Iphoto.Picture = Feuil1.OLEObjects("Image1").Object.Picture
   Me.Repaint
   End Sub

Le contrôle Image fait partie de ceux pris en charge par mon objet ControlsAssociés, lui même conçu pour compléter le travail de mon objet ComboBoxLiées. Sa valeur est la référence du fichier, et, à l'utilisation, en cliquant sur l'image un GetOpenFileName est exécuté pour la changer.

 

[pat12]

Merci pour vos réponses
Je me suis mal exprimé, je voudrais joindre une photo à mes enregistrements

 

[Dranreb]

Tant pis.

 

[job75]

Je me suis mal exprimé, je voudrais joindre une photo à mes enregistrements

Et vous continuez à très mal vous exprimer, quelle photo, quels enregistrements ? Situés où ?

A fonctionner comme ça ne vous étonnez pas si on vous laisse tomber.

 

[pat12]

Oui désolé c'est exact
Sur le nouveau fichier joint c'est plus compréhensible à chaque nouveau enregistrement
je souhaite enregistrer une photo dans la bdd-armoire , dans la colonne photo
merci

 

[job75]

Et on les pêche où les photos ??? Pour moi ça suffit, je laisse tomber.

Bonne nuit.

 

[pat12]

Mais n'importe quelle photo !!!
Pas grave bonne nuit

 

[BOISGONTIER]

Bonjour,

Ajout,sup,modif

Boisgontier

 

[netparty]

Bonjour à tous

Cool votre fichier

Pour mon info, quand on a choisi la photo et enregistrer est-il possible dans la BD d'avoir l'aperçu de l'image

Bonne journée

 

[job75]

quand on a choisi la photo et enregistrer est-il possible dans la BD d'avoir l'aperçu de l'image

Pour pouvoir afficher l'image il suffit de créer un lien hypertexte :

Private Sub B_valid_Click()
'-----
  Range(nomtableau).Item(enreg, 9) = Me.Photo: ActiveSheet.Hyperlinks.Add Range(nomtableau).Item(enreg, 9), Me.Photo
'-----
End Sub

 

[netparty]

Merci job75

et est-il possible de la redimensionner a la taille de la cellule

bonne journée