XL 2016 Conversion d'un fichier csv par VBA sans modification du format date

Bonsoir le fil, sasjm37, sylvanu

Une autre façon de faire
(correspond à Données/Données externes/Fichier Texte)
Test OK sur le CSV exemple.

sylvanu à dit:

Bonjour Sasjm,
Un essai en PJ qui semble marcher. A tester, avec simplement :

VB:

Sub integre()
Dim nf$
    nf = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv")
    If nf <> "" And Right(nf, 3) = "csv" Then
        Workbooks.Open Filename:=nf, Local:=True
        Cells.EntireColumn.AutoFit
        [A1].Select
    End If
End Sub

Cliquez pour agrandir...

Merci sylvanu
C'est beau, c'est simple, ça fonctionne. Je suis admiratif devant ce code si pur.
moi je dis "Respect Monsieur"
Merci encore

Staple1600 à dit:

Bonsoir le fil, sasjm37, sylvanu

Une autre façon de faire
(correspond à Données/Données externes/Fichier Texte)

Code:

Sub Macro1()
Dim nf$
nf = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv")
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & nf, Destination:=Range("$A$1"))
    .Name = "Resa_club"
    .FieldNames = -1: .PreserveFormatting = -1
    .RefreshStyle = xlInsertDeleteCells: .SaveData = -1
    .AdjustColumnWidth = -1: .RefreshPeriod = 0
    .TextFilePlatform = 1252: .TextFileStartRow = 1
    .TextFileParseType = xlDelimited: .TextFileSemicolonDelimiter = -1
    .TextFileColumnDataTypes = Array(1, 4, 4, 1, 4, 4) ' ici formatage des données : 4 = Date JMA
    .Refresh BackgroundQuery:=False
End With
End Sub

Test OK sur le CSV exemple.

Cliquez pour agrandir...

Bonjour Staple1600,
Merci d'avoir pris le temps d'étudier mon code et de répondre à ma demande.
Ton code fonctionne correctement, mais il demande beaucoup d'adaptations pour répondre à mon besoin.
En revanche, il est toujours utile d'avoir plusieurs solutions et je vais prendre le temps d'étudier ce code avec attention.
Merci encore
Cordialement

Bonjour le fil, sasjm37, sylvanu

Alors, je fais dans l'utile (et dans le fun)
PS: J'ai pas osé reprendre le fit de Sylvanu (déjà que j'avais emprunté son nf)
Maintenant, il est trop tôt pour que je cherche la différence entre la méthode Workbooks.Open et Workbooks.OpenText

Et pour nourrir tes études, une autre possibilité (puisque tu es sous Excel 2016) : PowerQuery

NB: L'avantage (selon l'environnement d'exploitation de ton classeur), c'est que passer par Données ou par PowerQuery (donc sans macro) permet d'avoir une requête actualisable.