Discussion :

[kmaniche]

Bonjour à tous,

Après avoir ouvert une liaison (OLE) avec Excel, je lis les cellules en ligne et par colonne et j'enregistre ces cellules dans une table/access dans des champs bien définis. Quand j'ouvre ma base avec Access (ou autre) Tout va bien, sauf pour les cellules contenant " l'Heure " ou " les Durées " il me renvoi une valeur décimale.

voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
//
// DETERMINER LA ZONE UTILE
//
   Variant vUsedRange ;
   vUsedRange = vWorksheet.OlePropertyGet("UsedRange");
   Variant vLines;
   vLines   = vUsedRange.OlePropertyGet("Rows");
   int nLig = vLines.OlePropertyGet("Count") ;
 
 
   Variant vCell;
   for(int i = 2 ; i < nLig ; i ++)
      {
        Data_Module -> Incident -> Insert() ;
 
        vCell = vWorksheet.OlePropertyGet("Cells", i, 2);
        Data_Module -> Incident -> FieldValues["CodeDR"]      = vCell ;
 
        vCell = vWorksheet.OlePropertyGet("Cells", i, 3);
        Data_Module -> Incident -> FieldValues["DR"]          = vCell ;
 
        vCell = vWorksheet.OlePropertyGet("Cells", i, 7);
        Data_Module -> Incident -> FieldValues["Date"]        = vCell ;
 
///------------------------------------------------------------------
 
/// --------- ERREURE DE CONVERTION
        vCell = vWorksheet.OlePropertyGet("Cells", i, 8);
        Data_Module -> Incident -> FieldValues["Heure"] = vCell ;
 
/// --------- ERREURE DE CONVERTION
        vCell = vWorksheet.OlePropertyGet("Cells", i, 9);
        Data_Module -> Incident -> FieldValues["Duree"]       = vCell ;
 
///------------------------------------------------------------------
 
        vCell = vWorksheet.OlePropertyGet("Cells", i, 10);
        Data_Module -> Incident -> FieldValues["Type"]        = vCell ;
 
        vCell = vWorksheet.OlePropertyGet("Cells", i, 11);
        Data_Module -> Incident -> FieldValues["Cause"]       = vCell ;
 
        Data_Module -> Incident -> Post() ;
     }

Comment s'il vous plait résoudre ce problème.

[blondelle]

Salut kmaniche:
La je ne sais pas te repondre mais il y a des tuto qui parlent en VB de lecture/ecriture dans un classeur Excel
Un lien sur le site:

http://silkyroad.developpez.com/

[kmaniche]

Bonjour Blondelle,

ne seraisse pas un problème de conversion Variant -> Time par exemple.

[blondelle]

ne seraisse pas un problème de conversion Variant -> Time par exemple.

Peut etre.
Une idee peut etre stupide mais ne peut tu pas exporter ta date au format txt?

[kmaniche]

Bonjour,

Peut-tu m'indiquer comment !!

[blondelle]

Salut kmaniche:
Tu peu deja essayer de formater les colonnes Heure et duree en Texte dans Excel pour l'export.
Sinon il est possible de mettre le caractere " ' " en premier exemple " '10h00 " ou " '=SOMME(B1:B4) " ce sera considere comme du texte par Excel et a l'affichage ca le " ' " ne parrait pas je ne sais pas comment se sera considere par Access il faut faire l'essai.

[kmaniche]

Bonjour,

Un indice, le format de colonne "Heure et Durée" est un Text : String

[blondelle]

Dans la FAQ Access:

http://access.developpez.com/faq/?pa...portExcelTexte

[kmaniche]

Re bonjour

Maintenant quand j'ouvre le fichier Excel, dans les colonnes "Heure" et "Durée" j'ai bien ce que je veux, mais quand je lance une lecture des cellules j'obtiens des valeurs réels (exp: 5,1254542699779)

Merci d'avance.

[kmaniche]

Bonjour,

OK , j'ai réussi à résoudre ce problème en modifiant le format de la cellule en "text: @" lors de l'enregistrement du fichier excel.

Merci Blondelle.

[blondelle]

Super quel amusement Excel

[kmaniche]

Surtout si on trouve la solution