Copier des cellules d'un fichier fermé

Bonjour à tous,

Je souhaite copier des cellules d'un fichier fermé et coller seulement les valeurs dans une feuille du classeur ouvert. Voici mon code :

Sub IMPORTATION_VIA_DETTENETTE()

    Dim Fichier As String

    Worksheets("DETTE DALTYS HISTO").Activate

  Fichier = "Y:\SGDA\FINANCE\DETTES\TABLEAUX DE DETTES\TABLEAU DETTES_DALTYS HISTO.xlsm"

  If Dir(Fichier) = "" Then
    MsgBox "Fichier " & Fichier & " introuvable"
    Exit Sub
  End If

  With Workbooks.Open(Fichier)
    .Sheets("DETTES HISTO").Range("B7:EJ400").Copy
    ThisWorkbook.Sheets("DETTE DALTYS HISTO").Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    .Close savechanges:=False
  End With

J'ai une erreur d'exécution 1004 ("La méthode Select de la classe Range a échoué") au niveau du code : ThisWorkbook.Sheets("DETTE DALTYS HISTO").Range("B7").Select

J'ai l'impression que le code n'arrive pas à retrouver le classeur et la feuille où il y a la macro pour venir sélectionner la 1ere cellule où je souhaite copier mes valeurs.

Auriez-vous une solution?

Bonjour

Pourquoi sélectionner ?

A tester

    Sub IMPORTATION_VIA_DETTENETTE()

        Dim Fichier As String

        Worksheets("DETTE DALTYS HISTO").Activate

      Fichier = "Y:\SGDA\FINANCE\DETTES\TABLEAUX DE DETTES\TABLEAU DETTES_DALTYS HISTO.xlsm"

      If Dir(Fichier) = "" Then
        MsgBox "Fichier " & Fichier & " introuvable"
        Exit Sub
      End If

      With Workbooks.Open(Fichier)
        .Sheets("DETTES HISTO").Range("B7:EJ400").Copy
        ThisWorkbook.Sheets("DETTE DALTYS HISTO").Range("B7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        .Close savechanges:=False
      End With

Bonjour,

Sinon si c'est fréquent pourquoi ne pas utiliser une liaison entre les deux fichiers ?

Bonjour Banzaï64,

Effectivement pourquoi je sélectionne (c'est peut-être une mauvaise habitude). Je te remercie ça fonctionne.

Bonne soirée.