Bonsoir marot_r,
Voici l'erreur que la ligne du code me ramène:
Code : Sélectionner tout - Visualiser dans une fenêtre à part WeekDayAr(WeekDay(Date))
portant dans le module du formulaire, il n'y a pas de fonction WeekDay qui se répète.
Cordialement.
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 Option Compare Database Option Explicit Private Sub Form_Open(Cancel As Integer) '______________________________ On Error Resume Next '________________________________ Dim dtGreg As String, dtHeg As String Calendar = vbCalGreg dtGreg = Date Me.DateGregorienne = "Gregorien:" & " " & dtGreg Calendar = vbCalHijri dtHeg = Date Me.DateHegirienne = "Hegire:" & " " & dtHeg Calendar = vbCalGreg '_________________________________________________ '_________________________________________________ Dim dtGreg_2 As String, dtHeg_2 As String Calendar = vbCalGreg dtGreg_2 = Date Me.DateGregorienne_2 = dtGreg_2 Calendar = vbCalHijri dtHeg_2 = Date Me.DateHegirienne_2 = dtHeg_2 ' code pour afficher la date générale : dtHeg_2 = WeekDayAr(weekDay(Date)) & " " & Day(Date) & " " & _ MoisAr(Month(Date)) & " " & Year(Date) ' soit cette ligne 'dtHeg = Format(Date, "dddd") & " " & Day(Date) & " " & _ moisToIsl(Month(Date)) & " " & Year(Date) ' ' soit cette ligne Me.DateHegirienneGenerale = dtHeg_2 Calendar = vbCalGreg End Sub Public Function WeekDayAr(wdn) As String Dim result As String Select Case wdn Case 0: result = "Lundi" Case 1: result = "'Mardi" Case 2: result = "Mercredi" Case 3: result = "Jeudi" Case 4: result = "Vendredi" Case 5: result = "Samedi" Case 6: result = "Dimanche" Case Else: result = "#Erreur " & wdn & " Inconnu#" End Select WeekDayAr = result End Function
Partager