WDForge.org

Objet d'automation ==> Excel

Posté par clea le 15/11/2005 12:35:30

Bonjour,
Voila, je dois dans mon prjet créer un fichier CSV.
J'ai trouvé sur votre site plusieurs exemple pour créer les fichiers. Je vous remercie d'ailleurs pour ca! ;o)
Mais j'ai un problème lorsque je veux enregistrer le fichier, après avoir choisi son nom et son chemin

Voici mon code:

MaFeuilleXLS est un objet automation dynamique
SI ObjetActif("Excel.application")<> Null ALORS
	MaFeuilleXLS=ObjetActif("Excel.application")
SINON
	MaFeuilleXLS=allouer un objet automation "Excel.Application"
FIN

MaFeuilleXLS>>Workbooks>>Add()
i est un entier
POUR i=1 A TableOccurrence(Table_CNET)
	MaFeuilleXLS>>Range("A"+i)>>value=ColonneA[i]
	MaFeuilleXLS>>Range("B"+i)>>value=MFID[i]
	MaFeuilleXLS>>Range("C"+i)>>NumberFormat ="@"
	MaFeuilleXLS>>Range("C"+i)>>value=Ref_Fab[i]
	MaFeuilleXLS>>Range("D"+i)>>NumberFormat ="@"
	MaFeuilleXLS>>Range("D"+i)>>value=Ref_Fab[i]
	MaFeuilleXLS>>Range("E"+i)>>value=Désignation[i]
FIN

bInteractive est un booléen = MaFeuilleXLS>>DisplayAlerts
sNomClasseur est une chaîne
sNomClasseur=fSélecteur("C:\","Commandes CNET "+DateSys(),"Enregistrer sous...","Document Excel (*.CSV)"+TAB+"*.CSV","CSV",fselCrée+fselExiste)
Info(sNomClasseur)
QUAND EXCEPTION DANS
	MaFeuilleXLS>>ActiveWorkbook>>SaveAs(sNomClasseur,"CSV","")
FAIRE
	MaFeuilleXLS>>DisplayAlerts = bInteractive
	Erreur("Impossible de sauver le classeur.",ExceptionInfo())
FIN

Et voici le message d'erreur:
Citation :

Vous avez appelé la méthode Automation 'SaveAs'.
En tentant d'invoquer la méthode <SaveAs> ou de lire la propriété <SaveAs>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Impossible de lire la propriété SaveAs de la classe Workbook.'
En tentant d'invoquer la méthode <SaveAs>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'La méthode SaveAs de la classe Workbook a échoué.'
En tentant de lire la propriété <SaveAs>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Impossible de lire la propriété SaveAs de la classe Workbook.'
En tentant d'écrire la propriété <SaveAs>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Impossible de définir la propriété SaveAs de la classe Workbook.'

Et là j ene comprends pas tout!

Quequ'un pourrait il m'aider???

Merci d'avance

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=3035&post_id=12766