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 Access controle calendar

controle calendar

18 réponses
Avatar
christophe reina
Bonjour,

J'installe dans un formulaire ind=E9pendant un controle=20
calendar 9.0. Lorsque je clique sur une date(ou plusieurs=20
succesivement)je voudrais r=E9cup=E9rer ces donn=E9es dans un=20
doc word appel=E9 X.

Merci d'avance
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
Raymond
Bonjour.

tu peux faire par automation, à compléter avec ton emplacement et tes clics.
exemple:
Private Sub Calendar7_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open ("c:doc1.doc")
With W_App.ActiveDocument.Range
.Font.Bold = True
.Font.Italic = True
.Font.Size = 10
' ==================== .InsertAfter Me.Calendar7.Value
' ====================== .InsertParagraphAfter
.InsertParagraphAfter
End With
.ActiveDocument.SaveAs ("c:Doc2.Doc")
.Quit
Set W_App = Nothing
End With
End Sub

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"christophe reina" a écrit dans le message
de news:08b901c3a1f7$316b8570$
Bonjour,

J'installe dans un formulaire indépendant un controle
calendar 9.0. Lorsque je clique sur une date(ou plusieurs
succesivement)je voudrais récupérer ces données dans un
doc word appelé X.

Merci d'avance
Avatar
chris
Bonjour,

Pourriez m'aider pas à pas car votre explication bien que
complète je n'arrive pas à la mettre en place.

merci d'avance

-----Message d'origine-----
Bonjour.

tu peux faire par automation, à compléter avec ton
emplacement et tes clics.

exemple:
Private Sub Calendar7_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open ("c:doc1.doc")
With W_App.ActiveDocument.Range
.Font.Bold = True
.Font.Italic = True
.Font.Size = 10
' =====================
.InsertAfter Me.Calendar7.Value
' =======================
.InsertParagraphAfter
.InsertParagraphAfter
End With
.ActiveDocument.SaveAs ("c:Doc2.Doc")
.Quit
Set W_App = Nothing
End With
End Sub

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"christophe reina" a
écrit dans le message

de news:08b901c3a1f7$316b8570$
Bonjour,

J'installe dans un formulaire indépendant un controle
calendar 9.0. Lorsque je clique sur une date(ou plusieurs
succesivement)je voudrais récupérer ces données dans un
doc word appelé X.

Merci d'avance

.



Avatar
Raymond
je pensais que tu connaissais l'automation, voulant récupérer des données
sous word.
Calendar7 est le nom du contrôle calendrier.
j'ai tout mis sous le click du calendrier pour l'exemple avec 1 date.
si tu as plusieurs dates à récupérer il faut faire une fonction avec
l'ouverture de word, une avec la fermeture et une pour placer les valeurs.

dans les déclaratives en début de code:
Dim W_App As Object


pour ouvrir le document word:
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open ("c:doc1.doc")
End With


pour insérer les valeurs:
With W_App.ActiveDocument.Range
.Font.Bold = True
' ==================== > .InsertAfter Me.Calendar7.Value
' ====================== > End With


pour fermer word:
With W_App
.ActiveDocument.SaveAs ("c:Doc2.Doc")
.Quit
Set W_App = Nothing
End With


ce sont des exemples à adapter à ton problème réel.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"chris" a écrit dans le message de
news:0b3901c3a1fc$f9da7520$
Bonjour,

Pourriez m'aider pas à pas car votre explication bien que
complète je n'arrive pas à la mettre en place.

merci d'avance

Avatar
chris
Pourriez vous m'aider pas à pas car je n'y arrive pas (je
ne sais ou mettre le code
Pardon et merci d'avance
-----Message d'origine-----
je pensais que tu connaissais l'automation, voulant
récupérer des données

sous word.
Calendar7 est le nom du contrôle calendrier.
j'ai tout mis sous le click du calendrier pour l'exemple
avec 1 date.

si tu as plusieurs dates à récupérer il faut faire une
fonction avec

l'ouverture de word, une avec la fermeture et une pour
placer les valeurs.


dans les déclaratives en début de code:
Dim W_App As Object


pour ouvrir le document word:
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open ("c:doc1.doc")
End With


pour insérer les valeurs:
With W_App.ActiveDocument.Range
.Font.Bold = True
' =====================
.InsertAfter Me.Calendar7.Value
' =======================
End With


pour fermer word:
With W_App
.ActiveDocument.SaveAs ("c:Doc2.Doc")
.Quit
Set W_App = Nothing
End With


ce sont des exemples à adapter à ton problème réel.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"chris" a écrit dans le
message de

news:0b3901c3a1fc$f9da7520$
Bonjour,

Pourriez m'aider pas à pas car votre explication bien que
complète je n'arrive pas à la mettre en place.

merci d'avance

.




Avatar
Raymond
Il faut que tu me dises exactement ce que tu veux faire, où, quand et
comment .

sur ton formulaire, tu veux créer un bouton pour lancer word et un autre
pour la fin de composition ?

tu n'as que ce calendrier sur ton formulaire ?

pourquoi envoyer une série de dates vers word ?

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"chris" a écrit dans le message de
news:0ebb01c3a210$63b182a0$
Pourriez vous m'aider pas à pas car je n'y arrive pas (je
ne sais ou mettre le code
Pardon et merci d'avance
Avatar
D'abord merci,
Pour un planning, j'ai un controle calendar et je veux
lorsque je clique sur une date que cette date s'incrive
dans un doc word fermer (si c'est possible) sinon les
récupérer dans le formulaire.
ex je clique sur le 03 novembre 2003 dans le calendrier,
ilm faut que cette date se mette dans le document word
nommé date

encore merci
-----Message d'origine-----
Il faut que tu me dises exactement ce que tu veux faire,
où, quand et

comment .

sur ton formulaire, tu veux créer un bouton pour lancer
word et un autre

pour la fin de composition ?

tu n'as que ce calendrier sur ton formulaire ?

pourquoi envoyer une série de dates vers word ?

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"chris" a écrit dans
le message de

news:0ebb01c3a210$63b182a0$
Pourriez vous m'aider pas à pas car je n'y arrive pas (je
ne sais ou mettre le code
Pardon et merci d'avance

.



Avatar
Raymond
Reprenons un exemple:
le cas où il y a une seule date.
tu prends la première procédure que je t'ai indiqué et tu la places sur
l'événement click de ton calendrier ( qui s'appelle calendar7 par exemple):
Private Sub Calendar7_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open ("c:date.doc")
With W_App.ActiveDocument.Range
.Font.Bold = True
.InsertAfter Me.Calendar7.Value
' ====================== .InsertParagraphAfter
End With
.ActiveDocument.Save
.Quit
Set W_App = Nothing
End With
End Sub

cliques sur une date, lance word et ouvre le fichier c:date.doc
est-ce que ça te convient.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


a écrit dans le message de
news:0d9501c3a214$29147cc0$
D'abord merci,
Pour un planning, j'ai un controle calendar et je veux
lorsque je clique sur une date que cette date s'incrive
dans un doc word fermer (si c'est possible) sinon les
récupérer dans le formulaire.
ex je clique sur le 03 novembre 2003 dans le calendrier,
ilm faut que cette date se mette dans le document word
nommé date

encore merci
-----Message d'origine-----
Il faut que tu me dises exactement ce que tu veux faire,
où, quand et

comment .

sur ton formulaire, tu veux créer un bouton pour lancer
word et un autre

pour la fin de composition ?

tu n'as que ce calendrier sur ton formulaire ?

pourquoi envoyer une série de dates vers word ?

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"chris" a écrit dans
le message de

news:0ebb01c3a210$63b182a0$
Pourriez vous m'aider pas à pas car je n'y arrive pas (je
ne sais ou mettre le code
Pardon et merci d'avance

.



Avatar
Sur mon controle calendar dans les proprietes, je n'ai
evenement sur clic. J'ai sur maj, etc..

merci.
-----Message d'origine-----
Reprenons un exemple:
le cas où il y a une seule date.
tu prends la première procédure que je t'ai indiqué et tu
la places sur

l'événement click de ton calendrier ( qui s'appelle
calendar7 par exemple):

Private Sub Calendar7_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open ("c:date.doc")
With W_App.ActiveDocument.Range
.Font.Bold = True
.InsertAfter Me.Calendar7.Value
' =======================
.InsertParagraphAfter
End With
.ActiveDocument.Save
.Quit
Set W_App = Nothing
End With
End Sub

cliques sur une date, lance word et ouvre le fichier
c:date.doc

est-ce que ça te convient.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


a écrit dans le
message de

news:0d9501c3a214$29147cc0$
D'abord merci,
Pour un planning, j'ai un controle calendar et je veux
lorsque je clique sur une date que cette date s'incrive
dans un doc word fermer (si c'est possible) sinon les
récupérer dans le formulaire.
ex je clique sur le 03 novembre 2003 dans le calendrier,
ilm faut que cette date se mette dans le document word
nommé date

encore merci
-----Message d'origine-----
Il faut que tu me dises exactement ce que tu veux faire,
où, quand et

comment .

sur ton formulaire, tu veux créer un bouton pour lancer
word et un autre

pour la fin de composition ?

tu n'as que ce calendrier sur ton formulaire ?

pourquoi envoyer une série de dates vers word ?

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"chris" a écrit dans
le message de

news:0ebb01c3a210$63b182a0$
Pourriez vous m'aider pas à pas car je n'y arrive pas (je
ne sais ou mettre le code
Pardon et merci d'avance

.



.




Avatar
Raymond
C'est pour tromper l'ennemi ! ! !

rentre-le directement dans le code, ça fonctionne très bien.

alt+F11 pour vba editor.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


a écrit dans le message de
news:103801c3a217$17153840$
Sur mon controle calendar dans les proprietes, je n'ai
evenement sur clic. J'ai sur maj, etc..
Avatar
Pardon, pardon mais je suis vraiment incompétent.

Voila ce que je fais:

J'ouvre access, je créer un formilaire vierge. J'insère
un controle activex controle calendar.9
je le selectionne
et alt f11 puis je copie le code et je test en cliquant
sur une date de mon calendrier. Aucun document de word ne
me récupère la date choisie.

Pourrait on sinon récupérer les dtes selectionnée dans un
etat?

Encore merci



-----Message d'origine-----
C'est pour tromper l'ennemi ! ! !

rentre-le directement dans le code, ça fonctionne très
bien.


alt+F11 pour vba editor.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


a écrit dans le
message de

news:103801c3a217$17153840$
Sur mon controle calendar dans les proprietes, je n'ai
evenement sur clic. J'ai sur maj, etc..


.



1 2