Séparer le mois,la semaine,le joour d'une date

[jcf6464]

Bonjour au forum,

J'ai beau chercher sur le net peut être pas au bon endroit!!!

je cherche des ou une formules pour séparer d'une date le,

- mois (texte) dans une textbox1 = (Reg_Mois),

-le semaine en (chiffre) dans une autre textbox2 =(Reg_Semaine),

-le jour en (texte) dans une autre textbox3 =(Reg_Jour),

en VBA dans 3 textbox séparés,

merci pour l'aide que vous apporter,

jcf6464

 

[néné06]

Re : Séparer le mois,la semaine,le joour d'une date

Bonjour le Forum,

Regardes ce lien

Lien supprimé

A+

René

 

[JCGL]

Re : Séparer le mois,la semaine,le joour d'une date

Bonjour à tous,

Peux-tu essayer ceci :

Private Sub Init_Club()
    Dim LeMax As Integer
    '  Réinitialise le formulaire pour la saisie suivante
    'LeMax = Application.WorksheetFunction.Max(WsBase.Range("A:A"))
    Me.Dossard = LeMax + 1
    Me.CertifMédical = ""
    Me.nom = ""
    Me.Prénom = ""
    Me.Adresse = ""
    Me.Ville = ""
    Me.CP = ""
    Me.Telephone = ""
    Me.Mail = ""
    Me.Licence = ""
    Me.Sexe = ""
    Me.Date_naissance = ""
    Me.Part_Anneenaiss = ""
    Me.Catégorie = ""
    Me.Club = ""
    Me.Comité = ""
    Me.LicenceD = ""
    Me.MontDécouverte = ""
    Me.F_inscription = ""
    Me.Frais = ""
    Me.Total = ""
    Me.Acompte = ""
    Me.Reste = ""
    Me.Chèque = ""
    Me.Observation = ""
    Me.Part_Code = ""
    Me.Reg_Date = Date
    Reg_Mois = Month(Date)
    Reg_Jour = Day(Date)
    Reg_Semaine = WorksheetFunction.WeekNum(Date, 2)


    Me.Reg_Date.SetFocus
End Sub

A+ à tous

 

[jcf6464]

Re : Séparer le mois,la semaine,le joour d'une date

Bonjour et bon appétit,

J'ai trouver par hasard avant de voir vos réponse ,récupérer le fichier de néné06 , qui est génial le fichier et l'homme..

cela fonctionne bien

merci tous pour votre travail

jcf6464