AUJOURDHUI dans UserForm

Bonsoir à tous,

Je n'arrive pas à entrer la date d’aujourd’hui dans un UserForm, j'ai essayé plusieurs méthodes mais le résultat affiche

TRUE ou FALSE. C'est la dernière formule qui me manque pour terminer ma base de données.

Je joins un petit fichier pour l'exemple.

J'ai parcouru le forum mais sans succès.

Merci de bien vouloir m'aider encore une fois.

Pierrot

Bonsoir,

Dans l'USF, supprime tes 3 macros et remplace les par les deux ci-dessous

Private Sub CommandButton1_Click()
      Unload UserForm1
End Sub

Private Sub UserForm_initialize()
    TextBox1.Value = Format(Now, "dd/mm/yy")
End Sub

Si ok, lors de ta réponse, clique sur le V vert à coté du bouton EDITER pour cloturer le fil

Amicalement

Edit DAN : Si tu veux que ce soit toujours la cellule F2 q soit reprise, remplace la 2eme macro par celle ci-après

Private Sub UserForm_initialize()
    TextBox1.Value = Format(Sheets("Feuil1").Range("F2"), "dd/mm/yy")
End Sub

Cher Dan,

Bonjour,

J'ai bien copié les macros dans ma grande base de données, mais au lancement, cela bloque sur la nouvelle ligne de macro :

TextBox1.Value = Format.......ddd-mmm-yyy

Je reçois le msg suivant : Sub ou Fonction non définie

Merci de me corriger ce petit défaut.

A te lire très bientôt.

Pierrot

Re,

TextBox1.Value = Format.......ddd-mmm-yyy

L'instruction ne correpsond pas à ce que je t'ai donné. Pourquoi 3 ddd ??? et 3 yyyy ??

A te relire

Dan,

J'ai tapé trois ddd-dd-mm-yyyy ce qui donne : mar-08-janv-2013

J'ai déjà un USF_initialize dans mes modules.

A suivre, Merci

Pierrot

Cher Dan, ne cherche plus, j'ai trouvé une solution, en changeant le nom de ma textBox1.

Maintenant, il me reste à remplir ma base de données avec les photos.

Un grand merci pour votre aide à tous ceux qui m'ont aidé.