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

Résolu
nouhaaa1995 Messages postés 79 Statut Membre -  
yg_be Messages postés 23437 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..




2 réponses

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

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