Extraire une plage de cellules nommée d'un classeur externe

[Egruat]

Bonjour,

Je cherche à extraire une plage de cellules nommée d'un classeur externe: mais j'ai un bug
Le classeur => source données.xlsm
La feuille => TCD
La plage de donnée => Data
Classeur final => test.xlsm

Voici le code:

Sub Test()
Dim x As Workbook

Application.DisplayAlerts = False
ChDir "C:\EG\"
Workbooks.Open Filename:="C:\EG\source données.xlsm", UpdateLinks:=3
Workbooks("C:\EG\source données.xlsm").Worksheets("TCD").Range(Data).Select
Selection.Copy
Windows("test.xlsm").Activate
Range("D3").Select
Application.DisplayAlerts = True
ActiveWorkbook.Close

End Sub

Merci de votre aide !!

 

[Egruat]

Re : Extraire une plage de cellules nommée d'un classeur externe

Ca y est j'ai trouvé; il s'agit de mettre Range("Data").Select et non Range(Data).Select

Désolé !