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

Résolu
nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
bonsoir, as-tu pu appliquer ceci?
0
nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
le chemin n'est pas précis, image= applicatin.GetFileName
et la cellule est aussi précise
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
j'ai essayé ceci mais il donne un erreur
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
l'erreur est-elle secrète? ou bien l'as-tu corrigée?
0
Réponse 2 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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?
0
nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
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 .
0
nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
c'est résolu je dois déclarer dans module1

public image as variant
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
super! peux-tu marquer comme résolu, via la roue dentée à droite du titre?
0

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?
Raven -
Asta972155 -

10 réponses
Dechiffrer une image caché
JACQUE -
Otomec -

1 réponse