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

Signaler
Messages postés
4
Date d'inscription
samedi 30 octobre 2010
Statut
Membre
Dernière intervention
3 novembre 2010
-
Messages postés
4
Date d'inscription
samedi 30 octobre 2010
Statut
Membre
Dernière intervention
3 novembre 2010
-
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

Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
4
Sa ressemblerai dans s'genre:

Private Sub MonControlDTP_Validate(Cancel As Boolean)
   Clipboard.SetText(Me.DTPicker.Value)
End Sub
Messages postés
4
Date d'inscription
samedi 30 octobre 2010
Statut
Membre
Dernière intervention
3 novembre 2010

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
Messages postés
4
Date d'inscription
samedi 30 octobre 2010
Statut
Membre
Dernière intervention
3 novembre 2010

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
Messages postés
4
Date d'inscription
samedi 30 octobre 2010
Statut
Membre
Dernière intervention
3 novembre 2010

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