Gerer les message d'excel sous delphi

Bonjour;

Je crée un fichier excel a partir de mon application Delphi.
Lorsque je veux l'enregistrer, si le fichier existe deja un petit message genéré par excel apparais m'indiquant que le fichier existe deja et me propose de l'enregistrer (OUI) qui ne pose pas de probleme ou de ne pas l'enregistrer(NON) ou de annuler (ANNULER) mais pour ces 2 etapes il se plante.

Donc comment faire pour pouvoir gérer les bouton du message de excel?

voila mon code

Code:

---

1 2 3 4 5

if SaveDialog.Execute then begin aFileName:=SaveDialog.FileName; vXLWorkbook.SaveAs(aFileName); end;

---

Merci

Citation:

---

Il se plante

---

Peux-tu être plus précis ?

au fait il se plante car il execute quand meme la commande enregistrer alors que l'on repond non ou annuler au message de excel.

Donc il faudrais que je puisse ne pas executer la commande "enregistrer" lorsque l'on clique sur NON ou ANNULER du message de excel mais comment récupérer les entreés du message sous excel pour les transcrire sous delphi

j'espere avoir ete clair

merci

Je doute que le pb vienne du SaveDialog. Pour t'en assurer, fais :

Code:

---

1 2 3 4

aFiledName :=''; if SaveDialog.Execute then aFileName:=SaveDialog.FileName; if FileName <>'' then vXLWorkbook.SaveAs(aFileName);

---

Si ça marche, on a gagné.
Si ça ne marche pas, on sait que le pb est du côté de SaveAs ;)

Le probleme viens du "Workbook.SaveAs(aFileName)"

Donc quand je lance le savedialog il me demande ou l'enregistrer.

* Si le fichier n'existe pas je n'ai pas de blem tt fonctionne normalement

* si le fichier existe deja un message de excel apparais m'indiquant que le fichier existe et me demande soit de l'ecraser (OUI) la je n'ai pas de blem ou alors de pas l'ecraser (NON) ou ANNULER et pour ces 2 commande j'ai un probleme car le saveas se fait qd mm alors qu'il ne devrais pas s'éxecuter.

Donc j'aimerais savoir si c possible de gerer ce que l'utilisateur fait surtout si il cliquye sur NON ou ANNULER

Je ne vois pas trop comment le gérer au niveau du SaveAs. Tu peux par contre générer auparavant ton propre message et offrir le choix. Le seul pb que j'y voie, c'est que si le fichier existeet que l'utilisateur décide de l'écraser, il aura 2 messages d'avertissement : le tien et celui d'Excel.

Qqch comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

if SaveDialog.Execute then begin aFileName:=SaveDialog.FileName; if not FileExists (aFileName) then vXLWorkbook.SaveAs(aFileName) else case MessageDlg ('Le fichier existe déjà.....) of mrCancel : ... mrYes : vXLWorkbook.SaveAs(aFileName); mrNo : ... end;{case} end;{if savedialog}

---