Discussion :

[JPJHT]

Bonjour,

Quelqu'un saurait-il comment récupérer, en VBA, la résolution actuelle de l'écran ?
J'avais bien trouvé "Screen.Height" et "Screen.Width" sur Developpez.com, mais ça ne se compile pas dans mon environnement (VBA 6.3 - version 9972) : "Height" et "Width" ne sont pas des mots connus pour "Screen"...
Me manque-t-il une Référence (laquelle ?) ou est-ce impossible en VBA ?

Par avance, merci

[berti]

tu déclares dans un module ce bout de code :

Code :

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

1
2
3
4
5
6
7
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
 
Sub AfficherResolution()
  Largeur = GetSystemMetrics(0)
  Hauteur = GetSystemMetrics(1)
  MsgBox "La résolution de votre écran est de " & Largeur & " par " & Hauteur
End Sub

ensuite tu crées un formulaire avec un bouton sur click et tu appelle la fonction AfficherResolution

Code :

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

1
2
3
Private Sub Resolution_Click()
    Call AfficherResolution
End Sub

[JPJHT]

Ceci fonctionne !

Merci beaucoup

[berti]

y a pas de koi

A bientôt