Discussion :

[jam92400]

Bonjour

J'ai formulaire sur une feuille Excel (je n'utilise pas de UserForm) et je voudrais savoir comment faire pour que lorsqu'on clique sur un champs texte pour saisir une date automatiquement un objet calendrier apparaisse sur le coté et qu'on puisse saisir la date que l'on desir

j'ai tenté dans la boite à outil d'inserer le microsoft data and time picker control mais je comprend pas son fonctionnement et aussi le microsoft project calendar control

merci pour votre aide

[rvtoulon]

bonjour jam92400,
j'ai mis en pièces jointes un fichier exemple qui te permettras d'avoir une piste de travail.
Il y a un code sur l'événement selection change de la feuil1 qui ouvre un userform avec un controle calendar, tu sélectionnes la date et il l'insére dans la cellule active.
Essai de t'en inspirer

EDIT: voir le message plus bas pour la pièce jointe.

[jam92400]

Merci enormément RvToulon,

Je n'arrive pas a faire fonctionner ta page Excel car visiblement tu l'as fait sur Excel 2007 et moi je suis en 2003 et donc j'ai une erreur qui dit qu'une bibliotheque Calendar 2007 est manquante

[rvtoulon]

oupsss tu as raison


EDIT :
Essai ceci, dans l'éditeur vba:
-un clic droit sur la boite à outils
-sélectionne controles complémentaires
-ajoute : Microsoft Monthview Control 6.0
-un nouvel apparait dans la boite à outils, sélectionne le et insére le dans l'userform.
dans le code du bouton valider remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Value = Me.Calendar1.Value

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Value = Me.MonthView1.Value

[jam92400]

oui c'est ce que j'ai fait directement mais j'ai un bug

je te joins mon fichier si tu veux, (enfin ton fichier modifié)

[rvtoulon]

voila j'ai modifié le fichier de départ, j'ai remplacé le controle calendar par un control monthview.

EDIT : Pour savoir comment ajouter un control monthview regarde l'EDIT de mon post précédent, désolé de t'avoir mal aiguillé

voici le fichier qui correspond le mieux à ton sujet:

[jam92400]

Merci beaucoup Hervé! t'es un bon toi!

ca marche nikel

tu saurais comment je peux faire pour récupérer la valeur month.value au format : JJMMAAAA

En gros a l'affichage l'avoir en JJ/MM/AAAA me va très bien mais apres je dosi récuperer cette valeur au format JJMMAAAA pour contruire un nom de fichier avec tu vois ?

[rvtoulon]

re,
un exemple a mettre dans un module:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim nomfichier As String, vdate As String
 
vdate = Sheets("Feuil1").TextBox1.Value
vdate = Replace(vdate, "/", "")
 
nomfichier = "Monfichier" & "-" & vdate
MsgBox nomfichier
 
End Sub