Fonction Application.GetOpenFilename

pourquoi ne pas recopier le fichier sous un autre nom?

les données sont mise ensemble et séparées par un séparateur "|" mais ont également des ";"

il faut donc remplacer les ; par|

voici un code qui enregistre le csv en texte en mettant le tabulateur |. Ensuite il importe le fichier texte dans un classeur Excel:

Option Explicit
'enregistrer csv dans fichier texte avec tabulateur |
Sub traitement()
Dim Chemin_Fichier_CSV As String
Dim Chemin_Fichier_TXT As String
Dim Buffer, str As String
Chemin_Fichier_CSV = ThisWorkbook.Path & "\Customers.csv" 'adapter nom csv
Chemin_Fichier_TXT = ThisWorkbook.Path & "\essai.txt" 'adapter nom txt
Close
Open Chemin_Fichier_CSV For Input As #1
Open Chemin_Fichier_TXT For Output As #2
Do While Not EOF(1)
Line Input #1, Buffer
Print #2, Replace(Buffer, ";", "|") 'remplace ; en |
Loop
Close
importer 'importer fichier texte
End Sub
'importer fichier texte tabulateur |
Sub importer()
 With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & ThisWorkbook.Path & "\essai.txt", Destination:=Range("$A$1"))
        .Name = "essai"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = "|"
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

la macro importer est faite avec l'enregistreur de macro, comme le t'a suggéré notre ami pijaku que je salue au passage

ce code nécessite que les 2 fichiers csv et txt soient dans le même dossier que le classeur contenant la macro

@+ Le Pivert

@cs_Le PivertHello
merci pour l'astuce. Le problème est que je ne peux pas remplacer les ; par autre chose car dans mon fichier ce n'est pas un séparateur mais partie intégrante d'une donnée. A savoir les heures qui sont comme suit : 07:05;32 pour séparer minutes et secondes.
Du coup, si je le fais en manuel, que j'ouvre le fichier csv avec notpad par exemple, que je fais ensuite un sélection tout et copier. Puis que j'ouvre un classeur Excel et que je colle c'est bon.

Mon problème dans le cas précis, c'est que ma macro du haut m'ouvre explorer pour me permettre de sélectionner le fichier duquel je veux tout copier et coller dans mon tool.

Du coup le besoin serait qu'elle fasse la même chose, mais en ouvrant le csv avec un éditeur de texte pour solutionner le problème

@maminedje te propose de mettre ton csv dans un fichier texte et d'ouvrir ce même fichier texte:

Sub AutoImportDataTXT()
'déclaration des variables
 Dim ListFile As Variant
 Dim Chemin_Fichier_CSV As String
Dim Chemin_Fichier_TXT As String
Dim MonApplication As Object
Dim Buffer
    'filtrer pour ne voir que le type de fichier à séletionner
     ListFile = Application.GetOpenFilename(Title:="Sélectionner les données et importez les données", fileFilter:="Fichiers CSV(*.csv*),*xls*", ButtonText:="Cliquez")
    'prévoir le cas du click bouton annuler en cas 'erreur
   If ListFile <> False Then
 Chemin_Fichier_CSV = ListFile
    Chemin_Fichier_TXT = Replace(ListFile, "csv", "txt")
Close
Open Chemin_Fichier_CSV For Input As #1
Open Chemin_Fichier_TXT For Output As #2
Do While Not EOF(1)
Line Input #1, Buffer
Print #2, Buffer
Loop
Close
End If
   Set MonApplication = CreateObject("Shell.Application")
   MonApplication.Open (Chemin_Fichier_TXT)
   Set MonApplication = Nothing
End Sub

Tu n'as plus qu'a faire ton copier-coller

Voilà,
@+ Le Pivert

@cs_Le PivertUn Grand merci Le Pivert,

c'est magique et j'arrive à faire ce que je dois :-)