Ajouter une photo avec mon enregistrement

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'UserForm)

Je joint ma basse pour plus de facilité dans la compréhension.

Merci

Bonjour,

Quelqu'un pour m'aider !

Merci.

Bonjour,

Exemple en PJ

Boisgontier

Bonjour Patb12,

Ci-joint le fichier avec des notes. Voir la feuille Photos afin de respecter le principe d'accès par le contrôle Image à une photo ou image d'un répertoire.

Note: Le formulaire n'étant réalisé que pour l'enregistrement la photo ne peut être que par défaut.

Si souhait d'une sauvegarde de photo couplée à des enregistrements spécifiques. C'est une autre méthode à réaliser.

Bonne continuation.

Bondsoir X Cellus

Merci pour ta réponse,

j'espère avoir bien compris ta réponse mais la photo qui serra enregistrer est une photo d'armoire, et le fichier ne comporte aucune données personnelles mais que des informations techniques.

Cordialement,

Merci Boisgontierjacques,

Je vais regarder l' exemple,

Boisgontierjacques a écrit :

Bonjour,

Exemple en PJ

Boisgontier

Oui je souhaite réaliser une basse de données comme l'exemple que tu as envoyé Boisgontierjacques

Je joint un exemple ou j'ai commencé à le faire, avec des photo plus grande et des informations différentes

Tous les champs de mon UserForm s' enregistre bien dans ma base bdd_armoire sauf celui justement de la photo.

Ensuite il ne me restera plus qu'a faire des boutons pour naviguer dans mes enregistrement.

Merci.

Bonjour,

Ajout, Sup, Modif

Boisgontier

Merci

Boisgontier

Dans mon exemple javais réalisés des listes dans la feuille "liste_armoire"

Peux t'on remplacer 2 TextBox par 2 ComboBox pour ( Emplacement, Alimentation )

Merci.

Bonsoir,

cf PJ

Private Sub UserForm_Initialize()
  nomtableau = "armoire"
  Me.enreg = Range(nomtableau).Rows.Count + 1
  Me.Numéro = Application.Max(Range(nomtableau).Columns(1)) + 1
  Tbl = Range(nomtableau).Value
  'Tri Tbl, LBound(Tbl), UBound(Tbl), 2
  Me.Recherche.List = Tbl
  Me.prise.List = Array("Oui", "Non")
  Me.Emplacement.List = [TEmplacementArmoire].Value
  Me.alimentation.List = [TAlimentationArmoire].Value
End Sub

Boisgontier

Merci beaucoup Boisgontierjacques

je teste le formulaire demain

Bonne soirée

Bonjour Boisgontierjacques , patb12 et le forum,

Étant électricien

une petite contribution en PJ(Situation)

A+ Ferdinand