#If Win64 Then
Declare PtrSafe Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#Else
Declare Function GetSystemMetrics32 Lib "USER32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#End If
Public Function ResolutionEcranLargeur()
'par: Excel-Malin.com ( https://excel-malin.com )
On Error GoTo FunctionErreur
Dim LargeurEcran As Long
LargeurEcran = GetSystemMetrics32(0) 'largeur de l'écran en pixels
ResolutionEcranLargeur = LargeurEcran
Exit Function
FunctionErreur:
ResolutionEcranHauteur = "" ' 1920
End Function
Public Function ResolutionEcranHauteur()
'par: Excel-Malin.com ( https://excel-malin.com )
On Error GoTo FunctionErreur
Dim HauteurEcran As Long
HauteurEcran = GetSystemMetrics32(1) 'hauteur de l'écran en pixels
ResolutionEcranHauteur = HauteurEcran
Exit Function
FunctionErreur:
ResolutionEcranHauteur = "" '1080
End Function
Sub ResolutionEcran()
'par: Excel-Malin.com ( https://excel-malin.com )
On Error GoTo ResolutionEcranErreur
MsgBox "La résolution de l'écran (largeur x hauteur): " & (Chr(13) & Chr(10)) & Format(ResolutionEcranLargeur, "#,##0") & " x " & Format(ResolutionEcranHauteur, "#,##0"), vbInformation
Exit Sub
ResolutionEcranErreur:
MsgBox "La résolution de l'écran n'a pas pu être obtenue..."
End Sub