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 *

[kiki29]

Salut, de façon bestiale

Ce forum n'étant pas pour du VBA ..... ceci explique peut-être cela.

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
Option Explicit
 
Sub Test()
Dim Wkb As Workbook, WkbDest As Workbook
Const xlsFile As String = "C:\Users\phlh\Desktop\Tests\source.xlsx"
 
    Application.ScreenUpdating = False
    Set Wkb = Workbooks.Open(Filename:=xlsFile)
    Set WkbDest = ThisWorkbook
 
    'WkbDest.Sheets("Dashboard").Cells.Clear
    Wkb.Sheets("DASHBOARD").Range("A1:D14").Copy WkbDest.Sheets("Dashboard").Range("A1")
    WkbDest.Sheets("Dashboard").Columns("A:D").EntireColumn.AutoFit
    WkbDest.Save
 
    Wkb.Close
 
    Application.ScreenUpdating = True
    Set WkbDest = Nothing
    Set Wkb = Nothing
End Sub