Insérer photo avec une macro

Résolu
DJFIFI14 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
DJFIFI14 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je voudrai créer une base de données sous excel, mais dès le début je suis bloqué.
J’ai un dossier sur mon PC avec des photos de vêtements et je voudrai créer une macro dans Excel pour insérer une photo que je choisi dans l’explorateur windows (comme la fonction insérer photo d’ Excel) choisir une photo ouvrir une boite de dialogue (UserForm) avec la photo dans cette boite et sur la feuille Excel avec la photo redimensionnée.
Là où je bloque dans la macro c’est d’ouvrir l’explorateur (Insérer une image d’Excel) (voir photo joint)
et ensuite je vais sûrement être bloqué de nouveau, c’est quand je vais cliquer sur le bouton insérer comment faire une pause dans la macro, attendre que je clique sur le bouton Insérer de l’explorateur pour continuer la macro.
Je vous remercie d’avance.
Voir exemple de la base de données.



A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

voir ce site avec beaucoup d'exemples:


http://boisgontierjacques.free.fr/pages_site/lesimages.htm#ImportImages

1
DJFIFI14 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Merci de ton aide, je regarde ça toute suite.

Cordialement.
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Je t'ai fait un exemple avec 4 champs, je te laisse faire le reste pour que tu comprennes bien la marche à suivre. Ce n'est pas très compliqué, il suffit d'avoir un peu de logique et d'attention:

https://www.cjoint.com/c/HHCmLJrFTrQ

@+ Le Pivert
0
DJFIFI14 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Grand merci de ton fichier qui fonctionne à merveille.
Il me reste plus à éplucher tes lignes de commandes.

Cordialement.
0