Extraction d'icones sous VBA (Excel)

Question

Bonjour,
J'ai réccupéré le code suivant:

Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long

Mais quand je l'exécute, j'ai une erreur comme quoi ".hdc" n'est pas valide.
je suis sous VBA excel et je cherche désepérement à extraire les icones (au moins une) de shell32.dll.
Merci de votre aide

Zlub · Answer

Salut









essais avec &#231;a et dis moi si &#231;a te vas ...



Dim tonTexte As String

Dim ligne As Integer

Dim colone As Integer



tonTexte = "ma valeur"

ligne = 1

colone = 1



Dim My_XL As Excel.Application

Set My_XL = New Excel.Application



'Cacher le classeur

My_XL.Visible = False



My_XL.Workbooks.Add



'D&#233;finition des noms des feuilles

My_XL.ActiveWorkbook.Sheets(1).Name = "Feuille Un"

My_XL.ActiveWorkbook.Sheets(2).Name = "Feuille Deux"



'Selectionnner la feuille 1

My_XL.ActiveWorkbook.Sheets(1).Select

My_XL.Cells(ligne, colone) = tonTexte & "1"



' Selectionner la feuille 2

My_XL.ActiveWorkbook.Sheets(2).Select

My_XL.Cells(ligne + 1, colone + 1) = tonTexte & "2"



' Rendre visible

My_XL.Visible = True



++



Zlub

jpleroisse · Answer

Bonjour,

Peux tu me donner ta ligne de commande pour que je fasse un essai ?

jpleroisse

Zlub · Answer

d&#233;sol&#233;, erreur de post !

CTAC · Answer

Bonjour.
http://www.excelabo.net/moteurs/compteclic.php?nom=ac-msgboxicon

ctac

jyver · Answer

J'accepte la réponse mais j'aimerais pas seulement changer l'icone d'une msgbox mais l'extraire pour la mettre dans un "commandbutton1.picture" par exemple.

Tu as une idée .

Extraction d'icones sous VBA (Excel)

5 réponses

Discussions similaires