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)

[patricktoulon]

ok c'est vraiment tordu de mettre les memes caption sur x userform mais soit
on change on va dans le activate et on utilise GetActiveWindow

Code :

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

1
2
3
4
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Sub UserForm_Activate()
    SendMessageA GetActiveWindow, &H80, False, Me.Image1.Picture
End Sub

il ne peut pas y avoir confusion la

[unparia]

il ne peut pas y avoir confusion la

Voilà. Entre autres possibilités.
Et voilà une raison de plus pour préférer l'évènement Activate

[unparia]

De bon matin --->>
Je voudrais revenir sur cette détermination du handle de l'userform.
Pour ceux qui trouvent plus pratique l'utilisation de FindWindow avec, pour paramètre, la propriété Caption de l'Userform.
Il est tout-à-fait possible de le faire sans faille aucune --->> d'éviter, par exemple, d'agir sur une autre fenêtre qui aurait le même Caption ... ce qui peut arriver plus souvent qu'on ne le croit (et en rappelant que FindWindows va, lui, chercher TOUTE FENETRE ouverte, sans s'intéresser à tel ou tel autre aspect, ni même à l'appli ayant ouvert cette fenêtre):
- fenêtres avec un caption par défaut (genre "UserForm1")
- plusieurs instances d'un même classeur
etc ...

Cela étant compris, voyons ce qu'il est alors toujours possible de faire pour extraire sans aucune faille le handle d'un UserForm dont on a la maîtrise totale (de sa propre application, donc) :

---- la modification du titre (c'est cela, la propriété Caption) d'une fenêtre Windows ne modifie en aucune manière le handle de cette fenêtre
on en profite alors ainsi --->>
1- on commence par lire le caption présent et on le mémorise (dans une variable ou la propriété tag du Caption)
2- on attribue un nouveau caption qui, lui, ne risque pas d'être celui d'une autre fenêtre Windows présente. Je suggère tout bêtement celui-ci :

Code :

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

 Me.Caption = Timer

3- on relève alors maintenant le handle de notre userform.
4- on lui restitue ensuite son caption d'origine.
Je donne personnellement la préférence au traitement des points 1 et 2 dans un module de code distinct de celui de l'userform, juste avant l'utilisation de la méthode Show, mais rien n'empêche de le faire avec succès dans le module de code de l'userform lui-même, en jouant avec l'ordre des évènements, ainsi :

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()
    Me.Tag = Me.Caption
End Sub
 
 
Private Sub UserForm_Activate()
  Dim toto As Long
  Me.Caption = Timer
  toto = FindWindow(vbNullString, Me.Caption)
  MsgBox toto ' notre handle
  Me.Caption = Me.Tag
End Sub

Dit une autre fois : uniquement si l'on tient vraiment à utiliser la méthode FindWindow.

[patricktoulon]

re
oui c'est une idée mais un peu to mutch a mon sens

a moins que le find du handle se fasse dans le initialyse autant rester dans le activate avec getactivewindow

[unparia]

autant rester dans le activate avec getactivewindow

ou autre chose encore (ce ne sont pas les méthodes qui manquent).
(Et GetActiveWindow n'est pas non plus ce qu'il y a de mieux et de plus sûr ****** . Mais je vais arrêter là car on s'écarterait de plus en plus de la vocation fondamentale d'un tableur et des connaissances en VBA... et je n'aime pas ces "écarts". Ce sujet-là aurait sa place ailleurs que dans le présent forum, puisque le traitement serait le même autrement qu'avec Office).
Mon message n'était qu'à l'intention de ceux qui trouvent plus pratique la méthode FindWindow
pour mémoire :

Dit une autre fois : uniquement si l'on tient vraiment à utiliser la méthode FindWindow.

EDIT :
****** --->> La fonction GetActiveWindow retourne le handle de la fenêtre active liée aux messages dans la queue des fils appelants (et il peut arriver - selon le contexte - que ce handle ne soit pas celui du userform LUI-MEME)