XL 2019 Coller une image dans une UserForm

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Solution
patricktoulon
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 à dit:
Bonjour Marc, Patrick,

J'ai eu la même approche avec ChatGPT, Bard et Aria. Les trois donnent du code ... que je ne suis pas arrivé à faire marcher. 😓
Par contre j'ai trouvé MP3Tag ( Lien ) . Petit utilitaire qui donne les tags et la pochette des MP3, et on peut charger la pochette.
... avec deux bémols bien sur 🙂 :
1- Je ne suis pas arrivé à automatiser le chargement des pochettes, seulement une par une.
2- Les fichiers générés sont en png.
Mais on peut facilement les convertir en jpg.
Au cas où ça vous intéresse ...
Cliquez pour agrandir...
Bonjour Sylvanu.
Je connais bien (et même très bien) Mp3Tag. C'est un logiciel surpuissant pour les tags et c'est avec lui que je mets à jours tous mes tags, y compris les pochettes) et j'exporte mes fichiers musicaux au format .csv pour les récupérer en Excel.
Pour les pochettes, il faut sélectionner l'ensemble des morceaux d'un même cd, coller ou charger le fichier image (click droit sur la zone image) et choisir l'option voulue.
Pour avoir le format jpg, click droit sur l'image, option "ajuster". Cela permet d'avoir réduire le volume si l'image est trop grand (et prend ainsi beaucoup de place au sein du mp3) et de choisir le format (de mémoire, c'est png, jpg ou bmp.
C'est un programme que j'utilise (presque) tous les jours.
Si tu as un besoin spécifique, n'hésite pas à me contacter.
Voici quelques liens pour des infos utiles :
docs.mp3tag.de

Scripting Functions – Mp3tag Documentation

Documentation on Mp3tag's scripting functions. Mp3tag is the universal Tag Editor.
docs.mp3tag.de docs.mp3tag.de
docs.mp3tag.de

Format Strings and Placeholders – Mp3tag Documentation

Documentation on format strings and placeholders to describe the structure of file names and imported data. Mp3tag is the universal Tag Editor.
docs.mp3tag.de docs.mp3tag.de
 
Vote positif 0 Vote négatif
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 (*.jpg;*.mp3), *.jpg;*.mp3", 1, "ouvrir une image")
    If filetoopen = False Then Exit Sub
  
    Set OBJstream = CreateObject("ADODB.Stream")    'object utilisé ADODB stream
    OBJstream.Open: OBJstream.Type = 1    ' open with no arguments makes the stream an empty container
    OBJstream.LoadFromFile (filetoopen)    'on load le fichier dans l'object
    BB = OBJstream.Read()    ' on prend directement tout le paquet
    '**************************************
    ReDim tablo(UBound(BB))
    For i = 0 To UBound(BB): tablo(i) = BB(i): Next
    code = "255,216" & Split(Split(Join(tablo, ","), "255,216")(1), "255,217")(0) & "255,217"
   Debug.Print code
   tablo = Split(code, ",")
    jpegFile = FreeFile
    Open Environ("userprofile") & "\Desktop\imagetemp.jpg" For Binary Access Write Lock Write As jpegFile
    For i = 0 To UBound(tablo)
        If IsNumeric(tablo(i)) Then by = tablo(i): Put jpegFile, , by
    Next i
    Close jpegFile
End Sub
 
Vote positif 0 Vote négatif
Solution
patricktoulon à dit:
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 (*.jpg;*.mp3), *.jpg;*.mp3", 1, "ouvrir une image")
    If filetoopen = False Then Exit Sub
 
    Set OBJstream = CreateObject("ADODB.Stream")    'object utilisé ADODB stream
    OBJstream.Open: OBJstream.Type = 1    ' open with no arguments makes the stream an empty container
    OBJstream.LoadFromFile (filetoopen)    'on load le fichier dans l'object
    BB = OBJstream.Read()    ' on prend directement tout le paquet
    '**************************************
    ReDim tablo(UBound(BB))
    For i = 0 To UBound(BB): tablo(i) = BB(i): Next
    code = "255,216" & Split(Split(Join(tablo, ","), "255,216")(1), "255,217")(0) & "255,217"
   Debug.Print code
   tablo = Split(code, ",")
    jpegFile = FreeFile
    Open Environ("userprofile") & "\Desktop\imagetemp.jpg" For Binary Access Write Lock Write As jpegFile
    For i = 0 To UBound(tablo)
        If IsNumeric(tablo(i)) Then by = tablo(i): Put jpegFile, , by
    Next i
    Close jpegFile
End Sub
Cliquez pour agrandir...
Je crois savoir pourquoi. Un Mp3 permet d'avoir plusieurs images (Front Cover, Back cover, other...)
Dans le fichier "Optimisme" il y avait 3 images. Je les ai supprimées et remplacée par une seule image. J'ai essayé avec ton code et... ça marche !
 
Vote positif 0 Vote négatif
du genre comme ça par exemple
VB: 
Sub extractImageTest()
    Dim by As Byte, jpegFile&, TbL
    Dim filetoopen As Variant
    filetoopen = Application.GetOpenFilename("jpeg Files (*.jpg;*.mp3), *.jpg;*.mp3", 1, "ouvrir une image")
    If filetoopen = False Then Exit Sub
    TbL = GetBinaryArrayJpg_OnFile(filetoopen)
    If Not IsArray(TbL) Then MsgBox "Un problème dans l'extraction c'est produit": Exit Sub
    jpegFile = FreeFile
    Open Environ("userprofile") & "\Desktop\imagetemp.jpg" For Binary Access Write Lock Write As jpegFile
    For i = 0 To UBound(TbL)
        If IsNumeric(TbL(i)) Then by = TbL(i): Put jpegFile, , by
    Next i
    Close jpegFile

End Sub

'cette fonction récupère juste l'array de bits concernant le jpg
Function GetBinaryArrayJpg_OnFile(Fichier)
    Dim OBJstream, BB() As Byte, b As Long, tablo
    Set OBJstream = CreateObject("ADODB.Stream")
    OBJstream.Open: OBJstream.Type = 1
    OBJstream.LoadFromFile (Fichier)
    BB = OBJstream.Read()
    ReDim tablo(UBound(BB))
    For i = 0 To UBound(BB): tablo(i) = BB(i): Next
    code = "255,216" & Split(Split(Join(tablo, ","), "255,216")(1), "255,217")(0) & ",255,217"
    GetBinaryArrayJpg_OnFile = Split(code, ",")
End Function
 
Vote positif 0 Vote négatif
patricktoulon à dit:
du genre comme ça par exemple
VB: 
Sub extractImageTest()
    Dim by As Byte, jpegFile&, TbL
    Dim filetoopen As Variant
    filetoopen = Application.GetOpenFilename("jpeg Files (*.jpg;*.mp3), *.jpg;*.mp3", 1, "ouvrir une image")
    If filetoopen = False Then Exit Sub
    TbL = GetBinaryArrayJpg_OnFile(filetoopen)
    If Not IsArray(TbL) Then MsgBox "Un problème dans l'extraction c'est produit": Exit Sub
    jpegFile = FreeFile
    Open Environ("userprofile") & "\Desktop\imagetemp.jpg" For Binary Access Write Lock Write As jpegFile
    For i = 0 To UBound(TbL)
        If IsNumeric(TbL(i)) Then by = TbL(i): Put jpegFile, , by
    Next i
    Close jpegFile

End Sub

'cette fonction récupère juste l'array de bits concernant le jpg
Function GetBinaryArrayJpg_OnFile(Fichier)
    Dim OBJstream, BB() As Byte, b As Long, tablo
    Set OBJstream = CreateObject("ADODB.Stream")
    OBJstream.Open: OBJstream.Type = 1
    OBJstream.LoadFromFile (Fichier)
    BB = OBJstream.Read()
    ReDim tablo(UBound(BB))
    For i = 0 To UBound(BB): tablo(i) = BB(i): Next
    code = "255,216" & Split(Split(Join(tablo, ","), "255,216")(1), "255,217")(0) & ",255,217"
    GetBinaryArrayJpg_OnFile = Split(code, ",")
End Function
Cliquez pour agrandir...
Grâce à ton code, j'ai enfin ce que je voulais. Je travaille maintenant à intégrer tout ça à mon programme de gestion de MP3. Je pense que, demain dans la journée, ce sera fait.
Je l'ai déjà intégrer dans feuille test et ça marche parfaitement.
Je la joint en annexe. Il suffit maintenant de mettre le chemin complet dans la cellule K1 et cliquer sur le bouton. L'image s'affiche dans une userform.
Encore merci car, sans toi, je n'y serais jamais arrivé.
Bonne soirée.
Marc
 

Pièces jointes

Vote positif 0 Vote négatif
patricktoulon à dit:
je viens de passer je ne sais combien de temps sur chatgpt
je lui ai demander de faire mieux que moi plus ortodoxe bref
il m'en a sorti des trucs
rien qui fonctionne
chat.openai.com

ChatGPT - Extraction de données JPEG

Un système d’IA conversationnel qui écoute, apprend et vous pousse à réfléchir
chat.openai.com chat.openai.com

and the winner is patricktoulon!!! 🤣 🤣
Cliquez pour agrandir...
C'est exactement la même scénario que j'ai eu avec ChatGpt, des morceaux de code qui génèrent des erreur à n'en plus finir, des tentatives de corrections aussi lourdes les une que les autres mais qui jamais ne fonctionnent, etc.. Bon. Si on lui demande : X+X = 4 Que vaut X ? Il répondra correctement. (Voir image !)
Fortiche, hein ?🙄🙄🙄
Là-dessus, je vais me coucher.
Bonne nuit!
 

Pièces jointes

  • 2x.png
    2x.png
    13.5 KB · Affichages: 13
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
Microsoft 365 Afficher des images insérées dans le classeur sur un UserForm
Réponses
4
Affichages
289
Redba13
R
J
  • Question Question
Microsoft 365 userform avec contrôle image
Réponses
12
Affichages
349
JULLIEN Philippe
J
C
  • Résolu(e)
Microsoft 365 Correction dans un Userform
2
Réponses
27
Affichages
768
C'est Génial
C
BenHarber
  • Question Question
Microsoft 365 Insérer une image dans un usf ?
2 3
Réponses
32
Affichages
799
Marc Vanlindt
M
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
217
JUAN45
J
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
579
vgendron
vgendron
chinel
  • Résolu(e)
XL 2016 contrôle image
Réponses
14
Affichages
540
patricktoulon
patricktoulon
Nono1835
  • Question Question
XL pour MAC Graphique évolutif
Réponses
0
Affichages
153
Nono1835
Nono1835
D
  • Question Question
XL 2021 Activation macro
Réponses
1
Affichages
58
sylvanu
sylvanu
treza88
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
915
TooFatBoy
TooFatBoy
AIXELS
  • Question Question
Microsoft 365 Bloccage Excel
Réponses
1
Affichages
320
wDog66
wDog66
E
  • Résolu(e)
Microsoft 365 cette image est trop grande et va être tronquée ouverture fichier excel avec macro
Réponses
3
Affichages
252
eric123
E
N
  • Résolu(e)
Microsoft 365 Hyperlink d'après valeur TCD
Réponses
11
Affichages
261
NikonvsWild
N
S
  • Résolu(e)
XL 2021 Une macro pour plusieurs togglebutton (Userform)
Réponses
13
Affichages
157
sourcier09
S
D
  • Résolu(e)
XL 2016 Filtrage ListBox d'un userform
Réponses
6
Affichages
110
dgil37
D
J
  • Résolu(e)
Microsoft 365 afficher image selon valeur cellule
Réponses
2
Affichages
234
juju91
J
M
  • Résolu(e)
Microsoft 365 [RESOLU]UserForm qui revient à la fermeture d'un classeur, du fait le classeur se bloque et il faut fermer manuellement l'UserForm
2
Réponses
17
Affichages
519
Marboi
M
DAVID-44-
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
298
DAVID-44-
DAVID-44-
chinel
  • Résolu(e)
XL 2016 problème d'image dans un contrôle image
Réponses
13
Affichages
534
chinel
chinel
J
  • Question Question
Microsoft 365 Sélectionner plage nommée via un comboBox
Réponses
3
Affichages
314
fanfan38
fanfan38
Retour