Discussion :

[patricktoulon]

Bonjour a tous
j'aurais besoins que ceux qui ont une version superieur a 2007 teste cette fonction calendrier dynamique
la fonction doit retourner false("faux") si le userform est fermé par la crois ou la date si un jour a été selectionné dans le dtpiker
et verifier que le userform est bien supprimé a la fin

merci pour les retours
coller ceci simplement dans un module standard et lancer la sub test

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub test()
    MsgBox calendrier_Dynamique
End Sub
Function calendrier_Dynamique() As Variant
    Dim Obj As Object
    Dim j As Integer
    Set USF = ThisWorkbook.VBProject.VBComponents.Add(3)
    With USF: .Properties("Caption") = "Mon calendrier": .Properties("Width") = 135: .Properties("Height") = 150: End With
    Set Obj = USF.Designer.Controls.Add("MSComCtl2.DTPicker.2")
    With Obj: .Left = 0: .Top = 0: .Width = 130: .Height = 20: .Name = "calendrier": .CalendarBackColor = &HC0FFC0: End With
    With USF.CodeModule
        j = .CountOfLines
        .insertlines j + 1, "public madate as string"
        .insertlines j + 2, "Private Sub calendrier_Change()"
        'Option pour refermer l'userform après le choix de la date.
        .insertlines j + 3, "   madate=calendrier.value:me.hide"
        .insertlines j + 4, "End Sub"
        .insertlines j + 5, "Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)"
        .insertlines j + 6, "Cancel=true:madate=false: Me.Hide "
        .insertlines j + 7, "End Sub"
    End With
    VBA.UserForms.Add (USF.Name)
    With UserForms(UserForms.Count - 1)
        .Show
        calendrier_Dynamique = .madate
    End With
     ThisWorkbook.VBProject.VBComponents.Remove (USF)
End Function

[Invité]

Bonsoir Patrick,

J'ai office 365 pro 64! J'ai une erreur ligne 9.

[patricktoulon]

bonjour Robert
la ligne 9 c'est l'ajout du datepiker
tu a bien le composant a dispo dans 365???

[Invité]

Oui, mais la registrations ce fait bizarre (dans le répertoire d'installation et pas dan x86).

Sur tous les contrôles que j'ai créé mois même le fonctionnement est erratiques suivent le pc de ma société, pourtant calqué sur la même image iso????

Par exemple je peux l'utiliser dans un projet vb6 mais pas dans Vba????

Et comme il n'est pas natif de 365 j'utilise une installation que j'ai implémenté en Vb6 et win10.

[patricktoulon]

re
j'ai lu quelque part qu'il fallait enregistrer la dll dans le system 32 aussi ,j'essairais de retrouver cette page pour le "MSComCtl2.ocx"

[Souriane]

Bonjour,

J'ai Office 2013.

J'ai aussi un erreur sur la ligne "Set Obj = USF.Designer.Controls.Add("MSComCtl2.DTPicker.2")"

"Erreur d'exécution... Chaîne de classe incorrecte"

Tu as écrit à Dysorthographie "tu a bien le composant a dispo " mais je ne suis pas sûr ce que ça veut dire. Est-ce les référence dans la biblio? Si oui, je ne parviens pas à trouver quelle référence il faut cocher. J'avais pensé Microsoft Date quelque chose mais je ne trouve rien qui porte de près ou de lien ce nom.

Souriane

[Invité]

Bonsoir,
Je dois surement avoir la version qu'il convient quelque part,il faut que je cherche afin de la publier.

Le plus rigole c'est que je l'ai dans mon install vb6 et qu'il me faut quand même faire un package pour la publier et l'utiliser en VBA??? Les dieux sont tombés sur la tête.

[patricktoulon]

Bonjour,

J'ai Office 2013.

J'ai aussi un erreur sur la ligne "Set Obj = USF.Designer.Controls.Add("MSComCtl2.DTPicker.2")"

"Erreur d'exécution... Chaîne de classe incorrecte"

Tu as écrit à Dysorthographie "tu a bien le composant a dispo " mais je ne suis pas sûr ce que ça veut dire. Est-ce les référence dans la biblio? Si oui, je ne parviens pas à trouver quelle référence il faut cocher. J'avais pensé Microsoft Date quelque chose mais je ne trouve rien qui porte de près ou de lien ce nom.

Souriane

bonjour souriane
regarde dans tes controls suplementaires si tu trouve ce composant les chiffres peuvent varier selon la version office

[patricktoulon]

salut robert
bon visiblement c'est officiel 2016 plus de calendar ou de datepker
neanmoins cet OCX peut etre telechargé
il suffit de le mettre dans le dossier syswow et de l'enregistrer dans le registre
pour les pc 64 office 64

telecharger MSCOMCT2
http://danielcurran.com/freeware/MSCOMCT2.cab
ouvrez l'archive et prenez l'OCX
placez le fichier dans C:\Windows\SysWOW64
ensuite
menu demarrer ,clik droit sur executer,executer en tant qu'administrateur
tapez ceci: C:\Windows\SysWOW64
appuyer sur entrer
ensuite taper ceci: regsvr32 mscomctl.ocx
ensuite taper entrer
redemarrez le pc

c'est donc un projet qui tombe a l'eau
un fichier excel necessitant l'instalation d'un ocx ne peut pas etre distribué c'est contre ma politique
testez voir quand meme si sur 2013 ou 2016 vous avez le controle calendar
merci pour les retours

[Invité]

Bonsoir Patrick,

Oui je dirais même pour le version 64, office 2013 64bis n'en disposait déjà plus.

Et la politique de Microsoft n'est pas pour la réhabilitation de VB6 qu'il a abandonné en 2003.

J'aurais occasion de tester, je recyclé moi même beaucoup de contrôle obsolètes pour les utiliser en Vba.

Le seul calendrier qui a une chance de survit c'est celui du web dont tu as fait plusieurs démonstration.

Je ne parle pas du .net qui pour le coup est l'avenir.

[Souriane]

bonjour souriane
regarde dans tes controls suplementaires si tu trouve ce composant les chiffres peuvent varier selon la version office

Non, je n'ai pas ce composant. J'ai même fait un search du fichier dans mon répertoire Windows et je ne l'ai pas.

[patricktoulon]

re
oui souriane j'en ai eu confirmation il l'ont enlevé depuis 2013
auitrement dit sans bidouille vba ou registre on a plus de calendrier sur excel a partir de 2013
merci pour les retours
moi qui etait pret a l'acheter ce 2019 je vais me r'aviser

[Invité]

Microsoft ce dirige vers un abonnement de licence mensuel avec de scripte de développement genre web service sous certification Microsoft uniquement pour les professionnels.

Fini la macro du dimanche soir après les séries télé!

VB.net restera le seul palliatif.

Microsoft à belle et bien fait une croix sur vba et ne compte pas faire de concession aux petits bidouilleurs que nous sommes.

[clementmarcotte]

Bonjour.

re
auitrement dit sans bidouille vba ou registre on a plus de calendrier sur excel a partir de 2013

Je ne sais pas si cela peut t'être utile, mais je viens de découvrir que https://www.codeproject.com/Articles...BA-with-VB-NET a un contrôle DTPicker (jamais essayé).



et Outlook a un contrôle Date (Jamais essayé non plus)

[patricktoulon]

merci clement pour le rtours
je vais verifier le outlook datepiker je l'ai aussi il me semble sur 2007 ca pourrait etre un compromis acceptable

[patricktoulon]

re
@clement
bon le date piker de outlook visiblement exige que l'on soit connecté quand je load l'usf et il devient invisible meme en mode VBE



je regarde le complement