Discussion :

[kaygee]

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 XLS

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

Pourriez-vous m'aider sur ce probème?

Merci

[Jean-Philippe André]

Salut,

pour le problème en lui-même, pas d'idée immédiate. Par contre pour l'export sous Excel, j'en ai une

Pourquoi ne passes-tu pas par le nettement plus classique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Docmd.TransferSpreadsheet

?
Ou si tu veux vraiment passer par du code sous Excel par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RAnge("A1").CopyFromRecordset RS

Je n'avais jamais penser utiliser un paste special d'ailleurs

[kaygee]

Je ne connais pas exactement les raisons, de cette manière de procéder, honnetement je suis un peu novice an vba access, et cette application à été crée a la base en access 97.

J'essaye ici de resoudre ce problème sans trop de changement