Calendrier sans activeX "mscomct2.ocx"

[leakim]

Bonjour,

J'ai mis en place un fichier de réservation, il y a un an et je cherche à améliorer mon fichier afin de dispenser l'utilisateur du module activeX mscomct2.ocx, qui n'est pas toujours simple à installer surtout sur un serveur.

Vous pouvez trouver la première version sur ce fil https://www.excel-downloads.com/threads/reservation-de-salle.216005/

J'aimerai passer de

à
Le calendrier est inspiré du travail de xhudi69

Je suis parvenu à faire plusieurs adaptations, pour autant il y a un bug, je ne peux pas sélectionner en cliquant sur le calendrier depuis que j'ai cherché à l'inclure dans mon userform???

Si vous avez une idée, je joins un lien pour accéder à mon fichier

fichier de réservation

Cordialement,

Leakim

 

[gilbert_RGI]

Re : Calendrier sans activeX "mscomct2.ocx"

bonsoir,

j'ai constaté que les labels n'avaient pas les mêmes noms
d'un calendrier à l'autre
ils commencent par label3

peut-être est-ce ça pas le temps pour le moment !!!!

 

[xhudi69]

Re : Calendrier sans activeX "mscomct2.ocx"

Bonjour leakim, le Forum,
Bonjour gilbert_RGI

désolé pour le retard, trop de travail en ce moment

@leakim: peux-tu joindre ton fichier directement dans le fil, je ne peux pas l'ouvrir via ton lien?

Les petits bugs ont été corrigés dans la version monthview_perso_V7 enPJ

@+

 

[JCGL]

Re : Calendrier sans activeX "mscomct2.ocx"

Bonjour à tous,

Le fichier de notre ami en attachement.

A+ à tous

 

[xhudi69]

Re : Calendrier sans activeX "mscomct2.ocx"

Bonjour leakim, le Forum,
Bonjour JCGL

Merci beaucoup JCGL, je vois cela dès que possible.

@+

 

[xhudi69]

Re : Calendrier sans activeX "mscomct2.ocx"

Bonjour à toutes et à tous

Merci JCGL , c'est fonctionnel

En PJ le fichier remanié avec le MonthView_Perso_V7 et la correction des petits bugs .
Je laisse le soin à leakim de l'adapter pour le bouton "Réserver"

@+

 

[JCGL]

Re : Calendrier sans activeX "mscomct2.ocx"

Bonjour à tous,

Il y a toujours un décalage de deux jours sur le MonthView Résa : samedi 06 avril 2015.
Je ne parviens pas à renommer le premier Label en Label1 (il est nommé Label3).

A+ à tous

 

[xhudi69]

Re : Calendrier sans activeX "mscomct2.ocx"

Bonjour leakim, le Forum,

Bonjour JCGL

Je ne parviens pas à renommer le premier Label en Label1 (il est nommé Label3).

Si tu regardes le Frame_a et que tu le dilates et que tu le questionnes; il y a un Label1
Il suffit que leakim le renomme en Label100 par exemple et remanie le calendrier.



@+

 

[leakim]

Re : Calendrier sans activeX "mscomct2.ocx"

Bonjour à vous,
Merci pour cette collaboration active !!!

Je regarde la version 7 pour l'intégrer dans mon userform.

Gilbert_RGI, a taper dans le "mil" car j'ai retrouvé deux labels qui sont cachés dans mon userform, merci JCGL pour ton intérêt.

Je vous joins le fichier là où en est. reservation sans module V4
Vous constaterez qu'il n'y a plus de bug pour le 1 septembre 2015

Aujourd'hui je fais faire soft au niveau excel... je vous associe dès que mon avancé sera significative.

Bonne journée à vous,

Cordialement,

Leakim

 

[leakim]

Re : Calendrier sans activeX "mscomct2.ocx"

Bonjour leakim, le Forum,

Bonjour JCGL


Si tu regardes le Frame_a et que tu le dilates et que tu le questionnes; il y a un Label1
Il suffit que leakim le renomme en Label100 par exemple et remanie le calendrier.

Regarde la pièce jointe 332378

@+

Bonjour,
Le temps de ma rédaction est tu as réagis... oui c'est bien çà, j'ai du aussi renommer tout les labels ... mais bon c'est résolu... On avance !
Merci,

Leakim

 

[xhudi69]

Re : Calendrier sans activeX "mscomct2.ocx"

Bonjour leakim, le Forum,

En PJ ton fichier remanié avec la version V7 dans les deux cas
Si cela te conviens....

PS: tout le monde aura remarqué que dans les versions antérieur à la "monthview_perso_V7" que le 31/12/2014 n'existait pas

@+

 

[ChTi160]

Re : Calendrier sans activeX "mscomct2.ocx"

Bonjour Leakim
Bonjour le fil
Bonjour le Forum

Une petite question concernant la rubrique"Fréquence de Réservation"
que veux dire
"Le Jour Seul" j'ai compris Lol
"Toutes les Semaines"
"Semaines Paires Ou Impaires"
"Tous Les Mois"
Est ce la répétition du Jour Choisi ex : sélection du Lundi 20 Avril 2015
donc réservation de Chaque Lundi de toutes les semaines ou semaine paire(s) ou Impaire(s), d'un Mois ou de plusieurs mois à partir de ce Lundi 20 Avril 2015 , Sélectionné ?
Merci par avance
Bonne journée
Amicalement
Jean marie

 

[leakim]

Re : Calendrier sans activeX "mscomct2.ocx"

Bonjour,
Tu me dis

Est ce la répétition du Jour Choisi ex : sélection du Lundi 20 Avril 2015
donc réservation de Chaque Lundi de toutes les semaines ou semaine paire(s) ou Impaire(s), d'un Mois ou de plusieurs mois à partir de ce Lundi 20 Avril 2015 , Sélectionné ?
Jean marie

Je te répond oui, c'est l'idée. Lorsque tu coches toutes les semaines, la boucle se fait jusqu'à la fin du mois choisit. Si tu valides en plus, semaine paire ou impaire, la boucle se fait seulement sur les semaines du type que tu as sélectionné.
Pour le mois c'est la même idée, sauf que j'ai un souci avec le jour. Car si je choisis le lundi 20 avril et que je veux ne réservation pendant trois mois, j'ai des décalages de jour. La réservation va bien se faire sur le 20 du mois mais plus le lundi... J'ai eu une piste pour avec une fonction qui détermine le numéro de la semaine... Je creuse encore pour la mise en place.

En espérant répondre à tes questionnements.

En tout cas merci de ton intérêt.

Cordialement,

Leakim

 

[leakim]

Re : Calendrier sans activeX "mscomct2.ocx"

Re,
D'ailleurs pendant que j'y suis à tout partager, je partage mon interrogation de où est ce que je peu mettre le code eriiic avec la fonction suivante

Function moisSuivantMmJS(dat As Date, Optional nbMois As Long = 1) As Variant
' à partir d'une date,
' fournit le même xième 'jour de la semaine' du mois suivant
' ex : moisSuivant("10/03/15") ==> 14/04/2015 (2e mardi du mois suivant)
' ex : moisSuivant("10/03/15",3) ==> 09/06/2015 (2e mardi 3 mois plus tard)
' *** limité au 4ème jour/sem du mois ***
' eriiic

Dim numJo As Long, d1 As Date
numJo = Day(dat) \ 7
If numJo > 3 Then
'limitation au 4ème dans le mois
moisSuivantMmJS = CVErr(xlErrNum) ' #NOMBRE!, hors domaine
Exit Function
End If
d1 = CDate("1/" & Format(DateAdd("m", nbMois, dat), "mm/yyyy")) ' 1er du mois
moisSuivantMmJS = d1 + (Weekday(dat, 2) - Weekday(d1, 2) + 7) Mod 7 + numJo * 7
End Function

A poursuivre,

Leakim

 

[ChTi160]

Re : Calendrier sans activeX "mscomct2.ocx"

Bonjour Leakim
Bonjour le Fil
Bonjour le Forum

Merci de ces précisions et du Partage
Autre question utilises tu les ListView sans Problème ?

merci par avance
Amicalement
Jean Marie

 

[leakim]

Re : Calendrier sans activeX "mscomct2.ocx"

Bonjour,
Oui j'utilises les listview sans souci ? As-tu rencontré un problème, si oui de quelle nature ?

Cordialement,

Leakim