Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Coller une image dans une UserForm

M

Marc Vanlindt

XLDnaute Nouveau
Bonjour à tous.
Dans ma feuille excel, j'ai une image que je voudrais copier dans ma Userform1.Image1.
Comment puis-je réaliser cela en VBA ?
Merci d'avance pour vos réponses.
Marc
 

Pièces jointes

  • CollerImageUSF.xlsm
    47.4 KB · Affichages: 10
Solution
Marc Vanlindt à dit:
Désolé. J'ai sans doute mal utilisé cjoint... Mais sur tu fais un click droit sur le le nom du ficher (juste après "Document joint :", tu choisis l'option "Enregistrer la cible du lien" et il sera télécharger.
Cliquez pour agrandir...
oui j'ai vu après
mais comme j'ai bloqué certaines partie de ce menu j'ai du le remettre pour le faire
et après test ce fichier comme je te l'ai dis l'image a bien été extraite
avec mon code de base et tout mes autres méthodes fonctionnent aussi
ce code date d'il y a 7 ans il ne m'a jamais fait défaut
VB: 
Sub extract_image_In_File()
    Dim OBJstream, BB() As Byte, b As Long, bytTemp(0 To 1) As Byte, tablo, by As Byte
    Dim filetoopen As Variant
     filetoopen = Application.GetOpenFilename("jpeg Files...
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Marc, JM,
Essayez comme ceci :
VB: 
Sub InsererImage()
    FichierImage = "g:\Users\PC_PAPA\Pictures\______GIFS\Bonhomme\Im (1).jpg"   ' Chemin du fichier image
    UserForm1.Image1.Picture = LoadPicture(FichierImage)                        ' Insertion dans l'userform
    UserForm1.Show                                                              ' Affichage de l'userform.
End Sub
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
Bonsoir
tu prend mon module WMF3
et dans le userform dans le activate

VB: 
Private Sub UserForm_Activate()
Me.Image1.Picture = copyxlPicture(Feuil1.Shapes("Image 1"))
End Sub
a l'ouverture de ton userform l'image va se copier dans le userform
 

Pièces jointes

  • CollerImageUSF.xlsm
    54.9 KB · Affichages: 11
Vote positif 0 Vote négatif
M

Marc Vanlindt

XLDnaute Nouveau

Pièces jointes

  • err1.png
    4.6 KB · Affichages: 12
  • err2.png
    12.9 KB · Affichages: 12
Vote positif 0 Vote négatif
M

Marc Vanlindt

XLDnaute Nouveau
Merci Sylvanu.
Avec la fonction LoadPicture() j'ai souvent des erreur. Avec un même fichier .JPG parfois ça passe et parfois j'ai une erreur :
Erreur d'exécution '-21447467259 (80004005)':
Erreur automation
Erreur non spécifiée
Je cherche donc une autre façon de procéder.
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour tout le monde,
Marc Vanlindt à dit:
Erreur d'exécution '-21447467259 (80004005)':
Erreur automation
Erreur non spécifiée
Cliquez pour agrandir...
1- Si l'erreur est erratique il est possible que ce soit un problème de temps de chargement de l'image;
Si ce temps est trop long et si l'userform est affiché avant la fin du chargement image alors il y aura erreur.
2- Cela peut être dû aussi à une erreur de version Framework : Lien ou Lien

Pouvez vous tester cette PJ.
On charge le dossier image avec le premier bouton, puis les deux autres font soit un Slide Show soit un défilement par clic.
J'ai pris ceinture et bretelles avec de DoEvents et des attentes de 1 seconde pour laisser le système charger les images tranquillement.
J'ai testé sur mon vieux XL2007 sans jamais rencontré de soucis, mais j'ai un SSD véloce, peut être que ça résout le problème.
 

Pièces jointes

  • ImageDansUserform.xlsm
    23.2 KB · Affichages: 7
Vote positif 0 Vote négatif
M

Marc Vanlindt

XLDnaute Nouveau
Merci Sylvanu. Ton programme marche à merveille. Aucun problème.
J'ai essayé plusieurs solutions proposées dans tes liens (notamment une restauration système) mais aunce n'a marché.
Maintenant, il faut dire que l'image que je veux charger a été créée par Excel lui-même.
J'explique.
J'ai trouvé une solution en VBA pour extraire l'image enregistrée dans un fichier Mp3. Cette image est sauvegardée sur le disque. Je peux l'afficher avec la visionneuse Windows sans problème, mais c'est lorsque je veux la charger avec LoadPicture("Image") que ça coince parfois (mais pas toujours !)
En annexe, le programme test.
Bien à toi,
Marc
PS : Je viens d'essayer d'ouvrir cette image avec ton programme, il y a la même erreur. Je suppose donc que c'est l'image qui, d'une façon ou d'un autre, n'est pas correctement sauvée par excel.
Je continue de chercher...
 

Pièces jointes

  • TestImgMp3.xlsm
    38.9 KB · Affichages: 5
Dernière édition:
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
J'ai fait quelques tests et j'ai les mêmes résultats que vous.
En déroulant les macros, j'arrive à un moment dans LoadPictureFromArray à :
VB: 
Set MS = LoadPicture(TempFilePath)
TempFilePath vaut chez moi G:\TEmp\temp_image.jpg
Ce fichier existe bien et a bien l'icone d'un jpg, mais quand je veux l'ouvrir j'ai un souci quelque soit l'outil utilisé, voir les messages d'erreur des 5 visionneuses utilisées :




Photos :

Visionneuse de Windows :


Donc effectivement il semble que ce soit la construction du fichier qui ne soit pas correcte.
Mais là, je ne peux être d'aucune utilité, j'y connais rien.
 
Vote positif 0 Vote négatif
M

Marc Vanlindt

XLDnaute Nouveau

Merci d'avoir pris de ton temps pour examiner ça.
Le plus bizarre, c'est qu'il arrive qu'un fichier "correct" soit généré, qu'on peut ouvrir avec la visionneuse de Windows, mais qui provoque malgré tout une erreur lors du chargement par LoadPicture.
Je n'y comprends plus rien !!!
Mais je ne me décourage pas...
Bien à toi,
Marc
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
en fait c'est tout simple
l'image extraite du mp3 n'est pas du format compatible avec les ActivX dans userform

tu peux mettre l'extension".jpg" a un fichier tant que tu veux si c'est pas un fichier jpg ça marchera pas
les controls images dans userform acceptent :
  1. les jpg/jpeg
  2. les gif plats
  3. les Tiff
  4. les Wmf
  5. les bipmap
 
Vote positif 0 Vote négatif
M

Marc Vanlindt

XLDnaute Nouveau
Merci.
Pour info, TOUS mes mp3 ont une image au format JPG
Lors de l'extraction, parfois un fichier Jpg est généré qui fonctionne très bien mais parfois aussi, ce fichier est incorrect et ça peut arriver avec le même fichier Mp3.
Le programme que j'ai détermine l'emplacement du début des données image ainsi que sa longueur grâce à la balise APIC se trouvant dans le MP3. Ensuite, ces données sont lue byte par byte et sauvées dans une fichier JPG.
Ce sont ces fichiers JPG qui sont parfois erronément encodés, mais pas systématiquement.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2016 contrôle image
Réponses
14
Affichages
379
patricktoulon
C
  • Question
Microsoft 365 Intégrer une image au milieu d'un mail créé via Excel VBA
Réponses
14
Affichages
468
patricktoulon
  • Résolu(e)
XL 2016 problème d'image dans un contrôle image
Réponses
13
Affichages
381
chinel
S
  • Question
XL 2021 Erreur "Sub ou Fonction non définie" pour la commande [LoadPicture] VBA (RESOLU)
Réponses
5
Affichages
382
Sghaier Chafaa
S
J
  • Question
XL 2019 Image dans UserForm
Réponses
14
Affichages
729
patricktoulon
  • Question
Microsoft 365 usf : insérer une images qui fait office de bouton
Réponses
2
Affichages
306
BenHarber
S
  • Question
Microsoft 365 Extraction de données sans doublon très complexe
Réponses
14
Affichages
566
stephvico
S
J
  • Question
Microsoft 365 Enregistrer une image dans un dossier
Réponses
5
Affichages
654
job75
  • Question
Microsoft 365 Résolu : Multipage image de fond
Réponses
1
Affichages
269
Angus HEYERDAHL
J
  • Question
Microsoft 365 Excel exporter en Image JPG
Réponses
4
Affichages
588
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…