Sub dataImport() Dim principal As ThisWorkbook Dim repertoire As String, fichier$ Application.ScreenUpdating = False Set principal = ThisWorkbook repertoire = "L:cessions\" fichier = Dir(repertoire & "*.csv") Dim fileDate As String Dim time As Date Do While fichier <> "" fileDate = FileDateTime(repertoire & fichier) time = Format(fileDate, "dd/mm/yyyy") If time = Date Then Workbooks.Open (repertoire & fichier), local:=True ActiveSheet.UsedRange.Copy Destination:=principal.Sheets(1).Range("a" & Rows.Count).End(xlUp).Offset(1) ActiveWorkbook.Close End If fichier = Dir() Loop End Sub
repertoire = "c:cessions\"
repertoire = "c:cessions\" 'Au pire, ajoute un debug pour voir sa valeur: debug.print repertoire
Do While fichier <> "" debug.print "Fichier : " &repertoire & fichier fileDate = FileDateTime(repertoire & fichier) time = Format(fileDate, "dd/mm/yyyy") debug.print "FileDate : " & fileDate debug.print "time : " & time & " - Date: " & Date If time = Date Then debug.print "Ouverture du classeur " Workbooks.Open (repertoire & fichier), local:=True debug.print "Copy du classeur " ActiveSheet.UsedRange.Copy Destination:=principal.Sheets(1).Range("a" & Rows.Count).End(xlUp).Offset(1) debug.print "Fermeture du classeur " ActiveWorkbook.Close 'Ajoute un ELSE Else debug.print "Dates Différentes" End IF