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 :

importer des image dans des label


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
    Étudiant
    Inscrit en
    Décembre 2010
    Messages
    229
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2010
    Messages : 229
    Par défaut importer des image dans des label
    Bonjour a tous,

    J'ai un dossier avec 251 images... Et une feuille ou chacun des noms des images est inscrit...
    Sur un UserForm j'ai des Label qui se nomment de Label1 à Label251

    J'aimerai mettre chacune des images dans les Labels...

    J'ai déjà ce code.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Sub importer()
     
    Dim i As Integer
     
    For i = 1 To 251
     
    UserForm1.Controls("Label" & i).Picture = LoadPicture(ActiveWorkbook.Path & "\images\" & Cells(i, 2) & ".jpg")
     
    Next i
     
    End Sub
    Le module s'execute mais n'importe pas les image dans les Label

    Merci de m'aider
    Cdt
    DoDo
    Je ne trouve pas pourquoi

  2. #2
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonjour,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ...ActiveWorkbook.Path & "\images\" & Cells(i, 2) & ".jpg"
    image est un dossier ?, dans ce cas, verifies que tu as bien un dossier 'images" en sous-répertoire dans "ActiveWorkbook.Path"
    Vérifies également l'adresse de Cells(i, 2)
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  3. #3
    Membre éclairé
    Profil pro
    Étudiant
    Inscrit en
    Décembre 2010
    Messages
    229
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2010
    Messages : 229
    Par défaut
    Salut case fayere,
    Non , l'image n'est pas un dossier, mais la "cells(i,2) représente le nom du l'image à importer.

    J'ai mon fichier Excel qui se trouve dans
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    I:\autre\VBA\images
    Et lorsque je lance la macro en mode pas a pas les dossier ou se situe les fichier image à importer sont les bons.

  4. #4
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Bonjour
    Essaies d'indiquer la feuille à laquelle les noms des images sont écrites. Par exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub importer()
    Dim Chemin As String, Img As String
    Dim i As Integer
     
    With ThisWorkbook
        Chemin = .Path & "\images\"
        For i = 1 To 251
            Img = Chemin & .Worksheets("Feuil1").Cells(i, 2).Value & ".jpg"    'adapte le nom de la feuille
            UserForm1.Controls("Label" & i).Picture = LoadPicture(Img)
        Next i
    End With
    End Sub

  5. #5
    Membre éclairé
    Profil pro
    Étudiant
    Inscrit en
    Décembre 2010
    Messages
    229
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2010
    Messages : 229
    Par défaut
    ca ne marche toujours pas :s

    je n'arrive vraiment pas à comprendre d'ou vient le problème :s

    les données qu'il est censé me ramener son bonne

    C'est juste qu'il n'arrive pas à importer dans le label, et je ne comprend pas :'(

  6. #6
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Comment tu lance la procédure importer?

Discussions similaires

  1. Imprimer des images dans des sous-dossier
    Par logan139 dans le forum Imagerie
    Réponses: 0
    Dernier message: 18/03/2009, 11h07
  2. Réponses: 2
    Dernier message: 04/06/2008, 14h51
  3. Afficher des images avec des espaces dans le nom
    Par Space Cowboy dans le forum Balisage (X)HTML et validation W3C
    Réponses: 3
    Dernier message: 15/03/2007, 07h18
  4. Réponses: 11
    Dernier message: 09/06/2006, 15h44
  5. Insertion des boutons et des images dans une JTable
    Par anouar dans le forum Composants
    Réponses: 2
    Dernier message: 17/11/2005, 20h23

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