Attribute VB_Name = "Module1"
Option Explicit
 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
  Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  
 Type Mendis
     Moi As String * 2                ' Designe le mois en cours
     VenHT As Currency            ' Somme HT
 End Type
   
 Type Anndis
      Ann As String * 4                 ' Designe l'annee
      VenHT As Currency          ' Somme HT
  End Type
  
  Type Butric
    Etat As String * 1                  ' Madame ou Monsieur
    Nom As String * 20               ' Nom de Famille
    Pren As String * 15               ' Prenom usuel
    Lieu As String * 25                ' Lieux-dit ou hameau, ou batiment
    Adres As String * 25             ' Adresse
    CodP As String * 5                ' Code Postal
    Bourg As String * 25             ' Ville
    Telper As String * 14             ' Telephone filaire
    Telmo As String * 14             ' Telephone portable
    Respo As String * 1               ' S'occupe ou ne s'occupe d'un groupe
    NmGro As String * 12            ' Nom du groupe dont dépend le vendeur
    Aloc As Currency                    ' Allocation de pourcentage
    ChJanA As Currency              ' Chiffre d'affaire mensuel lié à un produit
    ChJanT As Currency              ' Chiffre d'affaire mensuel lié à un deuxième produit
    ChFevA As Currency
    ChFevT As Currency
    ChMarA As Currency
    ChMarT As Currency
    ChAvrA As Currency
    ChAvrT As Currency
    ChMaiA As Currency
    ChMaiT As Currency
    ChJunA As Currency
    ChJunT As Currency
    ChJuilA As Currency
    ChJuilT As Currency
    ChAouA As Currency
    ChAouT As Currency
    ChSepA As Currency
    ChSepT As Currency
    ChOctA As Currency
    ChOctT As Currency
    ChNovA As Currency
    ChNovT As Currency
    ChDecA As Currency
    ChDecT As Currency
    ChannA As Currency                ' Chiffre d'affaire annuel du premier produit
    ChannT As Currency                ' Chiffre d'affaire annuel du deuxième produit
    ChcumA As Currency               ' Chiffre d'affaire cumule du premier produit
    ChcumT As Currency               ' Chiffre d'affaire cumule du deuxième produit
    ChaPreA As Currency              ' Chiffre d'affaire du premier produit de l'annee precedente
    ChaPreT As Currency              ' Chiffre d'affaire du deuxième produit de l'annee precedente
 End Type

Public Distr As Butric
Public RsMDi As Mendis
Public RsADi As Anndis

