XL 2013 Copier une image depuis Userform pour insertion dans cellule

[F_Lyaa]

Bonjour,

Après quelques recherches, je ne trouve toujours pas de solution.
J'ai un formulaire contenant une image.
J'aimerai copier/coller cette image dans une cellule d'une feuille.

Si quelqu'un peut me donner quelques idées !

Merci par avance

 

[patricktoulon]

bonjour
un exemple de base
methode1

chemin = Environ("userprofile") & "\DeskTop\imgtemp.jpg"
With UserForm1.Image1
SavePicture .Picture, chemin
Set pict = Sheets(1).Pictures.Insert(chemin)
pict.Width = .Width
pict.Top = Cells(2, 3).Top
pict.Left = Cells(2, 3).Left
End With
killchemin

methode2

 chemin = Environ("userprofile") & "\DeskTop\imgtemp.jpg"
    SavePicture UserForm1.Image1.Picture, chemin
    With Sheets(1)
        .Shapes.AddPicture chemin, False, True, Cells(2, 3).Left, Cells(2, 3).Left, UserForm1.Image1.Width, UserForm1.Image1.Height
    End With
kill chemin

 

[F_Lyaa]

Bonjour patricktoulon,
Merci pour l'aide apportée, j'ai testé la méthode 2 et elle fonctionne.
Toutefois, j'ai un petit problème, je voudrais coller la photo dans la cellule B5.
Je pense qu'il faut que je modifie la partie "Cells(2, 3).Left, Cells(2, 3).Left"

 

[patricktoulon]

bonjour
oui c'est ça ,t'a tout compris ça sera donc(2,5) ou (2,"B") ou range("B5") comme tu veux

 

[F_Lyaa]

Bonsoir
Merci bcp tout fonctionne

 

[F_Lyaa]

J'ai une question, en fait j'ai plusieurs Images sur mon userform, que je sauvegarde dans des dossiers via la méthode expliquée.
J'aimerai ajouter une condition du type si image inexistante dans dossier alors ne rien ajouter dans cellule.. si vous pouviez m'aiguiller

Merci par avance !

 

[patricktoulon]

re
bonjour
une image est une image son nom n'est que pour son acces
pour aller plus loin il va me falloir un fichier avec le code que tu utilise
je n'est pas de boule christal 😉

 

[herve62]

Bonjour , Lyaa, Salut Patrick
Comme cela a été mon "dada" il y a qq années j'ai gardé pas mal d'exemples ci joint un parmi ......
Je pige pas : "Si inexistante " ???? c'est toi qui choisi l'image non ??
Là tu cliques en col A > Usf ... importer l'image > VALIDATION
Dans ce fichier je teste la dernière ligne et je recopie les données , la cellule est redimensionnée selon la taille de l'image
Donc maintenant ..... charge à toi de retirer la partie de code juste pour ta recopie d'image
Au début j'avais le fichier juste avec les données du copain et je lui ai inséré la partie image et qq autres améliorations

 

[patricktoulon]

J'ai une question, en fait j'ai plusieurs Images sur mon userform, que je sauvegarde dans des dossiers via la méthode expliquée.
J'aimerai ajouter une condition du type si image inexistante dans dossier alors ne rien ajouter dans cellule.. si vous pouviez m'aiguiller

Merci par avance !

J'ai une question, en fait j'ai plusieurs Images sur mon userform, que je sauvegarde dans des dossiers via la méthode expliquée.
J'aimerai ajouter une condition du type si image inexistante dans dossier alors ne rien ajouter dans cellule.. si vous pouviez m'aiguiller

Merci par avance !

ça n'a même pas de sens ce que tu dis 🙄 😛 😉 🙄
je rappelle le titre de ta question

Copier une image depuis Userform pour insertion dans cellule

le reste n'a rien a voir avec cette discussion

 

[F_Lyaa]

ça n'a même pas de sens ce que tu dis 🙄 😛 😉 🙄
je rappelle le titre de ta question

le reste n'a rien a voir avec cette discussion

Effectivement la question n'a rien à voir avec le post.
Merci

 

[herve62]

J'ai un formulaire contenant une image.
J'aimerai copier/coller cette image dans une cellule d'une feuille.

Alors et mon fichier en rapport au #9 ??

Copier une image depuis Userform pour insertion dans cellule

c'est pile poil la solution !!! ; n'est ce pas Patrick ?? ; sinon je quitte aussi et débrouille toi ailleurs
Je pense que les "Nouveau" du forum n'ont plus le sens de nos valeurs et que comme tout on va se faire "bouffer" désolé des termes mais c'est la réalité absolue

 

[patricktoulon]

bonsoir @hervé62
je peux pas te dire ton projet est protégé par mot de passe
donc je ferme et je jette
re livre le sans mot de passe et on verra

 

[herve62]

Bonjour
Bizarre je ne mets JAMAIS de mot de passe donc je ne le connais pas non plus ??? , chez moi j'avais repris le fichier d'origine et j'avais juste effacé des données , renommé et joins : pas de Mdp !!
Je refais la même chose , j'ai ouvert VBe pas de Mdp !!; je comprends pas !!!
En + ce n'était que pour le code !!!! donc fichier testable quand même

 

[patricktoulon]

bonjour @herve62
ok recu je pige pas grand chose au premier regard
ou est la partie userform.activeX image.picture TO activesheet.picture ????????

 

[herve62]

Moi je te comprends pas non plus ??

ou est la partie userform.activeX image.picture TO activesheet.picture ????????

?????
Je reprends l'image de l'usf , je l'ajuste et colle dans la col B en dernière ligne

J'ai un formulaire contenant une image.
J'aimerai copier/coller cette image dans une cellule d'une feuille.

Et donc en bon français j'ai répondu à la question du demandeur : un Usf est un formulaire , j'ai une image , et je la colle bien dans une cellule . Après notre gars adapte comme il veut !!!