Utiliser ma fonction personnalisée dans Word

[juvamine]

Bonjour,

j'ai une fonction VBA que je veux utiliser sous Word lors d'une fusion. Type =MaFonction({CHAMPSFUSION IDDate1}, {CHAMPSFUSION IDDate2})

comme on pourrait le faire sous excel

Exemple tout bête:
ma fonction:

Code :

1
2
3
4
 
Public Sub MultiplieParCinq(a As Long) as Long
  MultiplieParCinq = a * 5
End Sub

sous excel je peux faire =MultiplieParCinq(A2)

ça ne semble pas être possible sous Word

PS: ma fonction est un peu plus complexe: elle détermine si un jour est ferié ou non

Merci de votre aide

A+

[Heureux-oli]

Un peu de lecture sur les champs ici

[juvamine]

j'ai regardé mais je ne trouve rien malheureusement...

merci quand même

[Heureux-oli]

Parce qu'il n'y a rien à trouver, Word ne fonctionne pas comme Excel.
Dis nous ce que tu voudrais faire, on trouvera certainement une parade.

[juvamine]

je veux calculer le nombre de jours ouvrés entre deux dates
ma fonction vba qui regarde si un jour est ferié ou non:

Code :

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
 
Public Function IsFerie(Jour As Date) As Boolean
Dim JJ, AA
Dim NbOr, Epacte
Dim PLune, Paques, Ascension, Pentecote
JJ = Day(Jour)
mm = Month(Jour)
AA = Year(Jour)
If JJ = 1 And mm = 1 Then IsFerie = True: Exit Function    '1 Janvier
If JJ = 1 And mm = 5 Then IsFerie = True: Exit Function    '1 Mai
If JJ = 8 And mm = 5 Then IsFerie = True: Exit Function    '8 Mai
If JJ = 14 And mm = 7 Then IsFerie = True: Exit Function   '14 Juillet
If JJ = 15 And mm = 8 Then IsFerie = True: Exit Function   '15 Août
If JJ = 1 And mm = 11 Then IsFerie = True: Exit Function   '1 Novembre
If JJ = 11 And mm = 11 Then IsFerie = True: Exit Function '11 Novembre
If JJ = 25 And mm = 12 Then IsFerie = True: Exit Function '25 Décembre
NbOr = (AA Mod 19) + 1
Epacte = (11 * NbOr - (3 + Int((2 + Int(AA / 100)) * 3 / 7))) Mod 30
PLune = CDate("19/04/" & AA) - ((Epacte + 6) Mod 30)
If Epacte = 24 Then PLune = PLune - 1
If Epacte = 25 And (AA >= 1900 And AA < 2000) Then PLune = PLune - 1
Paques = PLune - Weekday(PLune) + vbMonday + 7  'Paques
If JJ = Day(Paques) And mm = Month(Paques) Then IsFerie = True: Exit Function
Ascension = Paques + 38 'Ascension
If JJ = Day(Ascension) And mm = Month(Ascension) Then IsFerie = True: Exit Function
Pentecote = Ascension + 11 'Pentecote
If JJ = Day(Pentecote) And mm = Month(Pentecote) Then IsFerie = True: Exit Function
IsFerie = False
Dim numjour
numjour = Weekday(Jour, vbMonday)   'fixe à 6 et 7 la valeur du samedi & dimanche
If numjour = 6 Or numjour = 7 Then IsFerie = True: Exit Function
End Function

Ensuite je fais une fonction DateDiff(date1, date2), je boucle sur chaque journée pour voir si c'est ferié ou non

Voilà
Si vous avez d'autres solutions, je suis preneur biensur

A + et merci

[Heureux-oli]

Après la mise à jour d'un champ de formulaire (pas un UserForm), on peut lancer une procédure, peut-être est un meilleur endroit.