Discussion :

[ostrich95]

Bonjour à tous,

Je vous explique mon problème:

je dispose d'une table "tonnages" alimentée par un fichier Excel.

La date des volumes est sous le format n°semaine et année.

J'aimerais remplir automatiquement un champ date qui renverrai la date du lundi de chaque semaine.

J'ai trouvé la fonction sur le net (par Hervé Inisan) et je l'ai mise dans un module:

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
 
Function DateSemaineFR( _
  ByVal intAnnee As Integer, _
  Optional ByVal intSemaine As Integer = 1)
 
  Dim dt As Date
 
  ' Trouver le 1er jour de la semaine 1 de l'année
  ' (pas forcément le 1/1/aaaa en France !)
  dt = DateSerial(intAnnee, 1, 1)
  While DatePart("ww", dt, vbMonday, vbFirstFourDays) <> 1
    dt = dt + 1
  Wend
 
  ' Calculer le 1er jour de la semaine demandée
  dt = dt - DatePart("w", dt, vbMonday) + 1
  dt = dt + 7 * (intSemaine - 1)
 
  DateSemaineFR = dt
End Function

Voici ma table:


J'aimerais remplir le champ tDate en appliquant sur la valeur par défaut la fonction en l'appelant ainsi:

DateSemaineFR(numAnnee,numSemaine).

Cependant la fonction n'est pas disponible.

Comment puis-je faire?

En vous remerciant de vos réponses,

Ostrich95