Discussion :

[sabrine1311]

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

[letudiant68]

Bonjour j'ai copié votre code dans un module et créé un bouton activeX qui lance votre macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
 
    Calcul_Date_Invitation
 
End Sub

La macro se lance belle et bien quelle est votre problème?

Attention cependant vous avez mal déclaré votre variable PremierJeudi_de_BnB (vous avez écrit Premjeudi_de_BnB)

[sabrine1311]

Bonjour,
j'ai deja essayé , mais cela ne marche pass! un message s'affiche : variable ou procedure attendue et non un module!
cdlt,
sabine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Bouton6_Cliquer()
Calcul_Date_Invitation
End Sub

[Marc-L]

Bonjour, bonjour,

vu le titre concernant VB.NET, pourquoi diable poser une question dans un forum Microsoft Office au lieu du forum dédié ?‼