tjrs controle calendar

Bonjour l'anonyme.

pour faire ça:
tu mets la procédure api openfile dans un module standard:
http://access.seneque.free.fr/ouverture_document.htm

tu colles les fonctions ci-dessous dans ton code du formulaire, tu vérifies
que procédure événementielle soit bien indiqué dans les événements du
formulaire et du calendrier. tu ajustes les noms des contrôles à tes noms.

Option Compare Database
Option Explicit
Dim W_App As Object

Private Sub Calendar7_Click()
With W_App
With W_App.ActiveDocument.Range
.Font.Bold = True
.Font.Italic = True
.Font.Size = 10
.InsertAfter Me.Calendar7.Value
.InsertParagraphAfter
End With
End With
End Sub

Private Sub Form_Load()
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open (OpenFile("c:"))
End With

End Sub

Private Sub Form_Unload(Cancel As Integer)
With W_App
.ActiveDocument.Save
.Quit
Set W_App = Nothing
End With
End Sub

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


<anonymous@discussions.microsoft.com> a écrit dans le message de
news:0b5501c3a456$35f817a0$a301280a@phx.gbl...
Voila un super code fait par Mr RAYMOND
Est'il possible que ce code demande l'ouverture d'un
nouveau document à chaque ouverture du formulaire (et non
pas à chaque date)ou du document existant

J-imagine que cela va tourner autour if then else et
document.add

Merci
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