Discussion :

[Malek_moly]

Bonjour à tous !!

Ma question est la suivante : y a-t-il une fonction ou procedure dans une des unitées de pascal ( free pascal ou Devpascal) qui me permetterai d'ouvrir un fichier word ou excel ?
Exemple d'ouverture d'un EXECUTABLE:

Code :

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

1
2
3
4
5
6
7
8
Uses
 Crt,Dos;
begin
SwapVectors;
Exec('C:\Program Files\Microsoft Office\Office12\excel.exe','');
SwapVectors;
readln;
End.

Je voudrais faire une chose simillaire à ce que fait ce code ci dessu, mais pour ouvrir un fichier excel ou word.
dsl si je n'ai pas etais précis.

PS :je suis DEBUTANT en PASCAL

Merci pour vos réponses !!!

[Alcatîz]

Bonjour,

Peut-être avec quelque chose comme ceci :

Code :

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

ShellExecute(0,'open','mon_fichier.xls',nil,nil,SW_SHOWNORMAL);

(désolé, je n'ai pas Windows sous la main pour essayer )

[Malek_moly]

Merci pour ta réponse Alcatîz,
J'ai essayé ça mais ça n'a pas marché :s je pense que c'est une instruction qui marche sous delphi pas freepascal

j'ai trouvé la solution !! elle est toute bète ^^, par exemple :

Code :

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

1
2
3
4
5
6
7
8
Uses
  Crt,Dos;
begin
SwapVectors;
Exec('C:\Program Files\Microsoft Office\Office12\excel.exe','MonFichier.xml');
SwapVectors;
readln;
End.

donc faut ajouté just le chemin de notre fichier à ouvrir et le tour est joué !
Merci à toi Alcatîz !!

[darrylsite]

Code :

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

1
2
3
4
5
6
7
8
Uses
  Crt,Dos;
begin
SwapVectors;
Exec('C:\Program Files\Microsoft Office\Office12\excel.exe','MonFichier.xml');
SwapVectors;
readln;
End.

C'est le portage de la fonction disponible sous tp7

Concernant l'exemple qu'à donner Alcatîz, as tu ajouté l'unité qu'il faut dans la clause uses?

Code :

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

1
2
 
uses {...,} windows;

[Malek_moly]

RE,
Bein vous avez raison darrylsite, ^^ j'ai pas mis cette unité,mais aprés l'avoir ajouté,tout marche trés bien !!

C'est ça mon probleme en pascal, j'ai pas pu trouver une documentation COMPLETE sur toutes les fonctions ou precedures de toutes les unités qui existent en pascal ?! Si vous en avez une Faites moi signe ^^

Merci encore une fois pour le temps que vous consacrez à des débutants comme moi ^^

[darrylsite]

RE,
Bein vous avez raison darrylsite, ^^ j'ai pas mis cette unité,mais aprés l'avoir ajouté,tout marche trés bien !!

C'est ça mon probleme en pascal, j'ai pas pu trouver une documentation COMPLETE sur toutes les fonctions ou precedures de toutes les unités qui existent en pascal ?! Si vous en avez une Faites moi signe ^^

Le pascal standard n'a pas définit des unités à ma connaissance. Ces unités sont liées à des compilateurs, RAD, ... Ce serait en effet cool d'avoir une documentation complete et détaillé sur les unité de freepascal. Si mes souvenirs sont bons, il existe des docs en fichiers pdf qui décrivent quelqueques unités utilisé par freepascal dans la distribution de freepascal.

Merci encore une fois pour le temps que vous consacrez à des débutants comme moi ^^

Je suis moi même encore un débutant, alors c'est cool