Hello à tous,
Je travail sur une application compatible 2003, 2010 et 2013.
J'ai une fonction d'export vers Excel, mais celle-ci crash avec les version 2010 et 2013
je recois ce message
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Description: PasteSpecial method of Range class failed Extra info: use copy paste method to transfer to XLSPourriez-vous m'aider sur ce probème?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 If subfrm.Form.RecordsetClone.RecordCount > 0 Then strDebugInfo = "use copy paste method to transfer to XLS" subfrm.SetFocus DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy Set objXLS = CreateObject("Excel.Application") objXLS.Workbooks.Add Set rng = objXLS.Workbooks(1).worksheets(1).Range("A1") rng.Select rng.PasteSpecial -4163 'xlPasteValues strDebugInfo = "check if first row does not contain formName (happens sometimes)" If UCase(objXLS.Workbooks(1).worksheets(1).Range("A1").Value) = UCase(subfrm.Form.Name) Then objXLS.Workbooks(1).worksheets(1).Range("A1").EntireRow.Delete strDebugInfo = "format pasted values: header bold + autosize columns" Set rng = objXLS.Workbooks(1).worksheets(1).Range("A1").EntireRow rng.Font.Bold = True rng.Cells.Columns.EntireColumn.AutoFit strDebugInfo = "set name of sheet to name of form" If subfrm.Form.Caption <> "" Then objXLS.Workbooks(1).worksheets(1).Name = subfrm.Form.Caption Else objXLS.Workbooks(1).worksheets(1).Name = subfrm.Name End If Else MsgBox "No data to export.", vbInformation End If
Merci
Partager