Dim iWidth%, iHeight% iWidth = Screen.Width / Screen.TwipsPerPixelX iHeight = Screen.Height / Screen.TwipsPerPixelY MsgBox "Résolution : " & iWidth & " x " & iHeight