Soyez le premier à donner votre avis sur cette source.
Vue 8 695 fois - Téléchargée 1 287 fois
Exemple d'appel depuis un textbox par double-clique avec locked=true et la variable Public Calend Private Sub Text1_DblClick() On Error GoTo ErrDate Calend = Text1.Tag If Calend = "" Then Calend = Format(Now, "dd/mm/yyyy") frmCalendrier.Show vbModal If Calend <> "" Then Text1.Tag = Calend Text1.Text = Format(Calend, "long date") End If Text1.SelStart = Len(Text1.Text) Text1.SelLength = 0 SortieErrDate: On Error GoTo 0 Exit Sub ErrDate: ' Traitement des erreurs Screen.MousePointer = vbDefault MsgBox "Une erreur est survenue lors de la modification de la date, veuillez verifier votre système et si cela persiste, veuillez prévenir l'auteur en précisant l'erreur, merci." & vbCrLf & vbCrLf & "Erreur : " & Err & " : " & Error, vbCritical + vbOKOnly, "Erreur dans la date" Resume SortieErrDate End Sub
Ce calendrier est très sympa et je compte m'en servir.
En passant,bravo aussi pour Cdlist c'est un Projet très pro.
JP
Ce calendrier est très sympa et je compte m'en servir.
En passant,bravo aussi pour Cdlist c'est un Projet très pro.
JP
1. N'aurait il pas été plus simple une base access ou au un fichier texte pour stocker les jours que tu definit des le depart.
2. Je suis juste un peu surpris du "On Error Resume Next" ca fait un peu autruche qui ne veut pas voir si y a un soucis.
Mais sinon j'ai bcp apprécié ca m'a aussi aidé en sortant du calendrier standard de monsieur Microsft. Félicitation à toi.
Pour ton pb je ne comprend pas, et mieux, ca me parait impossible, mais bon as-tu vérifié ce qui se passe en janvier en mode pas à pas ? peut-être que tes paramètres régionaux font que..... Enfin encore une chose il te faudra adapter ce calendrier aux fêtes nationales canadienne. Tu sais j'ai fais ceci il y a longtemps et je ne m'y suis pas replongé, d'autant que pour moi ce calendrier à pas mal évoluer depuis...
@+ JLN
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.