Bonjour,
j'ai un formulaire "Formulaire_exportation" ou je change l'année sur un champ indépendant "choix_annee_occurences"
J'ai une fonction qui vient faire un décompte lancé par une requête.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Public Function NbreOccurrences_verifie(Serie As String) As Integer
'Occurences Vérifié: NbreOccurrences_verifie([Notes_dossier])
  Dim t() As String
  t = Split(Serie, "Vérifié le : " & "17/06/" & Form_Formulaire_exportation.choix_annee_occurences)
  NbreOccurrences_verifie = UBound(t)
End Function
je voudrai remplacer le 17/06 par ##/##/ pour prendre n'importe qu'elle date de l'année de Form_Formulaire_exportation.choix_annee_occurences ?

J'y arrive pas ! si quelqu'un a une idée de faisabilité.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
(Serie, "Vérifié le : " & "##/##/" & Form_Formulaire_exportation.choix_annee_occurences)
Merci d'avance.