fazazi
Messages postés10Date d'inscriptionjeudi 30 juillet 2009StatutMembreDernière intervention26 août 2009
-
26 août 2009 à 07:14
ricomiracle
Messages postés195Date d'inscriptionvendredi 19 novembre 2004StatutMembreDernière intervention30 novembre 2009
-
26 août 2009 à 17:05
bjour,
Je cherche a recuperer une donnee sous format heure comme suit: 10:21 contenue dans une cellule excel dans mon programme vb6,je veux la recuperer telle qu'elle j'ai essayé ca:
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Open ChemFich
Set wbExcel = appExcel.ActiveWorkbook
Set wsExcel = wbExcel.ActiveSheet
Extraire = wsExcel.Cells(Rangee, Col)
Mais j'obtiens une valeur flottant du genre 3.2125425
userrrqi115
Messages postés181Date d'inscriptionmardi 18 novembre 2008StatutMembreDernière intervention 4 février 2011 26 août 2009 à 11:22
Hello,
Je crois que la proriété par défaut de cells est value et c'est ce que le code va chercher.
Par contre la valeur renvoyée est supérieure à 1 il ne s'agit donc pas d'une heure mais d'une durée.
Si tu recherches l'heure de cette valeur il faut travailler avec la partie non entière :
int((wsExcel.Cells(Rangee, Col)-int(wsExcel.Cells(Rangee, Col))*24)
te donnera le chiffre des heures
int((wsExcel.Cells(Rangee, Col)-int(wsExcel.Cells(Rangee, Col))*24)-int(wsExcel.Cells(Rangee, Col)-int(wsExcel.Cells(Rangee, Col))*24))*60)
Et cela les minutes
fazazi
Messages postés10Date d'inscriptionjeudi 30 juillet 2009StatutMembreDernière intervention26 août 2009 26 août 2009 à 12:01
merci pour ta reponse mais en fait moi je veux recuperer le contenu de la cellule telle qu'elle est ,comme etant une string , je veux garder l heure sous la forme 10:21 par exemple ,je sais que je pourais la reecrire comme ca par la suite mais mon programme tourne sur des gros fichiers et ca commence deja a etre lourd, je veux pas ajouter un traitement suplementaire.