Execution du code different entre XP et W2K

[Sébastien]

Bonsoir le forum

J ai un petit soucis , j ai un usf que je dimensionne le plein ecran et je souhaite qu il ne puisse pas etre deplace.
Voici le code que j ai mis pour cela :

Private Sub UserForm_Activate()
Dim hWnd As Long, exLong As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then
SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
Me.Hide: Me.Show
End If
End Sub

Cela fonctionne trés bien lorsque execute sous windows 2000, par contre lorsque c est execute sous XP, l usf est bien en plein ecran mais il manque la barre de titre de l usf

Pourquoi le code a des effets differents suivant l OS?
Comment y remedier?

Merci d avance

Sébastien

 

[SVri]

Bonjour,

J'ai résolu certains problèmes du même style en ectivant la référence à Xl9 lorsque les macros sont utilisées par des users en W2K/Office9 et XP/Office11
(Dans VB: Outils - reference - et cocher 'Microsoft Excel 9 object library'

S'il n'existe pas, tu peux l'importer en récupérant le fichier excel9.olb d'un poste en W2K.

 

[Sébastien]

Merci de ta réponse, mais :
-Ca n'a pas solutionner mon problème
-je n ai pas la 'Microsoft Excel 9 object library' sur mon Pc W2K mais le 10, et la version 11 sous XP... :angry:

Donc tout autre solution, je suis prenneur!

Sébastien

 

[Sébastien]

Up

Bonsoir le forum

J ai toujours mon petit probleme d affichage selon lexcution de programme sou s W2K ou XP

Mon USF est bien en plein ecran et l on ne peut pas le deplacer, mais il manque la barre de titre!!! :silly:

En plus c est sous XP que ca deconne...

Merci de votre aide

Sébastien