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 :

UserForm et image


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Homme Profil pro
    gestionnaire de projet
    Inscrit en
    Février 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : gestionnaire de projet

    Informations forums :
    Inscription : Février 2017
    Messages : 4
    Par défaut UserForm et image
    Bonjour à tous,

    Après de nombreuses recherches je me résous à solliciter votre aide...

    En effet, je développe actuellement dans le cadre de mon travail un petit programme pour une gestion informatique de différents événements

    Pour ce faire, j'ai réalisé un UserForm où l'utilisateur y remplira différent champs et y insérer une ou plusieurs images, avant que ces infos soit envoyés sur une feuille dans l'attende d'être traitées.

    Je rencontre actuellement deux problèmes :

    1 - Pour l'insertion de l'image sur le UserForm

    A l'appui sur un bouton, l'explorateur de fichier s'ouvre, je sélectionne mon image pour l’insérer dans un cadre image.

    Hors actuellement, l'explorateur s'ouvre, je sélectionne mon image, et je valide, alors l'explorateur se ré-ouvre, je suis obligé de sélectionne à nouveaux mon image pour qu'elle soit enfin insérée.

    Voici le code utilisé:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
        If Application.GetOpenFilename = False Then Exit Sub
        On Error GoTo ERR_001
        Image14.Picture = LoadPicture(Application.GetOpenFilename)
        Exit Sub
     
    ERR_001:
      MsgBox "le fichier n'est sans doute pas une image ?"
      Image14.Picture = LoadPicture("")
      Application.GetOpenFilename = False
      Resume Next
    2 - J'aimerai ensuite, lors de l'appui sur un bouton, que mes données soit enregistrées dans une base de données.
    Aucun problème avec les données texte, par contre impossible d'envoyer les images vers cette base.
    J'ai essayé de nombreux code trouvés ici et là mais rien n'y fait...
    Jusqu’à présent deux résultats, il ne se passe rien ou bien c'est une série de chiffres qui sont collée à l'endroit voulu.

    Je débute tout juste dans le VBA, ce programme est un défi pour moi et me tiens à cœur, je prendrais donc tout conseil avec grand plaisir.
    Je tiens également à comprendre ce que j’insère dans mon code, n’hésitez donc pas à m’assommer d'explication

    Merci d'avance pour votre aide
    Je joindrai au besoin mon fichier de travail.

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour

    J'aurais à ta place le réflexe immédiat de ne mettre que ceci au clic d'un bouton :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.GetOpenFilename = False
    en oubliant et supprimant, donc, toutes les autres lignes de mon code.
    Fais-le, s'il te plait. Cela t'ouvrira un peu les yeux.

  3. #3
    Candidat au Club
    Homme Profil pro
    gestionnaire de projet
    Inscrit en
    Février 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : gestionnaire de projet

    Informations forums :
    Inscription : Février 2017
    Messages : 4
    Par défaut
    Merci pour ta réponse,

    En effet, j'appelais deux fois GetOpenFilename

    Mes divers essais entraînent de nouvelles erreur d'exécution, j'ai donc changé de stratégie et est remplacé le code par celui ci:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    On Error Resume Next
     
    Image14.Picture = LoadPicture(Application.GetOpenFilename)
    If Image8.Picture = flase Then MsgBox "Insérer une fichier valide"
     
    On Error GoTo 0
    Pourrais tu m'en dire tout de même plus que je puisse comprendre ce qui cloche?

  4. #4
    Expert éminent
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Par défaut

    Bonjour !

    Faute d'orthographe en ligne n°4 ‼     Avant MsgBox et après Picture

    _________________________________________________________________________________________________________
    Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

  5. #5
    Candidat au Club
    Homme Profil pro
    gestionnaire de projet
    Inscrit en
    Février 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : gestionnaire de projet

    Informations forums :
    Inscription : Février 2017
    Messages : 4
    Par défaut
    hum faute de frappe à la recopie...

  6. #6
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Pourrais tu m'en dire tout de même plus que je puisse comprendre ce qui cloche?
    Volontiers.
    Ouvre ton aide VBA à la rubrique Picture, propriété
    Et dis-nous ou tu as vu qu'elle pouvait recevoir une booléenne comme valeur ?
    (tu dois l'avoir vu, n'est-ce-pas, puisque tu l'écris dans ton code sans sourciller ...)
    Reviens ensuite de manière plus appliquée, s'il te plait.

  7. #7
    Candidat au Club
    Homme Profil pro
    gestionnaire de projet
    Inscrit en
    Février 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : gestionnaire de projet

    Informations forums :
    Inscription : Février 2017
    Messages : 4
    Par défaut
    Et sinon, plutôt que de me prendre de haut, toi ô Grand expert du VBA, si tu n'a pas envie de me venir en aide ne perd pas de temps à me répondre.

    Je suis là justement pour corriger mes erreurs, et au passage pour apprendre et comprendre les choses.

    Comme je l'ai dis, je ne veux pas recopier bêtement des codes piquer à droite, à gauche, sans rien n'y comprendre.

    D'où ma venue ici, visiblement je me suis trompé d'endroit.

  8. #8
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    ne perd pas de temps à me répondre.
    Voilà qui est dit clairement et donc entendu non moins clairement.

  9. #9
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    hum faute de frappe à la recopie...
    Juste pour info, le Copier/Coller fonctionne parfaitement entre le code VBA et ce forum
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

Discussions similaires

  1. [XL-2007] Problème Userform et image
    Par Julien91080 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 10/03/2014, 09h20
  2. [XL-2013] Sauvegarder Userform en image
    Par oieretxe dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 11/01/2014, 12h02
  3. [XL-2010] Userform : Afficher Image en fonction d'une liste Déroulante
    Par morpheus54400 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 30/04/2013, 14h34
  4. [XL-2003] Userform - Copier l'userform en image
    Par apnw7931 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 09/03/2011, 16h45
  5. [VBa-E] Object Ole "image bitmap" dans une Userform?
    Par gootsu dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 10/07/2006, 14h24

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