Discussion :

[anarchiste-mouton]

Bonsoir,

Après être tombé là-dessus (merci beaucoup pour tout ça), j'aimerais donc afficher une icone dans la barre de caption de mon usf.
Seulement j'aimerais récupérer l’icône depuis le classeur pour que ce dernier soit portable et non depuis mon C:\
Comment récupérer la variable "Fichier" (sous forme de string) pour que cela fonctionne? Imaginons que l'image s'appelle "Icone_Fen" est qu'elle soit située dans la worksheets("Feuil2").

Cordialement

[Patrice740]

Bonjour

Utilises Thisworkbook.Path

[anarchiste-mouton]

Bonsoir Patrice,

Dans l'exemple de silkyroad, on trouve ça :
Fichier = "C:\Documents and Settings\mimi\dossier\bouton.ICO"

Or si j'indique juste mon Path, la méthode appelée avec Fichier en argument ne va pas savoir quelle image prendre dans le .XLSX

[unparia]

Bonjour
Que veux-tu finalement ?
inclure "en dur" quelque part dans ton classeur une icône dont tu veux mettre une image dans la barre de titre de ton userform ?
C'est cela ?
Si oui : mets-donc simplement l'image de cette icône dans un contrôle image (avec sa propriété visible = false) de ton userform et utilise directement cette image en lieu et place de l'extraire d'un fichier par une fonction de l'Api de Windows .
Cette manoeuvre est facile si tu as compris le code du lien auquel tu te réfères.
Montre-moi que tu l'as au moins un peu compris (montre ton code sur cette indication). Je corrigerai au besoin, bien que je n'aime pas que l'on détourne quelque peu la véritable vocation d'un tableur.

[patricktoulon]

Bonjour
tout d'abords dans un xlsx ca risque pas de fonctionner puisque c'est un type de classeur sans macro

ensuite

1. met un control image dans ton userform meme invisible on s'en fout
2. attribut lui ton icone a partir de VBE
3. sauve ton classeur PAS EN XLSX !!!!! MAIS XLSM

exemple code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                                    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessageA Lib "user32" _
                                      (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, _
                                       ByVal lParam As Long) As Long
Private Declare Function ExtractIconA Lib "shell32.dll" _
                                      (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
 
Private Sub UserForm_Initialize()
    Dim Fichier As String
    Dim x As Long
    SavePicture Me.Image1.Picture, "C:\Users\polux\DeskTop\monicone.ico"
    'Chemin et nom du fichier icône à afficher
    Fichier = "C:\Users\polux\DeskTop\monicone.ico"
    'Vérifie si le fichier existe
    If Dir(Fichier) = "" Then Exit Sub
    x = ExtractIconA(0, Fichier, 0)
    SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, x
End Sub

[Pierre Fauconnier]

Salut.

Perso, je m'orienterais vers un fichier ico mis "à côté" de ton fichier excel (dans le même dossier)

La procédure de SilkyRoad doit alors être adaptée pour utiliser le chemin du fichier. J'ai en plus adapté le test sur l'existence du fichier car je n'aime pas les Exit Sub. Il faut évidemment le nom du fichier ico à récupérer. Pour la portabilité, il suffit de faire voyager les fichiers ensemble.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
    Dim Fichier As String
    Dim x As Long
 
    'Chemin et nom du fichier icône à afficher
    Fichier = ThisWorkbook.Path & "\favicon.ico"
    'Vérifie si le fichier existe
    If Dir(Fichier) <> "" Then
      x = ExtractIconA(0, Fichier, 0)
      SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, x
    End If
End Sub

[patricktoulon]

re
Attention avec la methode savepicture tout ce qui est transparent dans l'icon devient noir

et a ma grande surprise ca fonctionne avec les jpg,gif,ico
extracticonA doit extraire le miniature de l'image avec niconindex

[unparia]

Re
Pourquoi s'acharner ainsi à extraire une icône d'un fichier ?
Pire : pourquoi importer une image, puis la sauvegarder dans un fichier, puis l'extraire de ce fichier ?
Alors qu'il suffit de mettre cet icône en dur (en mode création) dans un contrôle image sur l'userform, puis de l'utiliser directement ?
Je ne comprends vraiment pas que l'on prenne des chemins tortueux alors qu'est présent un chemin direct.
J'attends de voir ce qu'aura au moins tenté d'écrire dans ce sens anarchiste-mouton (voir mon message précédent). J'y tiens. Si vraiment toujours en difficulté, j'interviendrai pour montrer comment ne prendre qu'une partie du code objet du lien de référence.

[patricktoulon]

re
ok autant pour moi unparia ca fonctionne sans extract et sans export MAIS attention uniquement si l'image dans le control image est de type ".ICO"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                                    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessageA Lib "user32" _
                                      (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, _
                                       ByVal lParam As Long) As Long
 
Private Sub UserForm_Initialize()
        SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, Me.Image1.Picture
End Sub

en meme temps ca aurait du me titiller . ".picture " nous donne les datas de meme que extracticonA

respect !!!
si on veut utiliser une image normale jpg,gif,bipmap il faut extraitre l'image dans un fichier et récupérer l'icone 0 du fichier qui apres verif avec WIA nous donne bien le miniature (testé avec jpg)

[unparia]

MAIS attention uniquement si l'image dans le control image est de type ".ICO"

Pour mémoire :

j'aimerais donc afficher une icone dans la barre de caption de mon usf.

Par ailleurs :
1) préférer l'évènement Load Activate à Initialize
2) ne pas faire une confiance aveugle à la détermination du handle du userform par utilisation d'un FindWindows basé sur une propriété Caption. Le risque est faible, mais il existe (une autre fenêtre éventuellement déjà ouverte et avec le même caption)