Bonjour à tous,
Je dispose d'un fichier CSV avec comme séparateur ";" je souhaiterais alimenter une variable de type tableau avec la totalité de ce contenue en intégrant le délimiteur.
rep==> Le chemin du répertoire parent
fic ==> le nom du fichier avec l'extension
J'ai essayé la méthode ADO:
Sub extraction(rep, fic)
Dim CnXL As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
CnXL = "Driver={Microsoft Text Driver (*.txt; *.csv)};""Dbq=" & rep & ";Extensions=asc,csv,tab,txt"
CnXL.Open
strSQL = "SELECT * FROM [" & fic & "]"
Set rst = CnXL.Execute(strSQL)
rec(0) = rst.GetRows
rst.Close
CnXL.Close
Set rst = Nothing
End Sub
J'ai aussi essayé la méthode "OpenText" avec delimiteur pour faire :
rec(0)=Activesheet.range("A1").currentregion
Quand j'ouvre le fichier en double cliquant dessus, ce fichier ce convertit automatiquement mais quand je l'ouvre avec VBA peut importe la méthode utilisé celui ci s'ouvre avec la mise en forme d'origine du CSV ( sans séparation).
Mais je n'arrive pas à récupérer les informations bien délimité, je vous mets le fichier csv en pièce jointe.
Merci.