Problème de stockage d'une image sur excel à parti

Résolu/Fermé

nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018 - 17 avril 2018 à 13:29
yg_be Messages postés 23337 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 - 28 avril 2018 à 13:29

Bonjour,
je demande votre aide, mon probéme c'est que je n'arrive pas a stocker l'image importé à partir de mon userform à une cellule d'excel..
je vous remercie de m'aider..

A voir également:

Problème de stockage d'une image sur excel à parti
Liste déroulante excel - Guide
Calculer une moyenne sur excel - Guide
Comment aller à la ligne sur excel - Guide
Espace de stockage gmail plein - Guide
Déplacer une colonne excel - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié le 17 avril 2018 à 14:07

Bonjour,
Impossible de "stocker" une image dans une cellule, li faut passer par une Shape
ce code devrait vous aider

Sub Insert_img()
    ActiveSheet.Pictures.Insert("Chemin et nom du fichier image").Select
    With Selection.ShapeRange
        .Left = ActiveCell.Left
        .Top = ActiveCell.Top
    End With
End Sub

yg_be Messages postés 23337 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 1 551
25 avril 2018 à 00:28

bonsoir, as-tu pu appliquer ceci?

nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
25 avril 2018 à 19:11

le chemin n'est pas précis, image= applicatin.GetFileName
et la cellule est aussi précise

yg_be Messages postés 23337 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 1 551 > nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
25 avril 2018 à 19:37

exemple avec une image non précisée et une cellule précisée:

Option Explicit

Sub insertimage()
Dim pct As Picture, image As String
image = Application.GetOpenFilename()
Set pct = ActiveSheet.Pictures.Insert(image)
pct.ShapeRange.Left = Cells(8, 8).Left
pct.ShapeRange.Top = Cells(8, 8).Top
pct.ShapeRange.Width = Cells(8, 8).Width
pct.ShapeRange.Height = Cells(8, 8).Height
End Sub

nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
25 avril 2018 à 19:53

j'ai essayé ceci mais il donne un erreur

l'erreur est-elle secrète? ou bien l'as-tu corrigée?

Réponse 2 / 2

yg_be Messages postés 23337 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 Ambassadeur 1 551
26 avril 2018 à 17:23

peux-tu expliquer ton contexte, pour que nous puissions mieux t'aider? qui a écris le code que tu utilises? pourquoi veux-tu le modifier? quelle est ton expérience en VBA?

nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
Modifié le 26 avril 2018 à 17:28

en fait je suis débutante sur vba
c'est la première fois que je l'utilise, l'idée de l'interface est la mienne, le programme que j'utilise c'est moi qui la fait .

nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
Modifié le 26 avril 2018 à 17:32

j'ai un classeur à remplir avec des données, et pour automatiser cette opération j'ai crée un userform, parmi ces données il y a des images qui doivent être importé de l'ordi
et l'enregistrement de tous ces données doit être chargées sur une même ligne.

c'est pour cela l'enegistrement de ces données s'effectue par un command button pour éviter le décalage

nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
27 avril 2018 à 12:25

c'est résolu je dois déclarer dans module1

public image as variant

super! peux-tu marquer comme résolu, via la roue dentée à droite du titre?

Discussions similaires

Dechiffrer une image caché