Discussion :

[Chrispi]

Bonjour,
Il est possible en utilisant le composant TOpenDialog d'ouvrir au choix des fichiers du même type en utilisant le bouton Ouvrir.
Exemple de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
var filename : string;
begin 
  OpenDialog1.Execute;
  filename := OpenDialog1.Filename;
  Exec('C:\Program Files\Microsoft Office\Office15\EXCEL.EXE',Filename)
end;

Dans cet exemple, avec Excel 2013, il s'agit de choisir d'ouvrir un fichier .xls, .xlsx ou .csv dans la liste de fichiers proposés dans la fenêtre du composant TOpenDialog, en le sélectionnant et en cliquant sur le bouton Ouvrir.
N.B. il y a toujours possibilité d'ouvrir un fichier en le sélectionnant, puis clic droit de la souris et sélectionner Ouvrir.

[Chrispi]

Afin qu'Excel ne s'ouvre pas lors de la fermeture du TOpenDialog, il vaut mieux rédiger le code comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject); //Ouverture dossier fichiers csv, xls, xlsx
var filename : string;
begin
  if OpenDialog1.Execute then begin
  filename := OpenDialog1.FileName;
  Exec('C:\Program Files\Microsoft Office\Office15\EXCEL.EXE',Filename);
  end;
end;