[Catégorie modifiée VB6 -> VBA] datetimepicker

cs_jivet Messages postés 4 Date d'inscription samedi 30 octobre 2010 Statut Membre Dernière intervention 3 novembre 2010 - 30 oct. 2010 à 22:08
cs_jivet Messages postés 4 Date d'inscription samedi 30 octobre 2010 Statut Membre Dernière intervention 3 novembre 2010 - 3 nov. 2010 à 17:44
Bonjour,
Je débute en vba...
Mon objectif est de créer une application simple pour me faciliter des saisies fastidieuses de dates. L'idée est de copier dans le presse papier une date choisie à partir d'une fenêtre toujours visible contenant un datetimepicker.
Merci d'avance
Cordialement

4 réponses

Duke49 Messages postés 552 Date d'inscription jeudi 12 octobre 2006 Statut Non membre Dernière intervention 24 janvier 2023 4
31 oct. 2010 à 16:23
Sa ressemblerai dans s'genre:

Private Sub MonControlDTP_Validate(Cancel As Boolean)
   Clipboard.SetText(Me.DTPicker.Value)
End Sub
0
cs_jivet Messages postés 4 Date d'inscription samedi 30 octobre 2010 Statut Membre Dernière intervention 3 novembre 2010
31 oct. 2010 à 19:31
Merci.
Je suis hélas un 'grand' débutant et aurai besoin de cours de synthaxe pour savoir où placer la procédure par rapport au windowsform... S'il existe des sites sur le sujet je suis preneur. Par ailleurs, peut on faire en sorte que le calendrier s'affiche en entier dans le form, sans devoir cliquer sur l'icône pour le développer.
D'avance merci
Cordialement
0
cs_jivet Messages postés 4 Date d'inscription samedi 30 octobre 2010 Statut Membre Dernière intervention 3 novembre 2010
3 nov. 2010 à 17:44
voici le code correspondant au sujet du message.
Hélas, lorsque je fais CTRL+V dans oOo par exemple, la date choisie dans le DTP ne se copie pas et le calendrier ne s'affiche pas "en entier" dans la fenêtre.
Merci d'avance
0
cs_jivet Messages postés 4 Date d'inscription samedi 30 octobre 2010 Statut Membre Dernière intervention 3 novembre 2010
3 nov. 2010 à 17:44
Avec la code, c'est mieux !

Public Class DateTimepicker1

Private Function DateTimepicker1() As Object
Throw New NotImplementedException
End Function

Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged

End Sub
Private Sub MonControlDTP_Validate(ByVal Cancel As Boolean)

Clipboard.SetText(Me.DateTimepicker1.Value)
End Sub
End Class
0
Rejoignez-nous