Discussion :

[Yphon]

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 :

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

1
2
3
4
5
if SaveDialog.Execute then
      begin
         aFileName:=SaveDialog.FileName;
         vXLWorkbook.SaveAs(aFileName);
      end;

Merci

[rsc]

Il se plante

Peux-tu être plus précis ?

[Yphon]

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

[rsc]

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

Code :

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

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

[Yphon]

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

[rsc]

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 :

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

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}