Importer, redimensionner et enregistrer une image
ٍVoilà je progresse toujours à l'apprentissage du VBA
Aujourd'hui je suis revenu vers vous avec un nouveau problème.
J'ai créé un Userform d'ajout d'un nouveau adhérant, consiste à collecter les infos nécessaires et les ajouter à la liste des adhérents
Sauf que j'ai un problème a ce niveau
On cliquant sur Importer une photo , une fenêtre s'ouvre pour choisir la photo a partir de mon disque dur.
Apres avoir sélectionner la photo :
la photo s'affiche dans ce cadre d'image de dimensions 110,90
En suite, on appuyant sur Ajouter à la base
la photo s'enregistre dans le dossier "D:\adhérents" avec le N°d'adhérant comme nom
Example : N° d'adhérant = [ 2020ad34 ]
la photo importée s'enregistre comme ce de-suite
D:\adhérants\2020ad34.jpg
Merci pour la réponse BrunoM45
-----
Un code VBA permet d’exécuter l'instruction suivante sur la userform
Le bouton Importer une photo permet de sélectionner une photo a partir du disque dur
La photo importée s'affiche dans le cadre nommé "Ad_photo" de la Userform avec les dimensions "110" , "90"
Puis on cliquant sur Ajouter , la photos s'enregistre comme ce de suite D:\adhérants\photo.jpg
Bonjour Nadal,
Poste sur ce sujet une copie de ton fichier avec ton formulaire.
Un exemple avec une ou deux lignes de Base de Données d'adhérents anonymes. (Faux noms etc...)
En retour ton fichier sera adapté.
A suivre...
Bonjour messieurs, merci pour votre attention
Voici mon petit projet
Désolé je n'y connais rien mais vous devriez écrire Nouvel adhérent et non Nouveau adhérent.
Merci pour votre correction Nicodak, c'est très gentil de votre part
Bonsoir Nadal,
En retour ton fichier modifié. Le répertoire Adhérent pour les photos est celui ou se trouve ton fichier de travail Excel (ThisWorkbook).
Par commodité une boite de message te demandera de répondre par oui ou non lors de l'ajout photo.
Voir aussi Notes en commentaire dans le code Ajouter.
Corrige aussi dans ce dernier. Remplace matr par matricule.caption sinon tu ne l'inscriras pas en ligne sur ta feuille lors de l'ajout d'un adhérent.
Bons tests, bonne continuation.
Bonsoir X Cellus,
Vraiment vous êtes un professeur, avec vos trois points forts:
1- Le code fonctionne parfaitement
2- Vous avez compris exactement ce que je veux
3- Le plus fort c'était votre explication très retaillée, qui m'a permis de bien comprendre l'astuce ligne par ligne
Un grand merci à vous
