Delphi, Excel et sauvegarde ...

boujour,


j'ai fait un ptit programme qui permet d'exporter sous excel des données situés dans une BDD.
j'ouvre donc une feuille excel preconstruite ( j'ai un tableau deja fait que je rempli

Citation:

---

xlsdoc:=CreateOleObject('Excel.Application');
xlsdoc.visible:=True;
xlsdoc.Workbooks.open(chemxls);
ADOQuery1.Active:=true;

---

Ensuite je veut sauvegarder la page excel.
Donc l'utilisateur selectionner un nom de fichier dans un tedit (exemple.xls)
et avec un tdirectorylisbox je recupere le chemin du fichier ou il faut l'enregistrer .. ca nous donne ca en gros :

Citation:

---

nomxls:=nomfic.text;
chemnew:=dirlist.directory;
newxls:=chemnew+'\'+nomxls;
// xlsdoc.SaveAs(newxls);

---

lorsque je laisse la ligne qui est en commentaire, donc pour enregistrer ma fiche excel sous c:\exemple.xls (par exemple :aie:)

j'ai droit a un message d'erreur :

Le projet.exe a provoqué une classe d'exception EOleError avec le message 'Methode 'SaveAs' non supportée par l'objet Automation'. Processus stopé. Utilisé pas à pas ...


Je ne sais donc pas comment faire pour enregistrer cette fiche

un truc simple pour avoir de l'aide pour piloter MS Office via OLE, c'est de d'ouvrir l'appli concernée, de lancer l'enregistreur de macros, de faire la manip, et d'examiner le code produit. et donc dans ton cas tu trouverai une ligne du genre

Code:

---

1 2 3 4 5

ActiveWorkbook.SaveAs Filename:= _ "D:\Documents and Settings\Benoit\Mes documents\Classeur21.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False

---

donc a priori tu devrai faire un truc du genre :

Code:

---

1 2	xlsdoc.ActiveWorkBook.SaveAs(...)

---

Citation:

---

Envoyé par denokan

un truc simple pour avoir de l'aide pour piloter MS Office via OLE, c'est de d'ouvrir l'appli concernée, de lancer l'enregistreur de macros, de faire la manip, et d'examiner le code produit. et donc dans ton cas tu trouverai une ligne du genre

Code:

---

1 2 3 4 5

ActiveWorkbook.SaveAs Filename:= _ "D:\Documents and Settings\Benoit\Mes documents\Classeur21.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False

---

donc a priori tu devrai faire un truc du genre :

Code:

---

1 2	xlsdoc.ActiveWorkBook.SaveAs(...)

---

---

merci, mais niveau macro, je connais rien ... je savais meme pas qu'on pouvais regardé comme tu l'a fait ...
Merci