cboSubCategory.ListIndex = -1
cboType.ListIndex = -1

' inscrit la date d'aujourd'hui
txtDate = Date

' inscrit le nom du fichier suivant
txtFilename = Nextfile(txtDirStories)

' checkbox default is checked
chkPublish.Value = Checked
chkPublishInNews.Value = Checked

' démarre Frontpage cboSubCategory.ListIndex = -1
cboType.ListIndex = -1

' inscrit la date d'aujourd'hui
txtDate = Date

' inscrit le nom du fichier suivant
txtFilename = Nextfile(txtDirStories)

' checkbox default is checked
chkPublish.Value = Checked
chkPublishInNews.Value = Checked

' démarre Frontpage
Dim i As Double, h As Double

'For i = 1 To 1000000: Next
'FpId = Shell("D:\Internet\Install\Frontpage\bin\fpeditor.exe", vbMinimizedNoFocus)

SendKeys "+{INSERT}"
Dim i As Double, h As Double

'For i = 1 To 1000000: Next
'FpId = Shell("D:\Internet\Install\Frontpage\bin\fpeditor.exe", vbMinimizedNoFocus)

SendKeys "+{INSERT}"