Pbl de Versions VBA

[Julien]

Bonjour,

J'ai réalisé un petit programme au bureau sous Excel2000, mais ce dernier "bug" lorsque je le lance depuis mon PC perso (avec Excel 97). Je pensait qu'il s'agissait d'un problème de version d'Excel. Or, le même échec s'est produit sur un poste fonctionnant sous Excel 2000.

Cependant, ce programme fonctionne bel et bien sur d'autre PC.

Y a t il des versions différentes de VBA ?
Est il possible de mettre à jour une ancienne version ? Si oui, savez vous ou ?



Autre soucis : est il possible d'ajuster automatiquement la taille d'une boite de dialogue sans toucher à la définition de l'écran ? Mon principal User Form qui prend tout mon écran ne tient qu'1/2 écran ou 2 écrans suivant le PC.


Merci d'avance pour votre aide,

 

[Blandine]

La taille des objets dans le formulaire s'adapte en
fonction du paramètre ZOOM compris entre 10 et 400...

Voici le Code du module :

'3 lignes de fonction pour la gestion du PLEIN ECRAN
Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) 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_Initialize()

'PLEIN ECRAN
'Changer dans les propriétés du UserForm les options dans Position ;
'Left = 0
'StartUpPosition = 3-Windows Default
'Top = 0
Dim hWnd As Long, exLong As Long, zFactor As Integer
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then SetWindowLongA hWnd, -16, exLong And -8912897
zFactor = 100 * CInt(Application.Width / Me.Width)
'EXCEL accepte un zoom maxi à 400
If zFactor > 400 Then zFactor = 400
Me.Width = Application.Width
Me.Height = Application.Height
Me.Zoom = zFactor
'PLEIN ECRAN OK
End Sub