Modifier Date dans un Textbox

Résolu
dudulleray -  
 dudulleray -
Bonsoir a toutes et tous, Forum bonsoir



Excel 2007 VBA et Windows 7 32 bits

Le code ci-dessous m'affiche la date dans le format >> 15/Nov/2013 <<

Lorsque je modifie le code pour afficher dans le format >> 15 Novembre 2013 <<

de cette manière

.TextBox4.Value = Application.Proper(Format(UserForm2.MonthView1.Value, "dddd dd mmmm yyyy"))


j'ai une erreur d'exécution "13" incompatibilité de type

je ne comprends pas pourquoi, car lorsque je remets le code ci-dessous

Alors ca re-fonctionne bien ?????????

Merci beaucoup pour votre aide

bonne fin d'après midi a vous

Cdlt Ray

 With UserForm1


.TextBox4.Value = Application.Proper(Format(UserForm2.MonthView1.Value, "dd/mmm/yyyy"))

DateExpiration = .TextBox4.Value

Ws.Range("B27") = DateExpiration 'Stocke la Date d'Expiration sur la Feuil(Compte)= Ws

.TextBox2.SetFocus 'Sort de l'USF calendrier(MonthView1)et mis le focus sur le TextBox2

End With

2 réponses

  1. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Pourquoi un point devant TextBox ??
        TextBox4.Value = Application.Proper(Format(MonthView1.Value, "dddd dd mmmm yyyy"))
    Fonctionne parfaitement
    A+
    1
    1. dudulleray
       
      Salut lermite222

      Un point sinon j'ai une erreur de compilation etc etc

      Par contre de cette manière ca fonctionne bien plus de plantage

      .TextBox4.Value = Application.Proper(Format(UserForm2.MonthView1.Value, "dd mmmm yyyy"))

      Merci pour ton aide, une bonne journée

      Bon W-end a toi

      Cordialement Ray
      0
  2. Polux31 Messages postés 7219 Statut Membre 1 204
     
    Bonjour,

    Peut être comme ça :

    .TextBox4.Value = Application.Proper(Format(UserForm2.MonthView1.Value, "dd mmmm yyyy"))

    ;0)
    1
    1. lermite222 Messages postés 9042 Statut Contributeur 1 199
       
      Bonjour Polux
      dddd fait afficher le nom du jour.
      Ca donne Jeudi 14 Novembre 2013
      A+
      0
    2. dudulleray
       
      Salut polux31

      Merci pour ta réponse et pour le code

      ça fonctionne bien plus de plantage sur mon fichier

      .TextBox4.Value = Application.Proper(Format(UserForm2.MonthView1.Value, "dd mmmm yyyy"))

      Merci beaucoup pour ton aide, une bonne journée a toi

      Bon W-end

      Cordialement Ray
      0