UserForm + Image

[captainejack]

Aide code VBA UserForm + Image

Bonjour le forum
Pouvez vous m'aider à trouver le code pour enregistrer les photos sur ma base de donnée? J'ai trouver le code pour rechercher les photos sur le disque dur, mais je n'arrive pas à les enregistrer sur la base de donnée par l'intermédiare de l'USF
Peut on définir la taille de l'image, car les photos sont toutes en *.jpg ?
En vous remerciant de votre aide
Cordialement
Dan
Personne a une petite idée pour enregistrer des images dans une base de donnée par l'intermédiaire d'USF?
Merci pour votre aide
Slts

 

[captainejack]

Re : UserForm + Image

Personne a une idée?😕

 

[captainejack]

Re : UserForm + Image

Après une journée de recherche , je baisse les bras......

 

[néné06]

Re : UserForm + Image

Salut captainejack
voici deux prog qui te mettrons sur la voie je l'espére
je l'envoie en deux réponses
cordialement
A+

 

[néné06]

Re : UserForm + Image

dossier 2

le tout à étudier

A+

 

[néné06]

Re : UserForm + Image

désolé j'avais oublier le dossuer des photos
le voici
A+

 

[captainejack]

Re : UserForm + Image

Bonjour néné06 et le Forum
Merci pour les fichiers que j'étudirai
Le soucis que j'ai , c'est l'enregistrement de la photo dans la base de donnée et c'est l que je bloque car j'arrive pas à trouver le code
En te remerciant

 

[mutzik]

Re : UserForm + Image

bonjour,

qu'appelles-tu enregistrer la photo dans la base de données : tu veux placer les photos jpg dans la feuille de calcul
Si c'est cela, je te le déconseille fortement si tu as beaucoup d'images, ton fichier va grossir et sera très long au chargement, alors que cela n'apporte rien en terme de vitesse d'execution, une simple ouverture de fichier image comme tu l'as fait fonctionne très bien.
Ce qu'il serait plus judicieux de faire, c'est de mettre le nom et l'emplacement de l'image dans ta base de données

 

[captainejack]

Re : UserForm + Image

Bonjour Bertrand
Merci pour ta réponse
Et serait il possible, quand je consulte la fiche de l'article, la photo de l'article s'affiche dans l'USF seulement, car là quand je reviens sur mes articles avec le spinButton, la photo ne s'affiche pas dans l'USF?Et comment mettre juste le" lien" de la photo dans la base de donnée?
Je débute seulement en VBA, et toute les infos je lei pêche un peu à droite et à gauche
Merci pour vos réponses
Slts
Dan

 

[mutzik]

Re : UserForm + Image

re,
Photo.Picture = LoadPicture(ThisWorkbook.Path & "\photos\" & "vide.jpg")
- mon cadre ou j'insere ma photo s'appelle Photo.picture
- mes photos (de cette appli) sont situées dans le même répertoire que l'appli mais dans un sous-dossier 'photos'
- à l'initialisation du USF, je charge un cadre vide 'vide.jpg' d'ou la ligne que je t'ai mis en exemple

les autres noms des photos sont stockées dans ma feuille de calcul, quand je change d'enregistrement ( = ligne de données de ma feuille ) je récupère en colonne X le nom complet de la photo

 

[captainejack]

Re : UserForm + Image

Bjr Bertrand
Merci pour ta réponse
Excuse moi mais Je ne vois pas comment faire, où faut mettre le code et s'il faut que j'insère une autre feuille pour mettre les noms et liens des photos
Excuse moi, mais là je suis perdu...
@+
Dan

 

[néné06]

Re : UserForm + Image

Bonsoir captainejack

j'ai un peu modifié le premier prog que j'avais envoyé .
avec celui-ci, tu place dans ta liste le nom, par exemple un article en Col1 et tu recherche la photo qui t'intéresse .
elle prendra le nom que tu avais donné

Regarde si cela convient et bidouille un peu.
Pour info:
pour éviter que le prog ne gagne du poids à chaque nouvelle insertion,je place une nouvelle feuille ("Feuille temp") que j'efface après.

@+

Néné06