Copié les données d'un fichier automatiquement VBA

Bonjour,

Je travail actuellement avec l'extraction de tableau sur l'ERP de mon entreprise, et je commence à en avoir par dessus la tête de devoir, plusieurs fois par jours copié et coller le même tableau.

J'ai appris qu'il était possible de copié les données d'un tableau distant à l'intérieur d'un autre tableau et j'ai donc besoin de l'aide du meilleur forum excel pour la réalisation du projet !

Fichier distant :

Nom : MAJ DPREV 04 12 18

Nom de la feuille : Liste des commandes expédiées a

Valeurs à copier : intégralité du tableau 1 hors en-têtes.

Fichier de travail :

Nom : INDICATEUR DE PERFORMANCE

Nom de la feuille : TABLEAU 2019

Valeurs à coller dans : TABLEAU2019 =A3

Mes fichiers contiennent des données professionnels que je n'ai pas le droit de diffuser, dans le pire des cas je peux créer un exemple.

Merci d'avance !

Slt,

Macro à insérer dans le fichier de travail "INDICATEUR DE PERFORMANCE"

(Alt + F11 ==> inserer un module)

Sub CopierColler()

Dim x As Workbook
Set activeWB = Application.ActiveWorkbook

'Ouvrir le fichier distant:
Set x = Workbooks.Open("MAJ DPREV 04 12 18.xlsx") ' il faut ajouter le chemin d'accés du fichier

    With x.Sheets("Liste des commandes expédiées a").UsedRange
        .Resize(.Rows.Count - 1, .Columns.Count).Offset(1, 0).Copy activeWB.Sheets("TABLEAU 2019").Range("A3")
    End With

'fermer le fichier distant
x.Close
End Sub