Bonjour,
J'ai un problème avec une de mes applications en VB6 qui
gère EXCEL... Je dois transférer des données entre deux
fichiers .XLS. Si tout se passe correctement avec des
valeurs normales , je ne n'arrive pas à transférer des
données de type "HEURE" qui ont le format suivant:
"18:35:26 AM" le résulat sur la feuille de réception
donne une chose du genre "2,12456879242E2"
Voici la commande que j'utilise:
Private Sub Command1_Click()
Tt = 1
'ex.Visible = True
'ex.Workbooks.Open Fichier$
With ex.ActiveWorkbook.Worksheets(Feu_sel)
If Check1.Value = 1 Then
For t = 1 To 50000
vide = vide + 1
If Not .Cells(t, 1) = "" Then
Valeur(Tt) = .Cells(t, 1)
Tt = Tt + 1: vide = 0
End If
If vide > 50 Then t = 50000
affiche
Next t
vide = 0
End If
Merci...d'éclairer ma lanterne !
LARD