Bonjour,
J'ai crée une fonction qui calcule des dates precises,dans un module et je l'ai declaré "publique" ttes lesvariables et la fonction pour pouvoir l'utiliser ds dautres modules.
je souhaite faire appel a cette fonction dans une macro (un bouron qui permet d'envoyer automatiquement une invitation dans outlook), les dates calculées dans ma fonction sont les dates de l'invitation donc j'ai besoin de faire appel à cette fonction dans ma macro mais ca ne marche pas!
voici le code de la fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
                   Public PremMardi_de_laDate_douverture As Date
 
                   Public Premjeudi_de_laDate_douverture As Date
 
                   Public PremierMardi_de_BnB As Date
 
                   Public Premjeudi_de_BnB As Date
 
                   Public Date_BnB As Date
 
                   Public Date_BAR As Date
 
 
 
  Public Sub Calcul_Date_Invitation()
 
              'function calcul BnB(Date_ouverture)et function BAR(BnB)
                  PremMardi_de_laDate_douverture = Now - ((Now - 3) Mod 7) + 7
                  Premjeudi_de_laDate_douverture = Now - ((Now - 5) Mod 7) + 7
 
                  If PremMardi_de_laDate_douverture < Premjeudi_de_laDate_douverture Then
                    Date_BnB = PremMardi_de_laDate_douverture
                    PremierMardi_de_BnB = Date_BnB - ((Date_BnB - 3) Mod 7) + 7
                    PremierJeudi_de_BnB = Date_BnB - ((Date_BnB - 5) Mod 7) + 7
 
                  If PremierMardi_de_BnB < PremierJeudi_de_BnB Then
                    Date_BAR = PremierMardi_de_BnB
                    MsgBox "la BnB_App sera organisée le:" & Date_BnB
                    MsgBox "la BAR_App sera organisée le:" & Date_BAR
 
                  Else
                    Date_BAR = PremierJeudi_de_BnB
                    MsgBox "la BnB_App sera organisée le:" & Date_BnB
                    MsgBox "la BAR_App sera organisée le:" & Date_BAR
                  End If
 
 
                 Else
                    Date_BnB = Premjeudi_de_laDate_douverture
                    PremierMardi_de_BnB = Date_BnB - ((Date_BnB - 3) Mod 7) + 7
                    PremierJeudi_de_BnB = Date_BnB - ((Date_BnB - 5) Mod 7) + 7
 
                  If PremierMardi_de_BnB < PremierJeudi_de_BnB Then
                     Date_BAR = PremierMardi_de_BnB
                     MsgBox "la BnB_App sera organisée le:" & Date_BnB
                     MsgBox "la BAR_App sera organisée le:" & Date_BAR
 
                  Else
                     Date_BAR = PremierJeudi_de_BnB
                     MsgBox "la BnB_App sera organisée le:" & Date_BnB
                     MsgBox "la BAR_App sera organisée le:" & Date_BAR
                  End If
 
                  End If
 
 
 
              End Sub



merci d'avance de votre aide
cdlt,
sab