Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Control calendar

Control calendar

22 réponses
Avatar
Jacques
Salut a toutes et tous

Je suis sous Excel 2000, et j'utilise le control calendar 9.0, mais
existe-t'il, un moyen de l'avoir en francais?

Merci, d'avance, ouille
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Jacques
LeSteph

Oui, avec le controlCalendar cela se passe comme cela, mais c'était pour
l'avoir en francais, j'utiliser le calendrier sur le site de Frédéric
Sigonneau. Et c'est avec celui-la que j'ai un ti souci.

Tu m'avais parler de la version .11, est elle en français et fonctionnerai
elle sous Excel 2000 ?

Merci, ouille

"LeSteph" a écrit dans le message de
news:euF65X$
Bonsoir,
Excuses mais comprends rien de ce que tu veux faire
normalement j'utilise en cliquant sur le jour voulu
dans le calendrier , ddans mon UF je mets juste calendar1 et 1 bouton
et pour dater la cellule active par exemple ceci suffit:
'******
'dans module:
Sub affcalendar()
UserForm1.Show

End Sub
'*******
'dans code userform1:

Private Sub CommandButton1_Click()

ActiveCell = Format(Calendar1, "dd/mmm/yyyy")
userform1.hide
End Sub
'***
Private Sub UserForm_initialize()
'initialise avec date du jour mais on peut changer
Calendar1 = Format(Now, "dd/mm/yyyy")
End Sub
'******
"Jacques" a écrit dans le message de news:
415dae2c$0$22553$
Isabelle, le forum

Non, en faite une fois que j'ai choisi le jours, je fais Ok, et cela me
met
systématiquement la date du jour dans le TextBox et si je veux faire
dans


l'UserForm concerné par la date, une autre chix (Sortire, par exemple,
je


suis obligé d'appyer deux fois sur le bouton.

Merci, ouille
"isabelle" a écrit dans le message de
news:
bonjour Jacques,

ne s'inizialise pas correctement


est ce que cela veut tu dire se remettre à la date d'aujourd'hui ?

isabelle


Isabelle, le forum

Merci, je l'avais bien vu, mais n'avait pas fait le rapprochement du
Nom
de


la cellule "Résultat".

Alors voilà ce que j'ai modigié dans la fonction :

'EXEMPLE
Sub Exemple()
Dim UnJour As Date
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
USF_FicheDeRenseignements.txtDateDeLaPrestation.Value > > Format(UnJour,
"dddd dd mmmm yyyy")
Else
USF_FicheDeRenseignements.txtDateDeLaPrestation.Value = ""
End If
End Sub

Et dans le bouton du Calendrier :

Private Sub OK_Click()
Unload Me
USF_FicheDeRenseignements.Show 0
End Sub

et voici ce que j'ai mis dans le TextBox de l'UserForm concerné par
ce




Calendrier :

Private Sub txtDateDeLaPrestation_DblClick(ByVal Cancel As
MSForms.ReturnBoolean)
'Calendar1.Visible = True
Me.Hide
Exemple
End Sub

Mais le soucie est que je ne peu avoirs que la date du jours, je ne
peu




rien
mettre d'autre.

Et l'UserForm d'appel, ne s'inizialise pas correctement, je suis
obligé




d'appuiyer deux fois pour faire n'importe quelle action.

Merci de votre et grosses bises Isabelle, Ouille
"isabelle" a écrit dans le message de
news:
bonjour Jacques,

ouvre visual basic sur le module "Documentation" et regarde le code
de
la



macro "exemple"

isabelle


Salut LeSteph, Clément MARGOTTE, le forum,

Je viens de regarder le calendrier en question, et question.
Comment faire pour l'utiliser comme le controle calendar, car je
n'arrice


même pas a voir comment cela envoie la valeur dans la cellule,
y'aurait




il
quelquechose de cacher quelque part,lol?

Je regarde encore plus en détail.

Merci, Ouille
"Clément Marcotte" a écrit dans
le






message
de news:%
Bonjour,

c'est qui FS?


Frédéric Sigonneau

et pour le fr chez FS


En fait, ce ne serait pas le modèle de MS mais un modèle maison

http://frederic.sigonneau.free.fr






















Avatar
AV
Tu m'avais parler de la version .11, est elle en français et fonctionnerai
elle sous Excel 2000 ?


Si tu as le Pack Office français (avec Access), tu as la version de "mscal.ocx"
en français que tu dois retrouver dans les références de ton vba-Project sous le
nom de "Microsoft Calendar Control 9.0"

AV

Avatar
LeSteph
Bonjour,
depuis ton premier message je t'ai envoyé en bal perso:

- un exemple frm +frx du.11 mais c'est pour 2003
tu peux tenter pour 2000 je ne sais pas.
- et aussile zip comprenant l'ocx du cal...fr le même que sur le site de F.
Sigonneau
Mais tant pis:

Suis aussi la piste que vient de te donner AV
cela ne peut être qu'une bonne solution.

leSteph

"Jacques" a écrit dans le message de news:
415e5222$0$26145$
LeSteph

Oui, avec le controlCalendar cela se passe comme cela, mais c'était pour
l'avoir en francais, j'utiliser le calendrier sur le site de Frédéric
Sigonneau. Et c'est avec celui-la que j'ai un ti souci.

Tu m'avais parler de la version .11, est elle en français et fonctionnerai
elle sous Excel 2000 ?

Merci, ouille

"LeSteph" a écrit dans le message de
news:euF65X$
Bonsoir,
Excuses mais comprends rien de ce que tu veux faire
normalement j'utilise en cliquant sur le jour voulu
dans le calendrier , ddans mon UF je mets juste calendar1 et 1 bouton
et pour dater la cellule active par exemple ceci suffit:
'******
'dans module:
Sub affcalendar()
UserForm1.Show

End Sub
'*******
'dans code userform1:

Private Sub CommandButton1_Click()

ActiveCell = Format(Calendar1, "dd/mmm/yyyy")
userform1.hide
End Sub
'***
Private Sub UserForm_initialize()
'initialise avec date du jour mais on peut changer
Calendar1 = Format(Now, "dd/mm/yyyy")
End Sub
'******
"Jacques" a écrit dans le message de news:
415dae2c$0$22553$
Isabelle, le forum

Non, en faite une fois que j'ai choisi le jours, je fais Ok, et cela me
met
systématiquement la date du jour dans le TextBox et si je veux faire
dans


l'UserForm concerné par la date, une autre chix (Sortire, par exemple,
je


suis obligé d'appyer deux fois sur le bouton.

Merci, ouille
"isabelle" a écrit dans le message de
news:
bonjour Jacques,

ne s'inizialise pas correctement


est ce que cela veut tu dire se remettre à la date d'aujourd'hui ?

isabelle


Isabelle, le forum

Merci, je l'avais bien vu, mais n'avait pas fait le rapprochement du
Nom
de


la cellule "Résultat".

Alors voilà ce que j'ai modigié dans la fonction :

'EXEMPLE
Sub Exemple()
Dim UnJour As Date
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
USF_FicheDeRenseignements.txtDateDeLaPrestation.Value >> > Format(UnJour,
"dddd dd mmmm yyyy")
Else
USF_FicheDeRenseignements.txtDateDeLaPrestation.Value = ""
End If
End Sub

Et dans le bouton du Calendrier :

Private Sub OK_Click()
Unload Me
USF_FicheDeRenseignements.Show 0
End Sub

et voici ce que j'ai mis dans le TextBox de l'UserForm concerné par
ce




Calendrier :

Private Sub txtDateDeLaPrestation_DblClick(ByVal Cancel As
MSForms.ReturnBoolean)
'Calendar1.Visible = True
Me.Hide
Exemple
End Sub

Mais le soucie est que je ne peu avoirs que la date du jours, je ne
peu




rien
mettre d'autre.

Et l'UserForm d'appel, ne s'inizialise pas correctement, je suis
obligé




d'appuiyer deux fois pour faire n'importe quelle action.

Merci de votre et grosses bises Isabelle, Ouille
"isabelle" a écrit dans le message de
news:
bonjour Jacques,

ouvre visual basic sur le module "Documentation" et regarde le
code
de
la



macro "exemple"

isabelle


Salut LeSteph, Clément MARGOTTE, le forum,

Je viens de regarder le calendrier en question, et question.
Comment faire pour l'utiliser comme le controle calendar, car je
n'arrice


même pas a voir comment cela envoie la valeur dans la cellule,
y'aurait




il
quelquechose de cacher quelque part,lol?

Je regarde encore plus en détail.

Merci, Ouille
"Clément Marcotte" a écrit dans
le






message
de news:%
Bonjour,

c'est qui FS?


Frédéric Sigonneau

et pour le fr chez FS


En fait, ce ne serait pas le modèle de MS mais un modèle
maison

http://frederic.sigonneau.free.fr


























Avatar
Frédéric Sigonneau
Bonjour,

Au cas où, je viens de constater que le lien de téléchargement de ce fichier
(CalFr2.zip) était rompu. De nouveau disponible, et fonctionnant correctement
chez moi :

http://frederic.sigonneau.free.fr/code/Calendriers/CalFr2.zip

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

LeSteph

Oui, avec le controlCalendar cela se passe comme cela, mais c'était pour
l'avoir en francais, j'utiliser le calendrier sur le site de Frédéric
Sigonneau. Et c'est avec celui-la que j'ai un ti souci.

Tu m'avais parler de la version .11, est elle en français et fonctionnerai
elle sous Excel 2000 ?

Merci, ouille

"LeSteph" a écrit dans le message de
news:euF65X$

Bonsoir,
Excuses mais comprends rien de ce que tu veux faire
normalement j'utilise en cliquant sur le jour voulu
dans le calendrier , ddans mon UF je mets juste calendar1 et 1 bouton
et pour dater la cellule active par exemple ceci suffit:
'******
'dans module:
Sub affcalendar()
UserForm1.Show

End Sub
'*******
'dans code userform1:

Private Sub CommandButton1_Click()

ActiveCell = Format(Calendar1, "dd/mmm/yyyy")
userform1.hide
End Sub
'***
Private Sub UserForm_initialize()
'initialise avec date du jour mais on peut changer
Calendar1 = Format(Now, "dd/mm/yyyy")
End Sub
'******
"Jacques" a écrit dans le message de news:
415dae2c$0$22553$

Isabelle, le forum

Non, en faite une fois que j'ai choisi le jours, je fais Ok, et cela me
met
systématiquement la date du jour dans le TextBox et si je veux faire



dans

l'UserForm concerné par la date, une autre chix (Sortire, par exemple,



je

suis obligé d'appyer deux fois sur le bouton.

Merci, ouille
"isabelle" a écrit dans le message de
news:

bonjour Jacques,


ne s'inizialise pas correctement


est ce que cela veut tu dire se remettre à la date d'aujourd'hui ?

isabelle


Isabelle, le forum

Merci, je l'avais bien vu, mais n'avait pas fait le rapprochement du
Nom



de

la cellule "Résultat".

Alors voilà ce que j'ai modigié dans la fonction :

'EXEMPLE
Sub Exemple()
Dim UnJour As Date
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
USF_FicheDeRenseignements.txtDateDeLaPrestation.Value >>>
Format(UnJour,



"dddd dd mmmm yyyy")
Else
USF_FicheDeRenseignements.txtDateDeLaPrestation.Value = ""
End If
End Sub

Et dans le bouton du Calendrier :

Private Sub OK_Click()
Unload Me
USF_FicheDeRenseignements.Show 0
End Sub

et voici ce que j'ai mis dans le TextBox de l'UserForm concerné par





ce

Calendrier :

Private Sub txtDateDeLaPrestation_DblClick(ByVal Cancel As
MSForms.ReturnBoolean)
'Calendar1.Visible = True
Me.Hide
Exemple
End Sub

Mais le soucie est que je ne peu avoirs que la date du jours, je ne





peu

rien

mettre d'autre.

Et l'UserForm d'appel, ne s'inizialise pas correctement, je suis





obligé

d'appuiyer deux fois pour faire n'importe quelle action.

Merci de votre et grosses bises Isabelle, Ouille
"isabelle" a écrit dans le message de
news:

bonjour Jacques,

ouvre visual basic sur le module "Documentation" et regarde le code
de




la

macro "exemple"

isabelle


Salut LeSteph, Clément MARGOTTE, le forum,

Je viens de regarder le calendrier en question, et question.
Comment faire pour l'utiliser comme le controle calendar, car je



n'arrice

même pas a voir comment cela envoie la valeur dans la cellule,





y'aurait

il

quelquechose de cacher quelque part,lol?

Je regarde encore plus en détail.

Merci, Ouille
"Clément Marcotte" a écrit dans







le

message

de news:%

Bonjour,


c'est qui FS?


Frédéric Sigonneau


et pour le fr chez FS


En fait, ce ne serait pas le modèle de MS mais un modèle maison

http://frederic.sigonneau.free.fr

























Avatar
Jacques
LeSteph, Alain

LeSteph, j'ai regardé dans ma bal mais je n'ai pas eu ton message, sinon, tu
pense bien que je t'aurais répondu.

J'ai bien le Microsoft Calendar control 9.0, mais il est en anglais.

Merci, a vous pour votre aide, Ouille
"AV" a écrit dans le message de
news:
Tu m'avais parler de la version .11, est elle en français et
fonctionnerai


elle sous Excel 2000 ?


Si tu as le Pack Office français (avec Access), tu as la version de
"mscal.ocx"

en français que tu dois retrouver dans les références de ton vba-Project
sous le

nom de "Microsoft Calendar Control 9.0"

AV





Avatar
LeSteph
Bonjour,
j'avais celui de wanadoo avant que tu ne migres pour free
et il fonctionne effectivement très bien . Quand j'ai vu pour le lien mort
je l'ai adressé à Jacques sur sa bal mais visiblement il ne l'a pas reçu et
je pensai te le signaler mais n'y songeais plus ce matin...désolé...
sinon au cas où cela ne soit pas voulu .../code est entièrement accessible
sans passer par ta page (index of)...

Bonne journée et merci pour tout ce que tu mets à notre disposition
c'est formidable et on ne le dira jamais assez merci.

lSteph

"Frédéric Sigonneau" a écrit dans le message de
news:
Bonjour,

Au cas où, je viens de constater que le lien de téléchargement de ce
fichier (CalFr2.zip) était rompu. De nouveau disponible, et fonctionnant
correctement chez moi :

http://frederic.sigonneau.free.fr/code/Calendriers/CalFr2.zip

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

LeSteph

Oui, avec le controlCalendar cela se passe comme cela, mais c'était pour
l'avoir en francais, j'utiliser le calendrier sur le site de Frédéric
Sigonneau. Et c'est avec celui-la que j'ai un ti souci.

Tu m'avais parler de la version .11, est elle en français et
fonctionnerai
elle sous Excel 2000 ?

Merci, ouille

"LeSteph" a écrit dans le message de
news:euF65X$

Bonsoir,
Excuses mais comprends rien de ce que tu veux faire
normalement j'utilise en cliquant sur le jour voulu
dans le calendrier , ddans mon UF je mets juste calendar1 et 1 bouton
et pour dater la cellule active par exemple ceci suffit:
'******
'dans module:
Sub affcalendar()
UserForm1.Show

End Sub
'*******
'dans code userform1:

Private Sub CommandButton1_Click()

ActiveCell = Format(Calendar1, "dd/mmm/yyyy")
userform1.hide
End Sub
'***
Private Sub UserForm_initialize()
'initialise avec date du jour mais on peut changer
Calendar1 = Format(Now, "dd/mm/yyyy")
End Sub
'******
"Jacques" a écrit dans le message de news:
415dae2c$0$22553$

Isabelle, le forum

Non, en faite une fois que j'ai choisi le jours, je fais Ok, et cela me
met
systématiquement la date du jour dans le TextBox et si je veux faire



dans

l'UserForm concerné par la date, une autre chix (Sortire, par exemple,



je

suis obligé d'appyer deux fois sur le bouton.

Merci, ouille
"isabelle" a écrit dans le message de
news:

bonjour Jacques,


ne s'inizialise pas correctement


est ce que cela veut tu dire se remettre à la date d'aujourd'hui ?

isabelle


Isabelle, le forum

Merci, je l'avais bien vu, mais n'avait pas fait le rapprochement du
Nom



de

la cellule "Résultat".

Alors voilà ce que j'ai modigié dans la fonction :

'EXEMPLE
Sub Exemple()
Dim UnJour As Date
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
USF_FicheDeRenseignements.txtDateDeLaPrestation.Value >>>>
Format(UnJour,



"dddd dd mmmm yyyy")
Else
USF_FicheDeRenseignements.txtDateDeLaPrestation.Value = ""
End If
End Sub

Et dans le bouton du Calendrier :

Private Sub OK_Click()
Unload Me
USF_FicheDeRenseignements.Show 0
End Sub

et voici ce que j'ai mis dans le TextBox de l'UserForm concerné par





ce

Calendrier :

Private Sub txtDateDeLaPrestation_DblClick(ByVal Cancel As
MSForms.ReturnBoolean)
'Calendar1.Visible = True
Me.Hide
Exemple
End Sub

Mais le soucie est que je ne peu avoirs que la date du jours, je ne





peu

rien

mettre d'autre.

Et l'UserForm d'appel, ne s'inizialise pas correctement, je suis





obligé

d'appuiyer deux fois pour faire n'importe quelle action.

Merci de votre et grosses bises Isabelle, Ouille
"isabelle" a écrit dans le message de
news:

bonjour Jacques,

ouvre visual basic sur le module "Documentation" et regarde le code
de




la

macro "exemple"

isabelle


Salut LeSteph, Clément MARGOTTE, le forum,

Je viens de regarder le calendrier en question, et question.
Comment faire pour l'utiliser comme le controle calendar, car je



n'arrice

même pas a voir comment cela envoie la valeur dans la cellule,





y'aurait

il

quelquechose de cacher quelque part,lol?

Je regarde encore plus en détail.

Merci, Ouille
"Clément Marcotte" a écrit dans







le

message

de news:%

Bonjour,


c'est qui FS?


Frédéric Sigonneau


et pour le fr chez FS


En fait, ce ne serait pas le modèle de MS mais un modèle maison

http://frederic.sigonneau.free.fr


























Avatar
Frédéric Sigonneau
Bonjour,

sinon au cas où cela ne soit pas voulu .../code est entièrement accessible
sans passer par ta page (index of)...


Ce n'est pas voulu, mais ce n'est pas bien grave : il n'y a (presque) pas de
fichiers cachés/secrets sur mon site. L'essentiel, de mon point de vue, est de
mettre à disposition du code utile, quelle que soit la façon dont les visiteurs
le récupèrent. Mais je te remercie de ton attention (dans les deux sens du terme).
Cordialement

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour,
j'avais celui de wanadoo avant que tu ne migres pour free
et il fonctionne effectivement très bien . Quand j'ai vu pour le lien mort
je l'ai adressé à Jacques sur sa bal mais visiblement il ne l'a pas reçu et
je pensai te le signaler mais n'y songeais plus ce matin...désolé...
sinon au cas où cela ne soit pas voulu .../code est entièrement accessible
sans passer par ta page (index of)...

Bonne journée et merci pour tout ce que tu mets à notre disposition
c'est formidable et on ne le dira jamais assez merci.

lSteph

"Frédéric Sigonneau" a écrit dans le message de
news:

Bonjour,

Au cas où, je viens de constater que le lien de téléchargement de ce
fichier (CalFr2.zip) était rompu. De nouveau disponible, et fonctionnant
correctement chez moi :

http://frederic.sigonneau.free.fr/code/Calendriers/CalFr2.zip

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !


LeSteph

Oui, avec le controlCalendar cela se passe comme cela, mais c'était pour
l'avoir en francais, j'utiliser le calendrier sur le site de Frédéric
Sigonneau. Et c'est avec celui-la que j'ai un ti souci.

Tu m'avais parler de la version .11, est elle en français et
fonctionnerai
elle sous Excel 2000 ?

Merci, ouille

"LeSteph" a écrit dans le message de
news:euF65X$


Bonsoir,
Excuses mais comprends rien de ce que tu veux faire
normalement j'utilise en cliquant sur le jour voulu
dans le calendrier , ddans mon UF je mets juste calendar1 et 1 bouton
et pour dater la cellule active par exemple ceci suffit:
'******
'dans module:
Sub affcalendar()
UserForm1.Show

End Sub
'*******
'dans code userform1:

Private Sub CommandButton1_Click()

ActiveCell = Format(Calendar1, "dd/mmm/yyyy")
userform1.hide
End Sub
'***
Private Sub UserForm_initialize()
'initialise avec date du jour mais on peut changer
Calendar1 = Format(Now, "dd/mm/yyyy")
End Sub
'******
"Jacques" a écrit dans le message de news:
415dae2c$0$22553$


Isabelle, le forum

Non, en faite une fois que j'ai choisi le jours, je fais Ok, et cela me
met
systématiquement la date du jour dans le TextBox et si je veux faire



dans


l'UserForm concerné par la date, une autre chix (Sortire, par exemple,



je


suis obligé d'appyer deux fois sur le bouton.

Merci, ouille
"isabelle" a écrit dans le message de
news:


bonjour Jacques,



ne s'inizialise pas correctement


est ce que cela veut tu dire se remettre à la date d'aujourd'hui ?

isabelle



Isabelle, le forum

Merci, je l'avais bien vu, mais n'avait pas fait le rapprochement du
Nom



de


la cellule "Résultat".

Alors voilà ce que j'ai modigié dans la fonction :

'EXEMPLE
Sub Exemple()
Dim UnJour As Date
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
USF_FicheDeRenseignements.txtDateDeLaPrestation.Value >>>>>
Format(UnJour,




"dddd dd mmmm yyyy")
Else
USF_FicheDeRenseignements.txtDateDeLaPrestation.Value = ""
End If
End Sub

Et dans le bouton du Calendrier :

Private Sub OK_Click()
Unload Me
USF_FicheDeRenseignements.Show 0
End Sub

et voici ce que j'ai mis dans le TextBox de l'UserForm concerné par





ce


Calendrier :

Private Sub txtDateDeLaPrestation_DblClick(ByVal Cancel As
MSForms.ReturnBoolean)
'Calendar1.Visible = True
Me.Hide
Exemple
End Sub

Mais le soucie est que je ne peu avoirs que la date du jours, je ne





peu


rien


mettre d'autre.

Et l'UserForm d'appel, ne s'inizialise pas correctement, je suis





obligé


d'appuiyer deux fois pour faire n'importe quelle action.

Merci de votre et grosses bises Isabelle, Ouille
"isabelle" a écrit dans le message de
news:


bonjour Jacques,

ouvre visual basic sur le module "Documentation" et regarde le code
de




la


macro "exemple"


isabelle



Salut LeSteph, Clément MARGOTTE, le forum,

Je viens de regarder le calendrier en question, et question.
Comment faire pour l'utiliser comme le controle calendar, car je



n'arrice


même pas a voir comment cela envoie la valeur dans la cellule,





y'aurait


il


quelquechose de cacher quelque part,lol?

Je regarde encore plus en détail.

Merci, Ouille
"Clément Marcotte" a écrit dans







le


message


de news:%


Bonjour,



c'est qui FS?


Frédéric Sigonneau



et pour le fr chez FS


En fait, ce ne serait pas le modèle de MS mais un modèle maison

http://frederic.sigonneau.free.fr



























Avatar
AV
J'ai bien le Microsoft Calendar control 9.0, mais il est en anglais.


Avec un Pack Office en français ?
Bizarre car je l'utilise depuis "berlurette" et chez moi c'est en français...

AV

Avatar
Clément Marcotte
Bonjour,

J'ai bien le Microsoft Calendar control 9.0, mais il est en anglais.


C'est peut-être parce qu'un programme d'installation à la broche à
foin a remplacé ta version française par une version anglaise. Prend
celui de ton CD-ROM d'origine et copie le à la place de celui qui est
sur ton disque dur.

Avatar
Jacques
Isabelle, LeSteph, Alain Vallon, Frédéric Sigonneau, le forum

Merci, pour votre aide, j'ai récupérer : "mscal.ocx" sur mon CDrom, et je
l'ai remis dans a l'endroit ou se trouver l'ancien.

Il y avait deux fois ce fichier dans :

C:WINDOWSSYSTEM
et
C:Program FilesMicrosoft OfficeOffice

es-ce normal?

Merci, trés beaucoup, Ouille

"Frédéric Sigonneau" a écrit dans le message de
news:
Bonjour,

sinon au cas où cela ne soit pas voulu .../code est entièrement
accessible


sans passer par ta page (index of)...


Ce n'est pas voulu, mais ce n'est pas bien grave : il n'y a (presque) pas
de

fichiers cachés/secrets sur mon site. L'essentiel, de mon point de vue,
est de

mettre à disposition du code utile, quelle que soit la façon dont les
visiteurs

le récupèrent. Mais je te remercie de ton attention (dans les deux sens du
terme).

Cordialement

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour,
j'avais celui de wanadoo avant que tu ne migres pour free
et il fonctionne effectivement très bien . Quand j'ai vu pour le lien
mort


je l'ai adressé à Jacques sur sa bal mais visiblement il ne l'a pas reçu
et


je pensai te le signaler mais n'y songeais plus ce matin...désolé...
sinon au cas où cela ne soit pas voulu .../code est entièrement
accessible


sans passer par ta page (index of)...

Bonne journée et merci pour tout ce que tu mets à notre disposition
c'est formidable et on ne le dira jamais assez merci.

lSteph

"Frédéric Sigonneau" a écrit dans le
message de


news:

Bonjour,

Au cas où, je viens de constater que le lien de téléchargement de ce
fichier (CalFr2.zip) était rompu. De nouveau disponible, et fonctionnant
correctement chez moi :

http://frederic.sigonneau.free.fr/code/Calendriers/CalFr2.zip

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !


LeSteph

Oui, avec le controlCalendar cela se passe comme cela, mais c'était
pour




l'avoir en francais, j'utiliser le calendrier sur le site de Frédéric
Sigonneau. Et c'est avec celui-la que j'ai un ti souci.

Tu m'avais parler de la version .11, est elle en français et
fonctionnerai
elle sous Excel 2000 ?

Merci, ouille

"LeSteph" a écrit dans le message de
news:euF65X$


Bonsoir,
Excuses mais comprends rien de ce que tu veux faire
normalement j'utilise en cliquant sur le jour voulu
dans le calendrier , ddans mon UF je mets juste calendar1 et 1 bouton
et pour dater la cellule active par exemple ceci suffit:
'******
'dans module:
Sub affcalendar()
UserForm1.Show

End Sub
'*******
'dans code userform1:

Private Sub CommandButton1_Click()

ActiveCell = Format(Calendar1, "dd/mmm/yyyy")
userform1.hide
End Sub
'***
Private Sub UserForm_initialize()
'initialise avec date du jour mais on peut changer
Calendar1 = Format(Now, "dd/mm/yyyy")
End Sub
'******
"Jacques" a écrit dans le message de news:
415dae2c$0$22553$


Isabelle, le forum

Non, en faite une fois que j'ai choisi le jours, je fais Ok, et cela
me






met
systématiquement la date du jour dans le TextBox et si je veux faire



dans


l'UserForm concerné par la date, une autre chix (Sortire, par
exemple,







je


suis obligé d'appyer deux fois sur le bouton.

Merci, ouille
"isabelle" a écrit dans le message de
news:


bonjour Jacques,



ne s'inizialise pas correctement


est ce que cela veut tu dire se remettre à la date d'aujourd'hui ?

isabelle



Isabelle, le forum

Merci, je l'avais bien vu, mais n'avait pas fait le rapprochement
du








Nom



de


la cellule "Résultat".

Alors voilà ce que j'ai modigié dans la fonction :

'EXEMPLE
Sub Exemple()
Dim UnJour As Date
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
USF_FicheDeRenseignements.txtDateDeLaPrestation.Value > >>>>>
Format(UnJour,




"dddd dd mmmm yyyy")
Else
USF_FicheDeRenseignements.txtDateDeLaPrestation.Value = ""
End If
End Sub

Et dans le bouton du Calendrier :

Private Sub OK_Click()
Unload Me
USF_FicheDeRenseignements.Show 0
End Sub

et voici ce que j'ai mis dans le TextBox de l'UserForm concerné par





ce


Calendrier :

Private Sub txtDateDeLaPrestation_DblClick(ByVal Cancel As
MSForms.ReturnBoolean)
'Calendar1.Visible = True
Me.Hide
Exemple
End Sub

Mais le soucie est que je ne peu avoirs que la date du jours, je ne





peu


rien


mettre d'autre.

Et l'UserForm d'appel, ne s'inizialise pas correctement, je suis





obligé


d'appuiyer deux fois pour faire n'importe quelle action.

Merci de votre et grosses bises Isabelle, Ouille
"isabelle" a écrit dans le message de
news:


bonjour Jacques,

ouvre visual basic sur le module "Documentation" et regarde le
code









de




la


macro "exemple"


isabelle



Salut LeSteph, Clément MARGOTTE, le forum,

Je viens de regarder le calendrier en question, et question.
Comment faire pour l'utiliser comme le controle calendar, car je



n'arrice


même pas a voir comment cela envoie la valeur dans la cellule,





y'aurait


il


quelquechose de cacher quelque part,lol?

Je regarde encore plus en détail.

Merci, Ouille
"Clément Marcotte" a écrit dans







le


message


de news:%


Bonjour,



c'est qui FS?


Frédéric Sigonneau



et pour le fr chez FS


En fait, ce ne serait pas le modèle de MS mais un modèle maison

http://frederic.sigonneau.free.fr





























1 2 3