Discussion :

[pilou2fois]

Bonjour,

J'aimerai avoir un classeur excel avec un userform visible dès l'ouverture du classeur et qu'ensuite il soit toujours visible lorsqu'on revient sur ce classeur après avoir utilisé d'autres applications windows ou d'autres classeurs excel.

Je travaille avec windows 7 et quand j'utilise l'explorateur windows avec le volet de visualisation actif et que je clique sur un fichier excel dans l'explorateur mon userform disparait. Le volet de visualisation doit faire appel au processus excel et perturbe mon code vba.

Avez vous une solution pour résoudre mon problème ?

En pièce jointe mon fichier exemple : "Exemple userform permanent.xlsm"

Merci pour votre aide

Florent

[Stanler]

Bonjour,

à placer dans "thisworkbook"

Code :

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

1
2
3
Private Sub Workbook_Open()
UserForm1.Show 0
End Sub

Pour enlever la croix rouge (puisque l'userform est permanent si j'ai bien compris)
A placer dans un module normal

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
Sub OteCroix(UF As UserForm)
Dim hWnd As Long
    'Enlève la croix rouge de l'UF
    hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
    & "Frame", UF.Caption)
    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub

A placer dans ton UserForm1 :

Code :

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

1
2
3
4
Private Sub UserForm_Activate()
Me.Repaint
OteCroix Me
End Sub

[pilou2fois]

Merci beaucoup Stanler !
Cela fonctionne parfaitement !