REDIMENSIONNEMENT DE FENETRE AUTOMATIQUE

      Public Ecran_Largueur, _
           Ecran_Longueur _
           As Long

    Public Ratio_Ecran _
           As Double

   
'' Calcul du ratio
    Ecran_Largueur = Screen.Width
    Ecran_Longueur = Screen.Height
    Ratio_Ecran = Ecran_Longueur / 11520

''Redimmensionnement
    With Nom de la forme
        .Width = 2355 * Ratio_Ecran
        .Height = 1875 * Ratio_Ecran
    End With