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 Pointer vers un fichier OCX

Pointer vers un fichier OCX

14 réponses
Avatar
Michel HOLDERITH
Bonjour tout le monde,

Voila j'utilise dans un Userform un calendrier pointant vers un fichier OCX.
Lorsque j'ai voulu utiliser ce meme fichier sur un autre ordinateur, bien
sur ce fichier OCX n'etait pas present ce qui fait que j'ai copier ce
fichier dans un repertoire de mon choix.

Ma question et peut-on faire pointer le Userform et/ou le calendrier vers ce
fichier OCX, sans avoir besoin d'aller dans les references de VBA pour
l'activer ?

Pour info ce fichier se trouve sur disquette et/ou CD graver pour la
distribution. C'est pourquoi j'ai creer un repertoire "setup" ou mon fichier
OCX est copie.

Merci d'avance pour vos reponses,
@+
Michel.
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
Avatar
Clément Marcotte
Bonjour,

Chez Frédéric, parmi d'autres:

http://frederic.sigonneau.free.fr/code/VBE/AjouterSupprimerReference.txt



"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Bonjour tout le monde,

Voila j'utilise dans un Userform un calendrier pointant vers un
fichier OCX.

Lorsque j'ai voulu utiliser ce meme fichier sur un autre ordinateur,
bien

sur ce fichier OCX n'etait pas present ce qui fait que j'ai copier
ce

fichier dans un repertoire de mon choix.

Ma question et peut-on faire pointer le Userform et/ou le calendrier
vers ce

fichier OCX, sans avoir besoin d'aller dans les references de VBA
pour

l'activer ?

Pour info ce fichier se trouve sur disquette et/ou CD graver pour la
distribution. C'est pourquoi j'ai creer un repertoire "setup" ou mon
fichier

OCX est copie.

Merci d'avance pour vos reponses,
@+
Michel.




Avatar
Michel Pierron
Bonjour Michel;
Tu n'as pas besoin d'aller dans les references de VBA pour activer l'OCX si
tu utilises une méthode CreateObject en étant sûr que l'OCX est correctement
installé. Tu peux créer le calendrier à l'initialisation de l'UserForm;
exemple:

Private Sub UserForm_Initialize()
On Error GoTo 1
Dim Ctl As Control
Set Ctl = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
Ctl.Left = 6: Ctl.Top = 6
Ctl.Width = 198: Ctl.Height = 132
Exit Sub
1: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48: End
End Sub

MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Bonjour tout le monde,

Voila j'utilise dans un Userform un calendrier pointant vers un fichier
OCX.

Lorsque j'ai voulu utiliser ce meme fichier sur un autre ordinateur, bien
sur ce fichier OCX n'etait pas present ce qui fait que j'ai copier ce
fichier dans un repertoire de mon choix.

Ma question et peut-on faire pointer le Userform et/ou le calendrier vers
ce

fichier OCX, sans avoir besoin d'aller dans les references de VBA pour
l'activer ?

Pour info ce fichier se trouve sur disquette et/ou CD graver pour la
distribution. C'est pourquoi j'ai creer un repertoire "setup" ou mon
fichier

OCX est copie.

Merci d'avance pour vos reponses,
@+
Michel.




Avatar
Michel HOLDERITH
Bonjour,
J'ai essaye mais ca ne marche pas.....
n'yaurait-il pas une autre solution ?
Merci,
@+
Michel.

"Clément Marcotte" wrote in message
news:
Bonjour,

Chez Frédéric, parmi d'autres:

http://frederic.sigonneau.free.fr/code/VBE/AjouterSupprimerReference.txt



"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Bonjour tout le monde,

Voila j'utilise dans un Userform un calendrier pointant vers un
fichier OCX.

Lorsque j'ai voulu utiliser ce meme fichier sur un autre ordinateur,
bien

sur ce fichier OCX n'etait pas present ce qui fait que j'ai copier
ce

fichier dans un repertoire de mon choix.

Ma question et peut-on faire pointer le Userform et/ou le calendrier
vers ce

fichier OCX, sans avoir besoin d'aller dans les references de VBA
pour

l'activer ?

Pour info ce fichier se trouve sur disquette et/ou CD graver pour la
distribution. C'est pourquoi j'ai creer un repertoire "setup" ou mon
fichier

OCX est copie.

Merci d'avance pour vos reponses,
@+
Michel.







Avatar
Michel HOLDERITH
Salut,
Ca marche tip-top, par contre niveau de la mise en page ce n'est pas ca....
le mois et le jours sont trop colle l'un a l'autre... comment gerer cela ?
Merci,
@+
Michel.

"Michel Pierron" wrote in message
news:
Bonjour Michel;
Tu n'as pas besoin d'aller dans les references de VBA pour activer l'OCX
si

tu utilises une méthode CreateObject en étant sûr que l'OCX est
correctement

installé. Tu peux créer le calendrier à l'initialisation de l'UserForm;
exemple:

Private Sub UserForm_Initialize()
On Error GoTo 1
Dim Ctl As Control
Set Ctl = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
Ctl.Left = 6: Ctl.Top = 6
Ctl.Width = 198: Ctl.Height = 132
Exit Sub
1: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48: End
End Sub

MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Bonjour tout le monde,

Voila j'utilise dans un Userform un calendrier pointant vers un fichier
OCX.

Lorsque j'ai voulu utiliser ce meme fichier sur un autre ordinateur,
bien


sur ce fichier OCX n'etait pas present ce qui fait que j'ai copier ce
fichier dans un repertoire de mon choix.

Ma question et peut-on faire pointer le Userform et/ou le calendrier
vers


ce
fichier OCX, sans avoir besoin d'aller dans les references de VBA pour
l'activer ?

Pour info ce fichier se trouve sur disquette et/ou CD graver pour la
distribution. C'est pourquoi j'ai creer un repertoire "setup" ou mon
fichier

OCX est copie.

Merci d'avance pour vos reponses,
@+
Michel.







Avatar
Michel Pierron
Bonjour Michel;
Ajuste tes paramètres Ctl.Width = 222 et Ctl.Height = 144

Private WithEvents Calendar1 As Calendar

Private Sub UserForm_Initialize()
On Error GoTo 1
Dim Ctl As Control
Set Ctl = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
Ctl.Left = 6: Ctl.Top = 6
Ctl.Width = 222: Ctl.Height = 144
Set Calendar1 = Ctl
Exit Sub
1: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48: End
End Sub

Private Sub Calendar1_Click()
With Calendar1
ActiveCell = DateSerial(.Year, .Month, .Day)
End With
End Sub

MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Bonjour,
J'ai essaye mais ca ne marche pas.....
n'yaurait-il pas une autre solution ?
Merci,
@+
Michel.

"Clément Marcotte" wrote in message
news:
Bonjour,

Chez Frédéric, parmi d'autres:

http://frederic.sigonneau.free.fr/code/VBE/AjouterSupprimerReference.txt



"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Bonjour tout le monde,

Voila j'utilise dans un Userform un calendrier pointant vers un
fichier OCX.

Lorsque j'ai voulu utiliser ce meme fichier sur un autre ordinateur,
bien

sur ce fichier OCX n'etait pas present ce qui fait que j'ai copier
ce

fichier dans un repertoire de mon choix.

Ma question et peut-on faire pointer le Userform et/ou le calendrier
vers ce

fichier OCX, sans avoir besoin d'aller dans les references de VBA
pour

l'activer ?

Pour info ce fichier se trouve sur disquette et/ou CD graver pour la
distribution. C'est pourquoi j'ai creer un repertoire "setup" ou mon
fichier

OCX est copie.

Merci d'avance pour vos reponses,
@+
Michel.











Avatar
Michel HOLDERITH
Salut,

Merci pour ta reponse, ca marche tip-top.....
Par contre une autre question.... comment faire pour recuperer la valeur de
Ctl ?

Apres click boutton OK cela devrait pouvoir me mettre la valeur du
calendrier dans un label.... mais Ctl reste desesperement vide.....

J'ai vu que Me.control.item(3) : _value0/06/04

Comment recuperer cette valeur, ou un autre moyen ?

Merci d'avance,
@+
Michel.


"Michel Pierron" wrote in message
news:
Bonjour Michel;
Ajuste tes paramètres Ctl.Width = 222 et Ctl.Height = 144

Private WithEvents Calendar1 As Calendar

Private Sub UserForm_Initialize()
On Error GoTo 1
Dim Ctl As Control
Set Ctl = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
Ctl.Left = 6: Ctl.Top = 6
Ctl.Width = 222: Ctl.Height = 144
Set Calendar1 = Ctl
Exit Sub
1: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48: End
End Sub

Private Sub Calendar1_Click()
With Calendar1
ActiveCell = DateSerial(.Year, .Month, .Day)
End With
End Sub

MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Bonjour,
J'ai essaye mais ca ne marche pas.....
n'yaurait-il pas une autre solution ?
Merci,
@+
Michel.

"Clément Marcotte" wrote in message
news:
Bonjour,

Chez Frédéric, parmi d'autres:


http://frederic.sigonneau.free.fr/code/VBE/AjouterSupprimerReference.txt






"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Bonjour tout le monde,

Voila j'utilise dans un Userform un calendrier pointant vers un
fichier OCX.

Lorsque j'ai voulu utiliser ce meme fichier sur un autre ordinateur,
bien

sur ce fichier OCX n'etait pas present ce qui fait que j'ai copier
ce

fichier dans un repertoire de mon choix.

Ma question et peut-on faire pointer le Userform et/ou le calendrier
vers ce

fichier OCX, sans avoir besoin d'aller dans les references de VBA
pour

l'activer ?

Pour info ce fichier se trouve sur disquette et/ou CD graver pour la
distribution. C'est pourquoi j'ai creer un repertoire "setup" ou mon
fichier

OCX est copie.

Merci d'avance pour vos reponses,
@+
Michel.














Avatar
Michel Pierron
Bonjour Michel;

Vérifie que tu as bien indiqué en tête de ton module UserForm:
Private WithEvents Calendar1 As Calendar


' Ensuite, pour initialiser le calendrier, fais au plus simple comme ceci:
Private Sub UserForm_Initialize()
On Error GoTo 1
Set Calendar1 = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
With Calendar1
.Left = 6: .Top = 6
.Width = 222: .Height = 144
End With
Exit Sub
1: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48: End
End Sub


' Ajoute la procédure évènementielle:
Private Sub Calendar1_Click()
Label1 = Calendar1.Value
End Sub

Et ça devrait rouler.
MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Salut,

Merci pour ta reponse, ca marche tip-top.....
Par contre une autre question.... comment faire pour recuperer la valeur
de

Ctl ?

Apres click boutton OK cela devrait pouvoir me mettre la valeur du
calendrier dans un label.... mais Ctl reste desesperement vide.....

J'ai vu que Me.control.item(3) : _value0/06/04

Comment recuperer cette valeur, ou un autre moyen ?

Merci d'avance,
@+
Michel.


"Michel Pierron" wrote in message
news:
Bonjour Michel;
Ajuste tes paramètres Ctl.Width = 222 et Ctl.Height = 144

Private WithEvents Calendar1 As Calendar

Private Sub UserForm_Initialize()
On Error GoTo 1
Dim Ctl As Control
Set Ctl = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
Ctl.Left = 6: Ctl.Top = 6
Ctl.Width = 222: Ctl.Height = 144
Set Calendar1 = Ctl
Exit Sub
1: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48: End
End Sub

Private Sub Calendar1_Click()
With Calendar1
ActiveCell = DateSerial(.Year, .Month, .Day)
End With
End Sub

MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Bonjour,
J'ai essaye mais ca ne marche pas.....
n'yaurait-il pas une autre solution ?
Merci,
@+
Michel.

"Clément Marcotte" wrote in message
news:
Bonjour,

Chez Frédéric, parmi d'autres:


http://frederic.sigonneau.free.fr/code/VBE/AjouterSupprimerReference.txt






"Michel HOLDERITH" <#nospam# a écrit dans le message
de




news:
Bonjour tout le monde,

Voila j'utilise dans un Userform un calendrier pointant vers un
fichier OCX.

Lorsque j'ai voulu utiliser ce meme fichier sur un autre
ordinateur,





bien
sur ce fichier OCX n'etait pas present ce qui fait que j'ai copier
ce

fichier dans un repertoire de mon choix.

Ma question et peut-on faire pointer le Userform et/ou le
calendrier





vers ce
fichier OCX, sans avoir besoin d'aller dans les references de VBA
pour

l'activer ?

Pour info ce fichier se trouve sur disquette et/ou CD graver pour
la





distribution. C'est pourquoi j'ai creer un repertoire "setup" ou
mon





fichier
OCX est copie.

Merci d'avance pour vos reponses,
@+
Michel.


















Avatar
Michel HOLDERITH
Salut,
effectivement j'avais oublie : Private WithEvents Calendar1 As Calendar
Maintenant ca marche, sauf..... sauf..... l'essentiel, car :
Sous (windows 98 & windows millenium) avec Excel 2000 tout marche bien
Sous (windows2000) avec Excel 2002 tout marche bien
Sous XP et excel 2002 ca ne marche pas.... :o(
Une raison particuliere ? sachant que je n'ai pas d'XP et que l'utilisateur
final sera lui sur XP.......
@+
Merci encore pour ton aide,
Michel.

"Michel Pierron" wrote in message
news:
Bonjour Michel;

Vérifie que tu as bien indiqué en tête de ton module UserForm:
Private WithEvents Calendar1 As Calendar


' Ensuite, pour initialiser le calendrier, fais au plus simple comme ceci:
Private Sub UserForm_Initialize()
On Error GoTo 1
Set Calendar1 = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
With Calendar1
.Left = 6: .Top = 6
.Width = 222: .Height = 144
End With
Exit Sub
1: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48: End
End Sub


' Ajoute la procédure évènementielle:
Private Sub Calendar1_Click()
Label1 = Calendar1.Value
End Sub

Et ça devrait rouler.
MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Salut,

Merci pour ta reponse, ca marche tip-top.....
Par contre une autre question.... comment faire pour recuperer la valeur
de

Ctl ?

Apres click boutton OK cela devrait pouvoir me mettre la valeur du
calendrier dans un label.... mais Ctl reste desesperement vide.....

J'ai vu que Me.control.item(3) : _value0/06/04

Comment recuperer cette valeur, ou un autre moyen ?

Merci d'avance,
@+
Michel.


"Michel Pierron" wrote in message
news:
Bonjour Michel;
Ajuste tes paramètres Ctl.Width = 222 et Ctl.Height = 144

Private WithEvents Calendar1 As Calendar

Private Sub UserForm_Initialize()
On Error GoTo 1
Dim Ctl As Control
Set Ctl = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
Ctl.Left = 6: Ctl.Top = 6
Ctl.Width = 222: Ctl.Height = 144
Set Calendar1 = Ctl
Exit Sub
1: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48: End
End Sub

Private Sub Calendar1_Click()
With Calendar1
ActiveCell = DateSerial(.Year, .Month, .Day)
End With
End Sub

MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Bonjour,
J'ai essaye mais ca ne marche pas.....
n'yaurait-il pas une autre solution ?
Merci,
@+
Michel.

"Clément Marcotte" wrote in message
news:
Bonjour,

Chez Frédéric, parmi d'autres:


http://frederic.sigonneau.free.fr/code/VBE/AjouterSupprimerReference.txt






"Michel HOLDERITH" <#nospam# a écrit dans le message
de




news:
Bonjour tout le monde,

Voila j'utilise dans un Userform un calendrier pointant vers un
fichier OCX.

Lorsque j'ai voulu utiliser ce meme fichier sur un autre
ordinateur,





bien
sur ce fichier OCX n'etait pas present ce qui fait que j'ai
copier






ce
fichier dans un repertoire de mon choix.

Ma question et peut-on faire pointer le Userform et/ou le
calendrier





vers ce
fichier OCX, sans avoir besoin d'aller dans les references de
VBA






pour
l'activer ?

Pour info ce fichier se trouve sur disquette et/ou CD graver
pour






la
distribution. C'est pourquoi j'ai creer un repertoire "setup" ou
mon





fichier
OCX est copie.

Merci d'avance pour vos reponses,
@+
Michel.





















Avatar
Michel Pierron
Bonjour Michel;
Je viens de tester sous XP + xl2002, ça marche nickel !
Il faut bien sur que le fichier .oc existe sur la machine et qu'il soit
coorectement enregistré.
MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:e$cSd2H%
Salut,
effectivement j'avais oublie : Private WithEvents Calendar1 As Calendar
Maintenant ca marche, sauf..... sauf..... l'essentiel, car :
Sous (windows 98 & windows millenium) avec Excel 2000 tout marche bien
Sous (windows2000) avec Excel 2002 tout marche bien
Sous XP et excel 2002 ca ne marche pas.... :o(
Une raison particuliere ? sachant que je n'ai pas d'XP et que
l'utilisateur

final sera lui sur XP.......
@+
Merci encore pour ton aide,
Michel.

"Michel Pierron" wrote in message
news:
Bonjour Michel;

Vérifie que tu as bien indiqué en tête de ton module UserForm:
Private WithEvents Calendar1 As Calendar


' Ensuite, pour initialiser le calendrier, fais au plus simple comme
ceci:


Private Sub UserForm_Initialize()
On Error GoTo 1
Set Calendar1 = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
With Calendar1
.Left = 6: .Top = 6
.Width = 222: .Height = 144
End With
Exit Sub
1: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48: End
End Sub


' Ajoute la procédure évènementielle:
Private Sub Calendar1_Click()
Label1 = Calendar1.Value
End Sub

Et ça devrait rouler.
MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Salut,

Merci pour ta reponse, ca marche tip-top.....
Par contre une autre question.... comment faire pour recuperer la
valeur



de
Ctl ?

Apres click boutton OK cela devrait pouvoir me mettre la valeur du
calendrier dans un label.... mais Ctl reste desesperement vide.....

J'ai vu que Me.control.item(3) : _value0/06/04

Comment recuperer cette valeur, ou un autre moyen ?

Merci d'avance,
@+
Michel.


"Michel Pierron" wrote in message
news:
Bonjour Michel;
Ajuste tes paramètres Ctl.Width = 222 et Ctl.Height = 144

Private WithEvents Calendar1 As Calendar

Private Sub UserForm_Initialize()
On Error GoTo 1
Dim Ctl As Control
Set Ctl = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
Ctl.Left = 6: Ctl.Top = 6
Ctl.Width = 222: Ctl.Height = 144
Set Calendar1 = Ctl
Exit Sub
1: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48: End
End Sub

Private Sub Calendar1_Click()
With Calendar1
ActiveCell = DateSerial(.Year, .Month, .Day)
End With
End Sub

MP

"Michel HOLDERITH" <#nospam# a écrit dans le message
de




news:
Bonjour,
J'ai essaye mais ca ne marche pas.....
n'yaurait-il pas une autre solution ?
Merci,
@+
Michel.

"Clément Marcotte" wrote in
message





news:
Bonjour,

Chez Frédéric, parmi d'autres:






http://frederic.sigonneau.free.fr/code/VBE/AjouterSupprimerReference.txt






"Michel HOLDERITH" <#nospam# a écrit dans le
message






de
news:
Bonjour tout le monde,

Voila j'utilise dans un Userform un calendrier pointant vers
un







fichier OCX.
Lorsque j'ai voulu utiliser ce meme fichier sur un autre
ordinateur,





bien
sur ce fichier OCX n'etait pas present ce qui fait que j'ai
copier






ce
fichier dans un repertoire de mon choix.

Ma question et peut-on faire pointer le Userform et/ou le
calendrier





vers ce
fichier OCX, sans avoir besoin d'aller dans les references de
VBA






pour
l'activer ?

Pour info ce fichier se trouve sur disquette et/ou CD graver
pour






la
distribution. C'est pourquoi j'ai creer un repertoire "setup"
ou







mon
fichier
OCX est copie.

Merci d'avance pour vos reponses,
@+
Michel.

























Avatar
Michel HOLDERITH
Je vais voir ca.... t'as toutes les versions de windows et d'excel
!!!!!!!!!!!!

Est-ce que le fichier OCX doit etre dans un repertoire particulier ou pas ?
Ce qui m'arrangerais et de creer un repertoire sous
C:babaessai.xls et
C:setupcalend.ocx

le but pour moi et de pouvoir faire une reference automatique de mon fichier
excel(VBA) vers ce repertoire et fichier OCX automatiquement (ce qui ne
marche pas apparement (j'ai teste), ou la derniere solution de creer lors de
l'appel du userform "Calendar" le calendrier, mais la encore lors de
l'initialisation, je n'ai pas vu de chemin direct....
Sauf que lors d'essai j'ai renommer mon fichier OCX, le calendrier ne
marchait pas.... ce qui veut dire qui le trouve bien dans mon repertoire...
strange.

J'en ai vraiment marre de ce calendrier de m............ le temps que j'ai
perdu pour ca....

Il n'y aurait pas un autre moyen a ta connaissance pour utiliser un userform
calendrier qui pourrait etre commun a tous les excel et/ou windows sans etre
oblige d'utiliser un fichier tel que le OCX ?
Merci encore de ta patience et de ton soutien.
@+
Michel.


"Michel Pierron" wrote in message
news:e9f0uEJ%
Bonjour Michel;
Je viens de tester sous XP + xl2002, ça marche nickel !
Il faut bien sur que le fichier .oc existe sur la machine et qu'il soit
coorectement enregistré.
MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:e$cSd2H%
Salut,
effectivement j'avais oublie : Private WithEvents Calendar1 As Calendar
Maintenant ca marche, sauf..... sauf..... l'essentiel, car :
Sous (windows 98 & windows millenium) avec Excel 2000 tout marche bien
Sous (windows2000) avec Excel 2002 tout marche bien
Sous XP et excel 2002 ca ne marche pas.... :o(
Une raison particuliere ? sachant que je n'ai pas d'XP et que
l'utilisateur

final sera lui sur XP.......
@+
Merci encore pour ton aide,
Michel.

"Michel Pierron" wrote in message
news:
Bonjour Michel;

Vérifie que tu as bien indiqué en tête de ton module UserForm:
Private WithEvents Calendar1 As Calendar


' Ensuite, pour initialiser le calendrier, fais au plus simple comme
ceci:


Private Sub UserForm_Initialize()
On Error GoTo 1
Set Calendar1 = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
With Calendar1
.Left = 6: .Top = 6
.Width = 222: .Height = 144
End With
Exit Sub
1: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48: End
End Sub


' Ajoute la procédure évènementielle:
Private Sub Calendar1_Click()
Label1 = Calendar1.Value
End Sub

Et ça devrait rouler.
MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Salut,

Merci pour ta reponse, ca marche tip-top.....
Par contre une autre question.... comment faire pour recuperer la
valeur



de
Ctl ?

Apres click boutton OK cela devrait pouvoir me mettre la valeur du
calendrier dans un label.... mais Ctl reste desesperement vide.....

J'ai vu que Me.control.item(3) : _value0/06/04

Comment recuperer cette valeur, ou un autre moyen ?

Merci d'avance,
@+
Michel.


"Michel Pierron" wrote in message
news:
Bonjour Michel;
Ajuste tes paramètres Ctl.Width = 222 et Ctl.Height = 144

Private WithEvents Calendar1 As Calendar

Private Sub UserForm_Initialize()
On Error GoTo 1
Dim Ctl As Control
Set Ctl = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
Ctl.Left = 6: Ctl.Top = 6
Ctl.Width = 222: Ctl.Height = 144
Set Calendar1 = Ctl
Exit Sub
1: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48: End
End Sub

Private Sub Calendar1_Click()
With Calendar1
ActiveCell = DateSerial(.Year, .Month, .Day)
End With
End Sub

MP

"Michel HOLDERITH" <#nospam# a écrit dans le message
de




news:
Bonjour,
J'ai essaye mais ca ne marche pas.....
n'yaurait-il pas une autre solution ?
Merci,
@+
Michel.

"Clément Marcotte" wrote in
message





news:
Bonjour,

Chez Frédéric, parmi d'autres:






http://frederic.sigonneau.free.fr/code/VBE/AjouterSupprimerReference.txt






"Michel HOLDERITH" <#nospam# a écrit dans le
message






de
news:
Bonjour tout le monde,

Voila j'utilise dans un Userform un calendrier pointant vers
un







fichier OCX.
Lorsque j'ai voulu utiliser ce meme fichier sur un autre
ordinateur,





bien
sur ce fichier OCX n'etait pas present ce qui fait que j'ai
copier






ce
fichier dans un repertoire de mon choix.

Ma question et peut-on faire pointer le Userform et/ou le
calendrier





vers ce
fichier OCX, sans avoir besoin d'aller dans les references
de








VBA
pour
l'activer ?

Pour info ce fichier se trouve sur disquette et/ou CD graver
pour






la
distribution. C'est pourquoi j'ai creer un repertoire
"setup"








ou
mon
fichier
OCX est copie.

Merci d'avance pour vos reponses,
@+
Michel.




























1 2