Bonjour
je converti mon fichier xls en csv dans une application Windev avec le code ci-dessous
le format est bon mais les séparateurs sont des points virgules comment les transformer en virgule ????????
xl est un objet OLE dynamique = ObjetActif("Excel.Application")
fichierXLS est une chaîne
fichierXLS = "c:\MonFichier.xls "
SI xl=Null ALORS xl=allouer un objet OLE "Excel.Application"
xl>>Visible=Faux // Excel n'apparait pas à l'écran
xl>>displayAlerts=False
xl>>WorkBooks>>Open(fichierXLS )
fichierXLS=ExtraitChaîne((fichierXLS),1,".xls")+ ".xlcsv"
xl>>DisplayAlerts = True
xl>>ActiveWorkBook>>saveAs( fichierXLS,6)
xl>>ActiveWorkBook>>Close(Faux)
xl>>Quit()
libérer xl
j'ai cherché mais Je n'ai pas trouvé de réponse a mon problème un petit coup de main me serais bien utile
merci
Modifié par Bujkilla05 (15 Jan 2020 - 00:23)
je converti mon fichier xls en csv dans une application Windev avec le code ci-dessous
le format est bon mais les séparateurs sont des points virgules comment les transformer en virgule ????????
xl est un objet OLE dynamique = ObjetActif("Excel.Application")
fichierXLS est une chaîne
fichierXLS = "c:\MonFichier.xls "
SI xl=Null ALORS xl=allouer un objet OLE "Excel.Application"
xl>>Visible=Faux // Excel n'apparait pas à l'écran
xl>>displayAlerts=False
xl>>WorkBooks>>Open(fichierXLS )
fichierXLS=ExtraitChaîne((fichierXLS),1,".xls")+ ".xlcsv"
xl>>DisplayAlerts = True
xl>>ActiveWorkBook>>saveAs( fichierXLS,6)
xl>>ActiveWorkBook>>Close(Faux)
xl>>Quit()
libérer xl
j'ai cherché mais Je n'ai pas trouvé de réponse a mon problème un petit coup de main me serais bien utile
merci
Modifié par Bujkilla05 (15 Jan 2020 - 00:23)