Récupérer le chemin d'un fichier manuellement

Bonjour à toutes et à tous,

Je débute avec les macros. J'ai créé une macro qui permet de mettre en forme un fichier .csv dans Excel. Elle fonctionne mais je n'arrive pas à choisir le fichier csv que je souhaite mettre en forme, car le nom du fichier change lors de sa création. J'aimerais connaitre la macro qui me permettrait de choisir le fichier csv manuellement, afin de l'ouvrirai le fichier et de copier la colonne (A:A) dans ma feuille 2 de mon classeur Excel.

Ci-dessous le bout de macro que j'ai écrit :

Sub Macro2()

'

' Macro2 Macro

'

ChDir "C:\Users\Luc\Desktop\Export"

Workbooks.Open Filename:= _

"C:\Users\Luc\Desktop\Export\Export_LstEvt_2016219143725.csv"

Columns("A:A").Select

Selection.Copy

Windows("Synthese.xlsm").Activate

Sheets("Feuil2").Select

Range("A1").Select

ActiveSheet.Paste

End Sub

Le problème, je ne sais pas comment écrire la macro pour choisir le chemin et le fichier à copier dans mon classeur.

Merci pour votre aide.

Bonsoir,

Un exemple à tester :

    Dim sFichier As String

    sFichier = Application.GetOpenFilename()

Bonne soirée

Bouben

Merci pour votre réponse.

La commande à l'air de marcher, mais comment il faut faire pour que je puisse ouvrir le fichier ainsi choisi et copier les données qui m'intéressent.

Svp

si le code déjà écrit fonctionne, il faut juste remplacer la ligne

Workbooks.Open Filename:= _
"C:\Users\Luc\Desktop\Export\Export_LstEvt_2016219143725.csv"

par

Workbooks.Open Filename:= _
sFichier

Bouben

un grand merci, ça marche.

Bonne soirée.

Rechercher des sujets similaires à "recuperer chemin fichier manuellement"