Question : Accéder au code d'erreur 2302

Pente d'accès d'Error

Microsoft sauf le fichier de données de rendement vous avez le selected

Code

" DoCmd.OutputTo acOutputTable, « prise absente », acFormatXLS, strFile, " le

This fonctionnait-il parfaitement ce matin et maintenant son donner à l'error.

Can n'importe qui l'offre une aide ? le

Thanks, plein code de Seamus

The est :
Dim du

Private Command5_Click () strFile comme String
strFile = acOutputTable, « prise absente », acFormatXLS, strFile, oXL de False

Dim comme oWB d'Object
Dim comme oWS d'Object
Dim comme Object
Dim FormulaRow en tant qu'oWB d'oXL du
Set de Long
= de
Set de CreateObject acOutputForm du
'DoCmd.OutputTo de « F:\MissingDataOutput.xls ", Me.Variance, acFormatXLS, strFile, False
DoCmd.OutputTo (le « Excel.Application ») = l'oWS du
Set d'oXL.Workbooks.Open (strFile) = oWB.Sheets (oWS
FormulaRow de 1)
With =. Cellules (. Rows.Count, « b »). Extrémité (- 4162). Rangée + 2 'xlUp
. Cells.Font.Size = 10
. Rangées (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range (« b : h ») .NumberFormat = « 0.00% ; [Rouge] 0.00% "
.range (« b : h ») .NumberFormat = « #, ##0.00 ; [Rouge] #, ##0.00 "
.range (« c : e »). Modèle = extrémité With
de « pour cent "/>oXL.Visible = oWS de True

Set = oWB de Nothing
Set = oXL de Nothing
Set = Nothing
End Sub
class= de

Réponse : Accéder au code d'erreur 2302

Vérifier excellent dans le gestionnaire de tâches.