Titre='DAX';            % Symbole du Titre
Start='Jan-03-2005';    % Date de début
Stop=datestr(now,1);    % Date de fin (Actuelle) ou bien "Mois-Jour-Année"
[nn, mm] = month(Stop);
Stop=strcat(mm,'-',num2str(day(Stop)),'-',num2str(year(Stop)));

% Start='Jan-01-2012';
% Stop='Jun-01-2021';
% Titre='KO';

function Data = getData(Titre,Start,Stop)


% Date      = dataArray{:, 1};
% DateTime  = datetime(Date, 'InputFormat', 'yyyy-MM-dd');
% Open      = dataArray{:, 2};
% High      = dataArray{:, 3};
% Low       = dataArray{:, 4};
% Close     = dataArray{:, 5};
% AdjClose  = dataArray{:, 6};

yahooLink='https://query1.finance.yahoo.com/v7/finance/download/';

% Veuillez spécifier le lien de téléchargement!
fileFolder= 'C:\Users\a-replacer\Downloads';
filename = [fileFolder,'\',Titre,'.csv'];

while 1
    if ~(exist(filename, 'file') == 2)
        getYahoo(yahooLink, Start,  Stop, Titre);
        pause(10); % Attendre le téléchargement du fichier (Quelques secondes)
    end
    if ~(exist(filename, 'file') == 2)
        continue;
    else
        break;
    end
end;
Data = getDataYahoo(filename);
Data=Data(:,2:6);


end

function getYahoo( yahooLink, Start,  Stop, Titre)


% Start='Jan-01-2012';
% Stop='Jun-01-2021';
% Titre='KO';


start_datenum = (datenum(Start) - datenum('Jan-01-1970')) * 86400;
startDateStr = num2str(start_datenum);

end_datenum = (datenum(Stop) - datenum('Jan-01-1970')) * 86400; % 86400=60*60*24 (1 journée)
endDateStr = num2str (end_datenum);


link=[yahooLink,Titre...
    ,'?period1=',startDateStr,'&period2=',endDateStr,'&interval=1d&events=history&includeAdjustedClose=true'];
web(link,'-browser');


end

function Data = getDataYahoo( filename )

%% Initialize variables.
delimiter = ',';
startRow = 2;

%% Read columns of data as strings:
% For more information, see the TEXTSCAN documentation.
formatSpec = '%s%s%s%s%s%s%s%[^\n\r]';

%% Open the text file.
fileID = fopen(filename,'r');

%% Read columns of data according to format string.
% This call is based on the structure of the file used to generate this
% code. If an error occurs for a different file, try regenerating the code
% from the Import Tool.
dataArray = textscan(fileID, formatSpec, 'Delimiter', delimiter, 'HeaderLines' ,startRow-1, 'ReturnOnError', false);

%% Close the text file.
fclose(fileID);

%% Convert the contents of columns containing numeric strings to numbers.
% Replace non-numeric strings with NaN.
raw = repmat({''},length(dataArray{1}),length(dataArray)-1);
for col=1:length(dataArray)-1
    raw(1:length(dataArray{col}),col) = dataArray{col};
end
numericData = NaN(size(dataArray{1},1),size(dataArray,2));

for col=[1,2,3,4,5,6,7]
    % Converts strings in the input cell array to numbers. Replaced non-numeric
    % strings with NaN.
    rawData = dataArray{col};
    for row=1:size(rawData, 1);
        % Create a regular expression to detect and remove non-numeric prefixes and
        % suffixes.
        regexstr = '(?<prefix>.*?)(?<numbers>([-]*(\d+[\,]*)+[\.]{0,1}\d*[eEdD]{0,1}[-+]*\d*[i]{0,1})|([-]*(\d+[\,]*)*[\.]{1,1}\d+[eEdD]{0,1}[-+]*\d*[i]{0,1}))(?<suffix>.*)';
        try
            result = regexp(rawData{row}, regexstr, 'names');
            numbers = result.numbers;
            
            % Detected commas in non-thousand locations.
            invalidThousandsSeparator = false;
            if any(numbers==',');
                thousandsRegExp = '^\d+?(\,\d{3})*\.{0,1}\d*$';
                if isempty(regexp(thousandsRegExp, ',', 'once'));
                    numbers = NaN;
                    invalidThousandsSeparator = true;
                end
            end
            % Convert numeric strings to numbers.
            if ~invalidThousandsSeparator;
                numbers = textscan(strrep(numbers, ',', ''), '%f');
                numericData(row, col) = numbers{1};
                raw{row, col} = numbers{1};
            end
        catch me
        end
    end
end


%% Replace non-numeric cells with NaN
R = cellfun(@(x) ~isnumeric(x) && ~islogical(x),raw); % Find non-numeric cells
raw(R) = {NaN}; % Replace non-numeric cells

%% Create output variable
KO4 = cell2mat(raw);
Data=double(KO4);
Data=Data(:,2:6);

%% Clear temporary variables
clearvars filename delimiter startRow formatSpec fileID dataArray ans raw col numericData rawData row regexstr result numbers invalidThousandsSeparator thousandsRegExp me R;

end

[m,n]=size(Data);
for j=1:n
    if isnan(Data(1,j))
        Data(1,j)=0;
    end;
    for i=2:m
        if isnan(Data(i,j))
            Data(i,j)=Data(i-1,j);
        end;
    end;
end;

clc; close all; clear all;


%% Ingénierie & Bourse
%% https://ingenierie-bourse.fr


%% Titre à Analyser
Titre='^FCHI';          % Symbole du Titre (CAC 40)
Start='Jan-03-2005';    % Date de début
Stop=datestr(now,1);    % Date de fin (Actuelle) ou bien "Mois-Jour-Année"
[nn, mm] = month(Stop);
Stop=strcat(mm,'-',num2str(day(Stop)),'-',num2str(year(Stop)));

%% Lecture des données
Data = getData(Titre,Start,Stop);
t=linspace(year(Start),year(Stop),length(Data));

%% Correction des données
[m,n]=size(Data);
for j=1:n
    if isnan(Data(1,j))
        Data(1,j)=0;
    end;
    for i=2:m
        if isnan(Data(i,j))
            Data(i,j)=Data(i-1,j);
        end;
    end;
end;

%% Affichage
figure(1);
plot(t,Data, 'linewidth',3);grid on;xlim([t(1) t(end)]);
legend({'Open','High','Low','Close','AdjClose'},'fontsize',13,2); axis off;
title('CAC 40 entre Jan-03-2005 et Sep-5-2021','fontsize',15);