Discussion :

[BENHAMOUH]

Bonjour,

Je voudrais que ma macro ouvre un fichier (voir fichier joint) et copier le contenu d'une feuille définie dans mon xls de la macro à un endroit défini.
mon code bloque au niveau de la commande : Range("A1:D14").Select


Avez-vous une idée de comment m'en sortir
PS: Columns ("A:D") ne fonctionne pas non plus!

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
Sub CommandButton21_Click()
 
' fichier source
    Const xlsFile As String = "C:\UserTemp\VB\source.xlsx"
 
    Workbooks.Open Filename:=xlsFile
    Sheets("DASHBOARD").Select
 
    Range("A1:D14").Select
    Selection.Copy
 
' fichier cible
 
    Windows("Test_Data.xlsm").Activate
    Sheets("Dashboard").Select
    Range("A1").Select
    ActiveSheet.Paste
 
End Sub

* Merci *