Import de donné vers fichier Excel

Bonjour

J'ai fait le tour du Forum mais je ne trouve pas mon bonheure

Toutes les semaines j'ai une extraction qui est faite d'un logiciel interne.

j'ai reussi a convertir le fichier mais maintenant je doit importer CERTAINE donné dans un classeur.

Pour être plus clair je joint les deux fichiers Exemple.

le FICHIER export.xlsx(l'extraction des donnés)

et le Fichier Reception.xlsx (celui qui doit recevoir les donnés)

Dans le Fichier export j'ai indiquer les colonnes ou doivent allez les valeurs.

Je voudrais pouvoir faire cela automatiquement (a l'ouverture de Reception je selectionne le fichier a importer et les celulles sont copier et coller dans les bonnes colonnes.

je reste dispo si vous avez des questions.

Merc de votre aide

Re bonjour

J'ai un peu avancer dans le Fichier reception

  Workbooks.Open Filename:= _
        "C:\export.xlsx"
    'colonne B
    Range("G2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    ActiveWindow.WindowState = xlMinimized
    Range("B2").Select
    ActiveSheet.Paste
 ActiveWindow.WindowState = xlMaximized
   Windows("export.xlsx").Activate
   'colonne C
    'Application.WindowState = xlMaximized
    ActiveWindow.WindowState = xlNormal
    Range("E2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Reception.xlsm").Activate
    Range("C2").Select
    ActiveSheet.Paste
   Application.DisplayAlerts = False
   Windows("export.xlsx").Close
   Application.DisplayAlerts = True
   ActiveWindow.WindowState = xlMaximized

Toutefois j'ai deux souci

1) comment faire pour ne pas ecraser les donner deja importer.

2) comment rendre ce code plus propre.

Merci de votre aide

Bonjour a tous

j'ai reussi a me debrouiller sur ce sujet

Sub test()
Dim Fichiers As Variant
Dim maLigne As Long
With Sheets("Feuil1")
  If .Range("B1") <> "" Then
    maLigne = .Range("B" & Rows.Count).End(xlUp).Row + 1
  Else
    maLigne = 1
  End If

 End With
 'ouvir Fichier
  ChDrive "C:"    ' Choix du lecteur
    ChDir "C:pilotage\2020"    'Choix du répertoire
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
If Nom_Fichier <> False Then
    Workbooks.Open Filename:=Nom_Fichier

 ' COPIE COLONNE G vers B

    Range("G2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("PiLOTAGE 2020 .xlsm").Activate
'coller
Range("B" & maLigne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=False
End sub

toutefois j'ai une question : Peut on selectionner un nombre precis de cellule ?

EXEMPLE: sur la Colonne A je selectionne 300 lignes

je voudrais pouvoir selectionner le même nombre de lignes en colonne C.

est ce faisable et si oui comment?

Merci de votre aide.