Rapport de message :*
 

Re: LIAISON DATE

Titre du sujet : Re: LIAISON DATE
par Guy le 29/08/2009 00:14:39

Baff,

Comme j'ai pas pu m'en empêcher j'ai modifié vite fait ton fichier.

J'ai porté le format dans le TextBox1 Format(LaDateChoisie, "DDDD dd mmmm yyyy")
Si tu souhaites un autre format change le format affiché dans TextBox1 pas dans l'événement qui doit porter en paramètre une variable de type Date.

Je n'ai qu'ajouté un événement dans le formulaire UserForm2 renommé frmCalendrier en en-tête :

Public Event VoiciLaDate(LaDateChoisie As Date)

Puis, dans le formulaire UserForm1 renommé frmCUB la procédure événementielle

Private Sub frmServeurDate_VoiciLaDate(LaDateChoisie As Date)

   Me.TextBox1.Text = Format(LaDateChoisie, "DDDD dd mmmm yyyy")

 End Sub

Aussi je te conseille vivement de faire au moins trois choses :
  1. Inscrire systématiquement la directive Option Explicit dans tous, absolument tous, les modules.  Pour ce faire dans le menu Outils/Options onglet Éditeur coche Déclaration des variables obligatoire.
  2. Prends et garde l'habitude de nommer tous les contrôles de tes formulaires autrement une chatte n'y retrouvera pas ses petits et toi tes innombrables contrôles.
  3. Accessoirement télécharge l'excellent complément MZ-Tools 3.0 au http://www.mztools.com/v3/mztools3.aspx . C'est gratos et impeccable. Des heures de plaisir.

Voilà, à lundi.

Guy