WDForge.org - Forums - WD 8.x - Objet d'automation ==> Excel

Index des forums WDForge.org

WD 8.x

Objet d'automation ==> Excel

Bas

Suivant S'enregistrer pour contribuer

	Objet d'automation ==> Excel	#1
Utilisateur WDF Inscrit: 18/03/2004 10:15 De Roissy en Brie (77) Post(s): 80	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 Contribution le : 15/11/2005 12:35
	_________________ Cléa

	Re: Objet d'automation ==> Excel	#2
Animateur WDF Inscrit: 26/06/2002 16:24 De wdforge.org Post(s): 2822	bonjour, De tête, SaveAs n'est valide que pour un item de la collection WorkBooks. Il faut donc repositionner ton classeur dans la collection : `MaFeuilleXLS>>Workbooks(<indice>)>>SaveAs()` J'ai pas la classe sous la main mais cela devrait faire avancer la chose. Contribution le : 15/11/2005 14:13
	_________________ R&B Contact, CV.

	Re: Objet d'automation ==> Excel	#3
Utilisateur WDF Inscrit: 18/03/2004 10:15 De Roissy en Brie (77) Post(s): 80	Je viens de trouver en reprenant les exemples de classe téléchargées sur le site!!!!!!!! En fait il sufit de mettre `MaFeuilleXLS>>ActiveWorkbook>>SaveAs(sNomClasseur,-4143)` et tout fonctionne! Merci tout de même! Bonne journée Contribution le : 15/11/2005 15:02
	_________________ Cléa

Haut

S'enregistrer pour contribuer

Vous ne pouvez pas débuter de nouveaux sujets.

Vous pouvez voir les sujets.

Vous ne pouvez pas répondre aux contributions.

Vous ne pouvez pas éditer vos contributions.

Vous ne pouvez pas effacez vos contributions.

Vous ne pouvez pas ajouter de nouveaux sondages.

Vous ne pouvez pas voter en sondage.

Vous ne pouvez pas attacher des fichiers à vos contributions.

Vous ne pouvez pas poster sans approbation.