Salut,

Résolution écran :

'      Variables de travail
       Dim iHeight As Integer
       Dim iWidth As Integer

'      Récupération de la résolution écran
       iHeight = Screen.Width \ Screen.TwipsPerPixelX
       iWidth = Screen.Height \ Screen.TwipsPerPixelY

pour le retse va faloir soit faire un zoom en négatif pour une résolution < ou positif si résolution >

Regarde sur le site avec le moteur de recherche ily a quelques sources....

A+
Exploreur

 Linux a un noyau, Windows un pépin