Réduire Userform au double clic dans un Listbox

Bonjour, :D

Pour réduire un Userform auquel j'ai ajouté 'Réduire/Agrandir' en cliquant sur le symbole moins pour réduire, aucun soucis.

Par contre je m'adresse à vous pour demander s'il est possible de réduire cet Userform au double clic sur un élément de la Listbox.

Dans le formulaire affiché La Listbox contient la liste des fichiers Excel et Word d'un répertoire, lorsque je double clic sur un fichier Word l'application s'ouvre et affiche celui-ci en premier plan, à sa fermeture, le formulaire Excel est toujours présent.

Si je double clic sur un fichier Excel l'application étant ouverte celui-ci s'ouvre, mais derrière l'Userform, c'est pour cette raison que je souhaiterai réduire l'Userform
et après la fermeture du fichier Excel cliquer sur le symbole agrandir de l'Userform réduit ou l'agrandir automatiquement.

Un petit coup de pouce ou une piste svp.

Merci d'avance.

bonjour

Citation:

---

Pour réduire un Userform auquel j'ai ajouté 'Réduire/Agrandir' en cliquant sur le symbole moins pour réduire, aucun soucis.

---

tu a ajouter cette fonction comment (quelle methode) api (les boutons dans la caption)ou code vba sur des boutons dans le userform par exemple
au pire suis-je bete, pourquoi ne te sert tu pas de la fonction hide de l'userform;), on le vois plus mais il reste chargé

Bonjour,

Voici le code de l'Userform pour ajouter 'Réduire/Agrandir'.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private sheet As Worksheet Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd1 As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Option Compare Text   Private Sub UserForm_Activate() Dim hWnd1 As Long hWnd1 = FindWindowA(vbNullString, Me.Caption) SetWindowLongA hWnd1, -16, GetWindowLongA(hWnd1, -16) Or &H20000 End Sub

---

re
alors en premier lieu si tu veux continuer avec les api on en enleve une on en ajoute ne autre et je simplfie ton code

Code:

---

1 2 3 4 5 6 7 8 9 10

Private sheet As Worksheet Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'afficher le userform 1 mode fenetre ,2 mode reduit , 3 plein ecran Private Declare Function showw Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Option Compare Text ' Private Sub UserForm_Activate() SetWindowLongA FindWindowA(vbNullString, Me.Caption), -16, &H94CB0080 End Sub

---

ensuite on ajoute l'evenement double click de la listbox dans le quel on appellera la sub reduction

Code:

---

1 2 3

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) reduction End Sub

---

ensuite la sub reduction

Code:

---

1 2 3

Public Sub reduction() showw FindWindowA(vbNullString, Me.Caption), 2 End Sub

---

deja tu a ce que tu demande

maintenant pourquoi j'ai mis la reduction dans une sub public dans le userform
et bien tout simplement pour pouvoir l'appeler a partir de sheet_deactivate par exemple dans le thisworkbook tu peux meme preciser le sheets concerné
par exemple

Code:

---

1 2 3

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) if sh.name="toto" then UserForm1.reduction End Sub

---

et je fait exactement la meme chose pour un réaffichage piloté
donc dans le userform

Code:

---

1 2 3

Public Sub affichage() showw FindWindowA(vbNullString, Me.Caption), 4 End Sub

---

dans le thisworkbook par exemple

Code:

---

1 2 3

Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Index = 1 Then UserForm1.affichage End Sub

---

Bonsoir patricktoulon :ccool:

Impeccable ça fonctionne nickel chrome sauf un petit soucis le classeur ne s'affiche pas pleine page.

Bonjour,

Voilà le code pour ouvrir l'application et le fichier:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) reduction nom = Me.ListBox1.List(ListBox1.ListIndex) link = TextBox1 & "\" & nom On Error GoTo NoCanDo ActiveWorkbook.FollowHyperlink Address:=link, NewWindow:=True Exit Sub NoCanDo: MsgBox "Cannot open " & link

---

Le classeur ne s'ouvre pas en pleine page, ça n'a pas beaucoup d'importance, mais ce serait plus sympa que le code permette de le faire.

re
fallowyperlink c'est bien mais tu metrise rien
il te faut aller chercher l'instance de l'apllication pour la maximiser
autant la crer alors

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) reduction nom = Me.ListBox1.List(ListBox1.ListIndex) link = TextBox1 & "\" & nom On Error GoTo NoCanDo 'ActiveWorkbook.FollowHyperlink Address:=link, NewWindow:=True With CreateObject("excel.application") .Visible = True: .Workbooks.Open link: .WindowState = 3: End With Exit Sub NoCanDo: MsgBox "Cannot open " & link

---

d'autant plus que ta methode ouvre le classeur dans l'instance du classeur lanceur nexwindow je sais pas trop a quoi il sert entre nous
cela dit si newwindow ouvre dans l'instance tu fait un simpla "activewindow.windowstate=2"
je m'en sert jamais de folowyperlink

re

Je viens de tester tout simplement :

Code:

---

ActiveWorkbook.FollowHyperlink Address:=link

---

Et le classeur s'ouvre en pleine page.

Merci beaucoup pour votre excellente aide.
Encore quelques test avant de mettre la discussion en résolue. :D :ccool: