Erreur: Coller la méthode de classe de feuille de calcul a échoué

Question

J'ai été donné à une fonction pour récupérer des données en téléchargeant un fichier texte à partir d'un site.

Dans la sous gop, le fichier sera ouvert quand je l'appelle la fonction, mais quand j'ai essayé de copier les données sur ma feuille « données », une erreur se produit:

Coller la méthode de classe de feuille de calcul échoué.

Parfois, c'est une autre erreur.

Est-ce que quelqu'un connaît la solution?

Sub gop() 
Dim oWsBDR As Excel.Workbook 

'On Error Resume Next 

Set oWsBDR = WbBDR() 
If oWsBDR Is Nothing Then 
    MsgBox "Le fichier n'a pas été extrait." 
Else 
    'Set Workbooks("Task2").Worksheets("Data") = oWsBDR.Sheets("downloadFile") 
    oWsBDR.Worksheets("downloadFile").Cells.Copy 
    'Windows("Task2.xlsm").Cells(1, 1).Paste 'This doesn't work either 
    Windows("Task2.xlsm").Cells(1, 1).PasteSpecial xlPasteValues 'Error 
    Application.CutCopyMode = False 
    With Worksheets("Data").Cells 
     .HorizontalAlignment = xlCenter 
     .VerticalAlignment = xlCenter 
     .WrapText = False 
     .Orientation = 0 
     .AddIndent = False 
     .IndentLevel = 0 
     .ShrinkToFit = False 
     .ReadingOrder = xlContext 
     .MergeCells = False 
     .ColumnWidth = 30 
    End With 
    Set oWsBDR = Nothing 
End If 

Application.DisplayAlerts = False 
Windows("downloadFile.ln").Close 

End Sub 

Public Function WbBDR() As Excel.Workbook 
Dim bOk As Boolean 
Dim m_oME As Excel.Workbook 
Dim m_oBDR As Excel.Workbook 

If m_oBDR Is Nothing Then 
    bOk = False 
    Err.Clear 
    On Error Resume Next 
    Do Until bOk 
     Workbooks.OpenText Filename:="https://.../starw/downloadFile.ln?fileName=bdr_ast_gop", _ 
      Origin:=xlMSDOS, _ 
      StartRow:=1, _ 
      DataType:=xlDelimited, _ 
      TextQualifier:=xlDoubleQuote, _ 
      ConsecutiveDelimiter:=False, _ 
      Tab:=False, _ 
      Semicolon:=True, _ 
      Comma:=False, _ 
      Space:=False, _ 
      Other:=False, _ 
      FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _ 
       Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), _ 
       Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), _ 
       Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), _ 
       Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), _ 
       Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), Array(36, 1), _ 
       Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array(41, 1), Array(42, 1), _ 
       Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), Array(47, 1), Array(48, 1), _ 
       Array(49, 1), Array(50, 1), Array(51, 1), Array(52, 1), Array(53, 1), Array(54, 1), _ 
       Array(55, 1), Array(56, 1), Array(57, 1), Array(58, 1), Array(59, 1), Array(60, 1), _ 
       Array(61, 1), Array(62, 1), Array(63, 1), Array(64, 1), Array(65, 1)), _ 
       TrailingMinusNumbers:=True 
     If Err.Number = 0 Then bOk = True 
     Err.Clear 
    Loop 
    On Error GoTo 0 
    Set m_oBDR = Application.Workbooks("downloadFile.ln") 
End If 
Set WbBDR = m_oBDR 
End Function 

Answer 1

Vous n'avez pas spécifié de Worksheet. Peut-être que vous vouliez quelque chose comme ceci:

Workbooks("Task2.xlsm").Worksheets("Data").Cells(1, 1).PasteSpecial xlPasteValues 

---

... également en utilisant ce (ci-dessous) est d'avoir des ennuis:

oWsBDR.Worksheets("downloadFile").Cells.Copy 

Une solution rapide serait:

oWsBDR.Worksheets("downloadFile").UsedRange.Copy