[Résolu] Saisir une date a l'aide d'un calendrier avec API.xls

[Bearn 64]

Bonsoir le Forum, Bonsoir BrunoM45

Dans un Userform pour saisie de commande j'ai un Combobox avec la date du jour.
Me.DTPicker1.Value = Date 'calendrier date du jour

Voir piece jointe Avant.jpg

En cliquant sur la flèche de la Combobox s'affiche le calendrier un clic sur la date choisie et elle s'affiche dans Combobox le calendrier s'efface.
A l'utilisation de DTPIKER quelques petits problèmes en passant le fichier sur un autre micro.


Mes recherches sur le Forum mon amené sur un post
Re : DTPicker - Excel 2010 64bits du 20/04/2012 18h46 Calendrier avec API.xls‎.

Mais étant léger en VBA peut on faire la même chose avec.

Merci de votre avis.

 

[Bearn 64]

Re : Saisir une date a l'aide d'un calendrier avec API.xls

re

Dans l'Userform pour saisie de commandes plusieurs données a saisir et integrées dans une ligne du fichier excel
Pour la date de la commande j'ai un Combobox avec la date du jour.
J'avais choisi un champ (Me.DTPicker1.Value = Date 'calendrier date du jour) qui affiche la date du jour si besoin de la modifier alors flehe affichage calendrier selection et je continu mes saisie.



A+++

 

[Staple1600]

Re : Saisir une date a l'aide d'un calendrier avec API.xls

Re

Je comprends toujours pas le pourquoi de cette redondance
(La date cerclée de rouge est déjà la date du jour)
Néanmoins, voici ton code bricolé* pour un combobox
Voila ce que cela donne

*: Pour le moment, je n'arrive pas à positionner le calendrier comme le souhaite sur l'userform.
Ce qui explique la place du Combobox et du commandbutton.

(Je n'ai pas modifié les déclarations : le début du code

Private Sub CommandButton1_Click()
  Dim CurSysTime As SYSTEMTIME
  SendMessage dtHwnd, &H1001, 0&, CurSysTime
  With CurSysTime
     ComboBox1.AddItem Format(DateSerial(.wYear, .wMonth, .wDay), "Short Date")
     ComboBox1.Value = ComboBox1.List(0)
    ActiveCell = CDate(ComboBox1.Value)
  End With
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  DestroyWindow dtHwnd
End Sub

Private Sub UserForm_Initialize()
  Dim meHwnd As Long, h&
  h = GetSystemMetrics(51)
  meHwnd = FindWindow(vbNullString, Me.Caption)
  dtHwnd = CreateWindowEx(0, "SysMonthCal32", vbNullString, _
                          &H50000000, 4, -h, 200, 200, meHwnd, 0&, 0&, ByVal 0&)
  SetParent dtHwnd, meHwnd
  ComboBox1.Top = (200 - h) * 3 / 4
  CommandButton1.Top = (225 - h) * 4 / 6
  CommandButton1.Height = 18
  CommandButton1.Width = 48
  CommandButton1.Caption = "OK"
  CommandButton1.ZOrder 0
End Sub

 

[Bearn 64]

Re : Saisir une date a l'aide d'un calendrier avec API.xls

Re


Jusque la j'avais fait mais ce que je cherche :

voir piece jointe userform a l'ouverture ici ,=n'est affiche que la partie qui nous interesse.

Si la date Livraison est aujourdhui ok sinon clic sur la fleche pour afficher calendrier (La date cerclée de rouge eest la date du jour) mais je veux un date differente pour Livraison. une fois cliqué sur la date voulue elle s'affiche dans combobox et se ferme.


Le fait est que c'est une date de Livraison qui est demandée la date affichée est la date du jour.



A+++

 

[Staple1600]

Re : Saisir une date a l'aide d'un calendrier avec API.xls

Re

Voici l'userform sur lequel j'ai fait mes tests
(Ce lien n'existe plus dans un classeur vierge)
et cette fois-ci, j'ai pu placé les contrôles ou je veux et déplacer le calendrier.
RESULTAT OBTENU

Je te laisse tester

 

[Bearn 64]

Re : Saisir une date a l'aide d'un calendrier avec API.xls

Re


la date est affichée d'office, la fleche du combobox permet d'ouvrir le calendrier et uniquement en cliquant sur la fleche.

En cliquant sur la date elle remplace la date du jour et ferme le calendrier.

La nouvelle date est presente dans combobox.

(Pas de bouton OK et pas d'affichage direct)



Merci A+++

 

[Bearn 64]

Re : Saisir une date a l'aide d'un calendrier avec API.xls

Bonsoir Staple1600, Bonsoir le Forum


Une petite idée pour arriver au résultat identique a DTPicker mais sans les inconvénients de.

Merci