Discussion :

[Sunseeker69]

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

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 :

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 )

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

[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 :

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

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 :

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

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

[Sunseeker69]

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 :

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

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 :

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

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