VBA declara API 64 bit 32 bits
' At the top of your module: works for both 32 and 64 bits
#If VBA7 Then
Public Declare PtrSafe Function GetVersionExA _ ' 64 bits
Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
#Else
Public Declare Function GetVersionExA _ ' 32 bits
Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
#End If
VasteMonde