Microsoft 365 CSV en EXCEL

[La Vouivre]

Bonjour à toute la communauté
je cherche à généraliser une macro pour transformer les fichiers CSV en format EXCEL dans un format prenant en charge les macros
avec l'enregistreur de macro j'ai le code ,mais pour un seul fichier et je voudrais pouvoir le faire pour d'autres fichier et là je coince dur
voila le code que j'ai

Sub CSVenEXCEL()

'

' CSVenEXCEL Macro

Application.CutCopyMode = False

ActiveWorkbook.Worksheets.Add

With ActiveSheet.QueryTables.Add(Connection:= _

"TEXT;D:\MES DOCUMENTS DATA\VAN RAPIDO 2\PANNEAU SOLAIRE\REGULATEUR VICTRON\HISTORIQUE VICTRON\SolarHistory historique 1.csv" _

, Destination:=Range("$A$1"))

.CommandType = 0

.Name = "SolarHistory historique 1"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.TextFilePromptOnRefresh = False

.TextFilePlatform = 850

.TextFileStartRow = 1

.TextFileParseType = xlDelimited

.TextFileTextQualifier = xlTextQualifierDoubleQuote

.TextFileConsecutiveDelimiter = False

.TextFileTabDelimiter = True

.TextFileSemicolonDelimiter = True

.TextFileCommaDelimiter = True

.TextFileSpaceDelimiter = False

.TextFileColumnDataTypes = Array(1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)

.TextFileTrailingMinusNumbers = True

.Refresh BackgroundQuery:=False

End With

End Sub


merci pour votre aide

 

[Staple1600]

Bonsoir

@La Vouivre
Un exemple

Publié dans la discussion 'importation auto à l'ouverture depuis un csv déjà ouvert au nom variable'

1 Mai 2018

Re

@zayab
Personnellement, je ferai comme ceci
(Je l'avais déjà fait en mars, mais j'avais oublié 😉 )

Sub CSV_Import_III()
'recyclons, recyclons ;-)
'copie à peine retouchée de ma réponse dans ce fil
'https://www.excel-downloads.com/threads/comparer-date-dans-fichier-ferm%C3%A9.20023132/page-2#post-20172742
Dim ws As Worksheet, fichier As Variant
Set ws = Sheets("Import")
fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv", , "Choisissez le fichier à importer...")
If fichier = False Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False...

• Staple1600

(avec la poussière incluse, celle de 2018 )
😉