Forums développeurs windev Tunidev
Howdy Guest! Connexion / Create an account
Se connecter
Utilisateur :
Mot de passe :
 
  • Portail
  • Forums
  • Recherche
  • Members
  • Calendrier
  • Aide
Forums développeurs windev  /  Forums Développeurs WINDEV  /  Forum Windev 8 & 9 & 10 v
1 2 3 4 5 ... 68 Suivant »
 /  Pb avec des Dates à l' import d' Excel ....
  • Moyenne : 0 (0 vote(s))
  • 1
  • 2
  • 3
  • 4
  • 5
Pb avec des Dates à l' import d' Excel ....
BOURBAKI Hors ligne
Member
***
Messages : 88
Sujets : 24
Inscription : Mar 2007
Réputation : 0
Thanks: 0
Given 0 thank(s) in 0 post(s)
#1
11-07-2015, 05:16 PM
BJR Tout le Monde
Merci à l' Avance pour Votre AIde ....

Voilà ,j' ai le souci suivant . Je suis en WD9
Je fais un import de Données depuis un fichier .xls vers un .FIC
Une date correcte dans une celllule Excel me donne au transfert des choses absolument bizarres !!!!
Je sais qu' Excel et WD gèrent de menière différente les Dates .
Comment solver ce problème ? Et Merci encore . 
Lhassane
  Trouver
  Répondre
gaymath2 Hors ligne
Senior Member
****
Messages : 301
Sujets : 29
Inscription : Oct 2008
Réputation : 0
Thanks: 0
Given 2 thank(s) in 2 post(s)
#2
11-07-2015, 05:27 PM
(11-07-2015, 05:16 PM)BOURBAKI a écrit : BJR Tout le Monde
Merci à l' Avance pour Votre AIde ....

Voilà ,j' ai le souci suivant . Je suis en WD9
Je fais un import de Données depuis un fichier .xls vers un .FIC
Une date correcte dans une celllule Excel me donne au transfert des choses absolument bizarres !!!!
Je sais qu' Excel et WD gèrent de menière différente les Dates .
Comment solver ce problème ? Et Merci encore . 
Lhassane
Salut voir chaîneversdate. Car excel ramène une chaine donc converti avant ton hajoute. 
Ne craignez pas d'etre lent, craignez juste d'etre a  l'arret.
Coordialement!
  Trouver
  Répondre
BOURBAKI Hors ligne
Member
***
Messages : 88
Sujets : 24
Inscription : Mar 2007
Réputation : 0
Thanks: 0
Given 0 thank(s) in 0 post(s)
#3
11-07-2015, 10:31 PM
Merci gaymath2

J' ai essayé ... Cela ne donne rien !!
pour te préciser davantage .
C'est un Fichier .FIC en WD 12   que je veux transférer dans une Appli en WD9
Comme la compatibilité est ascendante , j' ai recours à un transfert indirect via Excel
WD12 -----> Excel ------> WD9

C'est réellement foireux ce problème .
Je sais qu' il est récurrent ....

Lhassane
  Trouver
  Répondre
Samifred Hors ligne
Moderator
*****
Messages : 5,576
Sujets : 83
Inscription : Nov 2005
Réputation : 11
Thanks: 0
Given 40 thank(s) in 38 post(s)
#4
12-07-2015, 06:37 AM
Bonjour,

Bourbaki a dit: "Excel me donne au transfert des choses absolument bizarres !!!!"

Peux-tu publier la date (date chaîne) retournée par Excel ou mieux publier une ou deux lignes du fichier xls.

Car pour moi un fichier "*.fic" qu'importe la version, exporté vers Excel sera toujours un fichier xls de la version Excel en cours dans les deux sens.

...
Se souvenir et savoir sont deux choses différentes. Se souvenir, c'est garder en mémoire. En revanche, savoir signifie assimiler sans dépendre d'un modèle.

WD 4.1 => 23


  Trouver
  Répondre
gaymath2 Hors ligne
Senior Member
****
Messages : 301
Sujets : 29
Inscription : Oct 2008
Réputation : 0
Thanks: 0
Given 2 thank(s) in 2 post(s)
#5
12-07-2015, 07:13 AM
(12-07-2015, 06:37 AM)Samifred a écrit : Bonjour,

Bourbaki a dit: "Excel me donne au transfert des choses absolument bizarres !!!!"

Peux-tu publier la date (date chaîne) retournée par Excel ou mieux publier une ou deux lignes du fichier xls.

Car pour moi un fichier "*.fic" qu'importe la version, exporté vers Excel sera toujours un fichier xls de la version Excel en cours dans les deux sens.

...
salut
Je pense que Boubaki avait mal posé son problème. Je suis d'avis avec samifred, il vaut mieux poster brique de code afin qu'on puisse te donner un coup de main. 
Ne craignez pas d'etre lent, craignez juste d'etre a  l'arret.
Coordialement!
  Trouver
  Répondre
BOURBAKI Hors ligne
Member
***
Messages : 88
Sujets : 24
Inscription : Mar 2007
Réputation : 0
Thanks: 0
Given 0 thank(s) in 0 post(s)
#6
12-07-2015, 11:00 AM (Modification du message : 12-07-2015, 02:07 PM par BOURBAKI. Raison de la modification: un petite correction .... )
BJR à Vous Deux
Gaymath2  et Samifred ......

Pour faire cette Opération , j' ai dans un Bouton le Code suivant en Clic :


Code :
SI ObjetActif("Excel.Application") <> Null ALORS
    // Récupération de l'instance de Excel existante
    EXCAPP = ObjetActif("Excel.Application")
SINON
    // Allocation de l'objet automation "MaFeuilleXLS"
    EXCAPP = allouer un objet Automation "Excel.Application"
FIN


EXCAPP>>Workbooks>>Open("C:\Mes Projets\FACTURATION 9\Exe\LOG060.xls")
// LOG060.xls est le Fichier Excel récupéré du Fichier LOG060.FIC en WD12
EXCF=EXCAPP>>ActiveSheet

i est un entier
POUR i=1 A EXCF>>Cells(1,1)>>CurrentRegion>>Rows>>Count
    LOG060.PRCODE=EXCF>>Cells(i,1)>>value
    LOG060.PRDESIG=EXCF>>Cells(i,2)>>Value
    LOG060.CACODE=EXCF>>Cells(i,3)>>Value
    LOG060.FOCODE=EXCF>>Cells(i,4)>>value
    LOG060.PRGROS=EXCF>>Cells(i,5)>>Value
    LOG060.FTCODE=EXCF>>Cells(i,6)>>Value
    LOG060.PRDMAJ=EXCF>>Cells(i,21)>>Value // 1ère Date qui cause Souci
    LOG060.PRDDV=EXCF>>Cells(i,22)>>Value  // 2ème Date qui cause Souci
    LOG060.PRDDC=EXCF>>Cells(i,23)>>Value  // 3ème Date ....
    LOG060.PRDDL=EXCF>>Cells(i,24)>>Value  // 4ème Date ....
//  Ce LOG060.FIC est l ' analogue en WD9    
    HAjoute(LOG060)
FIN

libérer EXCAPP
libérer EXCF
Je dois rajouter que les Dates SONT CORRECTES sur le Fichier WD12 d' Origine et le Fichier Excel exporté . MMon Problème se localise quand j' importe ce fichier Excel dans un Fichier analogue ( en WD9 ) , les Dates sont tarabiscottées et j' obtiens par exemple des dates de ce Style :

__/02/4184


Merci pour Votre Bienveillanc e et Très Bon Dimanche .  Lhassane
  Trouver
  Répondre
BOURBAKI Hors ligne
Member
***
Messages : 88
Sujets : 24
Inscription : Mar 2007
Réputation : 0
Thanks: 0
Given 0 thank(s) in 0 post(s)
#7
13-07-2015, 02:00 PM
Bonjour à Vous ....
J'ai aussi essayé ce Code sur Clic Bouton
Utilisant les fonctions xlsOuvre et xlsDonnée  de WD9
Mais aucun résultat acceptable ....
Code :
SAI_Saisie1 est une chaîne
SAI_Saisie1= ComplèteRep(fRepExe())+"LOG060.xls"
IdFic est un entier
ResNbLigne est un entier
i est un entier
IdFic = xlsOuvre(SAI_Saisie1)
ResNbLigne = xlsNbLigne(IdFic)
SI IdFic<>-1 ALORS
    
    POUR i=1 A ResNbLigne
        
        LOG060.PRCODE=xlsDonnée(IdFic,i,1)
        LOG060.PRDESIG=xlsDonnée(IdFic,i,2)
        LOG060.CACODE=xlsDonnée(IdFic,i,3)
        LOG060.FOCODE=xlsDonnée(IdFic,i,4)
        LOG060.PRGROS=xlsDonnée(IdFic,i,5)
        LOG060.FTCODE=xlsDonnée(IdFic,i,6)
        LOG060.PRDMAJ=xlsDonnée(IdFic,i,20) // Cellule à problème
        LOG060.PRDDV=xlsDonnée(IdFic,i,21) // Cellule à problème
        LOG060.PRDDC=xlsDonnée(IdFic,i,22) // Cellule à problème
        LOG060.PRDDL=xlsDonnée(IdFic,i,23) // Cellule à problème
        
        
        
        HAjoute(LOG060)
        
    FIN
    
SINON
    Erreur("Le fichier excel est ouvert!"+RC+"Veuillez le fermer avant de continuer.")
    RETOUR
FIN


// Fermeture du fichier
xlsFerme(IdFic)





Je vais devoir laisser Tomber Excel et essayer en faisant un Transfert de Données sur fichier .TXT

J' attends Vos Suggestions et Merci !!!
  Trouver
  Répondre
Samifred Hors ligne
Moderator
*****
Messages : 5,576
Sujets : 83
Inscription : Nov 2005
Réputation : 11
Thanks: 0
Given 40 thank(s) in 38 post(s)
#8
13-07-2015, 04:17 PM
Bonjour,

Dans mon précédent message j'avais demandé un extrait du fichier Excel original que tu importes, deux trois lignes pour tester.

...
Se souvenir et savoir sont deux choses différentes. Se souvenir, c'est garder en mémoire. En revanche, savoir signifie assimiler sans dépendre d'un modèle.

WD 4.1 => 23


  Trouver
  Répondre
gaymath2 Hors ligne
Senior Member
****
Messages : 301
Sujets : 29
Inscription : Oct 2008
Réputation : 0
Thanks: 0
Given 2 thank(s) in 2 post(s)
#9
20-07-2015, 10:16 AM
(13-07-2015, 02:00 PM)BOURBAKI a écrit : Bonjour à Vous ....
J'ai aussi essayé ce Code sur Clic Bouton
Utilisant les fonctions xlsOuvre et xlsDonnée  de WD9
Mais aucun résultat acceptable ....

Code :
SAI_Saisie1 est une chaîne
SAI_Saisie1= ComplèteRep(fRepExe())+"LOG060.xls"
IdFic est un entier
ResNbLigne est un entier
i est un entier
IdFic = xlsOuvre(SAI_Saisie1)
ResNbLigne = xlsNbLigne(IdFic)
SI IdFic<>-1 ALORS
    
    POUR i=1 A ResNbLigne
        
        LOG060.PRCODE=xlsDonnée(IdFic,i,1)
        LOG060.PRDESIG=xlsDonnée(IdFic,i,2)
        LOG060.CACODE=xlsDonnée(IdFic,i,3)
        LOG060.FOCODE=xlsDonnée(IdFic,i,4)
        LOG060.PRGROS=xlsDonnée(IdFic,i,5)
        LOG060.FTCODE=xlsDonnée(IdFic,i,6)
        LOG060.PRDMAJ=xlsDonnée(IdFic,i,20) // Cellule à problème
        LOG060.PRDDV=xlsDonnée(IdFic,i,21) // Cellule à problème
        LOG060.PRDDC=xlsDonnée(IdFic,i,22) // Cellule à problème
        LOG060.PRDDL=xlsDonnée(IdFic,i,23) // Cellule à problème
        
        
        
        HAjoute(LOG060)
        
    FIN
    
SINON
    Erreur("Le fichier excel est ouvert!"+RC+"Veuillez le fermer avant de continuer.")
    RETOUR
FIN


// Fermeture du fichier
xlsFerme(IdFic)





Je vais devoir laisser Tomber Excel et essayer en faisant un Transfert de Données sur fichier .TXT

J' attends Vos Suggestions et Merci !!!

salut

Code :
         LOG060.PRDMAJ=Chaineversdate(xlsDonnée(IdFic,i,20)) // Cellule à problème
        LOG060.PRDDV=chaineversdate(xlsDonnée(IdFic,i,21)) // Cellule à problème
        LOG060.PRDDC=cahineversdate(xlsDonnée(IdFic,i,22)) // Cellule à problème
        LOG060.PRDDL=chaineversdate(xlsDonnée(IdFic,i,23)) // Cellule à problème
Celà devrait marcher.
Ne craignez pas d'etre lent, craignez juste d'etre a  l'arret.
Coordialement!
  Trouver
  Répondre
« Sujet précédent | Sujet suivant »


Sujets apparemment similaires...
Sujet Auteur Réponses Affichages Dernier message
  [Windev 10] Purger un fichier par dates bbjodel 7 2,476 30-05-2015, 09:06 PM
Dernier message: bbjodel
  [Windev 9] Import xls pb de date mephiston 2 1,099 08-08-2008, 12:14 PM
Dernier message: Samifred
  [Windev 9] Import CSV Problème [résolut] mephiston 0 3,632 17-04-2008, 08:19 AM
Dernier message: mephiston
  [Windev 9] Dates jo_la_pasteque 1 2,678 14-04-2008, 09:19 AM
Dernier message: JR
  [Windev 9] Recherche entre 2 dates données piogo113 5 3,457 10-03-2008, 11:37 AM
Dernier message: piogo113
  [Windev 10] Import données Excel arsene12 5 2,418 09-11-2007, 05:19 AM
Dernier message: arsene12
  [Windev 10] Entre 2 dates arsene12 3 1,635 03-11-2007, 12:00 PM
Dernier message: arsene12
  [Windev 10] Format des dates pour import avec Excel arsene12 6 1,618 28-10-2007, 06:52 PM
Dernier message: arsene12
  [Windev 9] un code pour filter une table memore entres 2 dates CONDEAB 0 935 27-09-2007, 11:04 AM
Dernier message: CONDEAB
  [Windev 8] calcul des jours ouvrés entre 2 dates Guest 1 8,327 30-08-2007, 02:32 PM
Dernier message: Samifred

  • Voir une version imprimable
  • S’abonner au sujet
Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)

About Tunidev

Forum des developpeurs windev.

Quick Links

  • Contact Us
  • Tunidev
  • Forum Team
  • Lite Version

 

Powered by MyBB, © 2002-2019 MyBB Group.

Focus MyBB Theme by WallBB

Affichage linéaire
Affichage hiérarchique