Bonjour :
Je ne comprends pas cette ligne dans un code :
Dim Cn As Object, txt As String
Set Cn = CreateObject("Adodb.Connection")
Cn.Open "Provider =Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\stg_pao\Desktop\;Extended Properties=""Text;HDR=YES;FMT=Delimited(;);"";"
Set Rs = CreateObject("ADODB.RecordSet")
Rs.Open "select * from [ExportStat_Global_Synthese.csv]", Cn
txt = Rs.GetString
txt = Replace("" & txt, ",", ".")
txt = Replace("" & txt, ";", vbTab)
ClipBoard_SetData "" & txt
Workbooks("data.xlsm").Sheets("Sabacane Stat").Cells(2, 1).PasteSpecial xlPasteAll
C'est un programme qui lit les données d'un fichier .csv fermé.
Merci d'avance.