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,

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