Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Version antérieure à xls 2000

  • Initiateur de la discussion Nathalie
  • Date de début
N

Nathalie

Guest
Re-Bonjour,

Est-ce que quelqu'un parmis vous peut me dire si le code suivant fonctionne sur des versions antérieures à excel 2000, si oui à partir de laquelle :
"Userform1.Show vbModeless", en fait l'affichage non modal d'un USF est-il possible sur des versions antérieure à celle de 2000

Merci à tous
 
M

Max

Guest
Salut Nathalie,

en effet sur les versions antérieures à 2000, l'affichage non modal d'un USF n'est pas disponible dans les pptées. Mais place ceci dans la partie déclaration du code de ton userform et ça devrait marcher. (Sous excel 97 ça marche). J'ai trouvé ça sur disciplus.simplex.free.fr, une mine d'or pour les amateurs de vba.

Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function EnableWindow Lib "User32" _
(ByVal hWnd As Long, ByVal bEnable As Long) As Long

Private Declare Function GetWindowLongA
Lib "User32" _
(ByVal hWnd 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 Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub

Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub
 
N

Nathalie

Guest
C'est bien ce que je pensais me souvenir, en revanche sais-tu si les codes ID sont identique sur chaque version, plus particulièrement la 30007

Merci encore et bonne journée
 
N

Nathalie

Guest
Merci beaucoup, mais je t'avoue que je comprend pas grand chose, ça commence à devenir compliqué pour moi...Je pense que je vais le recopier tel quel dans le module de code du USF

Bonne journée et merci pour le site en question


Nath
 
@

@+Thierry

Guest
Bonjour Nathalie, Max et le Forum


En tapant "Non Modal 97" dans le moteur de recherche de ce Forum on trouve cette API qui si je ne m'abuse est de Stephen Bullen.

Il a été confirmé que cette API fonctionne bien sur XL 97, maintenant il faut juste faire attention aux versions de Windows.

Bonne Après midi
@+Thierry
 

Discussions similaires

Réponses
9
Affichages
236
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…