Macro importation données Excel à Excel

Bonjour,

Etant débutant en VBA, je viens solliciter votre aide.

Je dispose de deux fichiers excel. Un fichier de sortie (Fichier_Test) et un fichier source (FDC_test).

Mon but est de créer une macro qui remplirait les cellules de fichier de sortie (Fichier_Test) grâce à des informations obtenues à partir des cellules du fichier source (FDC_test).

J'ai réussi à faire une macro qui fonctionne que vous trouverez ci-dessous:

Sub Copier()

End Sub

Le problème est que cette macro fonctionne uniquement lorsque le fichier source se nomme (FDC_test).

Je voudrais donc la modifier de telle sorte à ce qu'elle fonctionne peut importe l'intitulé du fichier source tout en conservant la fenêtre permettant récupérer le fichier source voulu.

Je précise que le fichier de sortie sera toujours le ficher (Fichier_Test).

En espérant avoir été clair, je vous remercie d'avance du temps que vous m'accorderez.

Cordialement

Bonjour,

Essai avec ceci :

Sub Copier()

    Dim Fichier As String

    'Acceleration du traitement des données
    Application.ScreenUpdating = False

    'Ouverture fenêtre de selection du fichier d'entrée
    Fichier = Application.GetOpenFilename

    Workbooks.Open Filename:=Fichier

    'supprime le chemin
    Fichier = Dir(Fichier)

    'Copie données fichier d'entrée vers fichier de sortie
    Workbooks("Fichier_Test.xlsm").Sheets(1).Range("C16").Value = Workbooks(Fichier).Sheets(1).Range("C6").Value

    'Fermeture du classeur
    ActiveWorkbook.Close

    'Confirmation de l'exportation
    MsgBox "exportation des données réussite"

End Sub

Bonjour,

Parfait, ça fonctionne très bien !

Merci beaucoup.