IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Mettre des images dans une listeview ( récupération depuis Outlook ) [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Novembre 2009
    Messages
    390
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2009
    Messages : 390
    Par défaut Mettre des images dans une listeview ( récupération depuis Outlook )
    Bonsoir à tous,

    Je me lance dans les listeview, je suis arrivé à remplir comme je le fessais avec les listbox.
    Si j'ai choisi d'utiliser une listeview c'est que je souhaiterais inclure un icone dans la première colonne de chaque lignes.

    J'ai donc regardé les tutos disponibles dans le forum mais je rencontre des problèmes !
    Les images n'apparaissent pas !
    En pas à pas elle apparaissent mais une fois le code exécuté elles n'y sont pas, du moins non visibles !
    J'ai beau regarder et comparer je ne trouve pas mon erreur , si trouvez mon erreur je vous en remercie par avance
    J'ai bien sur crée une listeimage1 dans l'userform !
    Voici mon code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    Sub test()
      Set olApp = CreateObject("Outlook.Application")
      Set olns = olApp.GetNamespace("MAPI")
      Set olxFolder = olns.GetDefaultFolder(6)
    On Error Resume Next
     With ListView1
    ImageList1.ListImages.Clear
     
                  ImageList1.ImageHeight = 16 'Hauteur
                   ImageList1.ImageWidth = 16 'Largeur
    rep = ThisWorkbook.Path
    c = "mail1"
    ImageList1.ListImages.Add , "Img", LoadPicture(rep & "\" & c & ".JPG")
     
        Set ListView1.SmallIcons = ImageList1
        Set ListView1.Icons = ImageList1
     
    ListView1.CheckBoxes = True
     
    With .ColumnHeaders
                .Clear
                .Add , , "Sujet", 150
                .Add , , "Corps", 100
                .Add , , "Expéditeur", 90
                .Add , , "Date", 60
                .Add , , "Fichier", 90
            End With
    End With
     
    n = 1
    For Each i In olxFolder.Items
     
     
     ListView1.ListItems.Add , , i.Subject, "Img"
     
     ListView1.ListItems(n).ListSubItems.Add , , i.Body
     If i.SenderName = "" Then
     a = "xxx@xxx.fr"
     Else
     a = i.SenderName
     End If
     ListView1.ListItems(n).ListSubItems.Add , , a
     ListView1.ListItems(n).ListSubItems.Add , , i.CreationTime
     'ListView1.ListItems(n).ListSubItems.Add , , i.attachement
     
      n = n + 1
      Next i
     
    ListView1.View = lvwReport
     
    End Sub
    Bonne soirée à tous

  2. #2
    Membre éclairé
    Profil pro
    Inscrit en
    Novembre 2009
    Messages
    390
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2009
    Messages : 390
    Par défaut
    j'ai trouvé, j'ai modifié mon code en déplaçant mon premier item dans la deuxième colonne et non sur la création de la nouvelle ligne et la sa marche !
    Merci à tous

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 6
    Dernier message: 15/03/2016, 21h50
  2. Mettre des images dans une base de donnée
    Par hugo7 dans le forum ASP.NET
    Réponses: 4
    Dernier message: 21/01/2009, 18h46
  3. Mettre des images dans une liste déroulante
    Par PrinceMaster77 dans le forum Balisage (X)HTML et validation W3C
    Réponses: 1
    Dernier message: 01/12/2006, 15h35
  4. Mettre des images dans une base
    Par ecarbill dans le forum Access
    Réponses: 4
    Dernier message: 22/08/2006, 15h59
  5. [Debutant] Mettre des images dans une Toolbar
    Par Beleim dans le forum Windows
    Réponses: 11
    Dernier message: 02/03/2006, 23h31

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo