Inversion de donnée dans une cellule

Résolu
Necoho Messages postés 8 Statut Membre -  
Necoho Messages postés 8 Statut Membre -
Bonjour à toutes et à tous.

Je vous explique ma situation, je suis actuellement en stage et mon objectif est d'automatiser des saisies issues d'instrument de mesure dans un laboratoire en utilisant VBA.

Je ne m'en suis pas trop mal sortie jusque la en trouvant mon bonheur à travers les forums mais la je commence à ne pas trouver l'info.

Alors voici mon problem.

Le fichier issu de l'instrument a un format date américain, et excel, evidemment, un format date européen ... Ce qui fait qu'il inverse le jour et le mois lors de l'export (problem recurrent depuis environ la creation d'excel d'après ma recherche sur les forums).

Alors du coup j'aurais besoin d'un coup de main pour remettre la date dans le bon ordre en utilisant une macro (le changement de format ne fonctionne pas)

Je suis clairement pas un expert dans le domaine et je galère à trouver une solution fonctionnelle.

(Je n'arrive pas à inserer les fichiers que j'utilise)

6 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Ce qui fait qu'il inverse le jour et le mois lors de l'export
    Export ou import et comment?
    0
  2. Necoho Messages postés 8 Statut Membre
     
    L'instrument est sous le format jj/mm/yyyy et a possibilité d'envoyé les données récoltées sous forme de tableau excel (dans "fichier" : "send data to MS excel"), lors de la convertion, il est toujours sous format jj/mm/yyyy mais il inverse les données jj/mm
    en gros ==> instrument : 09/06/2017
    Fichier excel : 06/09/2017
    tout deux sous format jj/mm/yyyy je me retrouve donc avec le 6 septembre au lieu du 9 juin.
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,

      tout deux sous format jj/mm/yyyy
      Non, si j'ai bien compris. L'intrument envoi jj/mm/yyyy et Excel "interprete" mm/jj/yyyy
      Probleme: a quel moment voulez-vous reformater les dates, en temps reel surement pas, donc ......?

      Possible de voir ou avoir un fichier cree ou pas ?

      suite:
      Toutes les dates de tous les mois sont inversees ou seulement les jours de 1 a 12
      0
  3. Necoho Messages postés 8 Statut Membre
     
    Re,

    Il semblerait que ça soit quelque chose comme ça.
    Voici les 2 documents que j'utilise, le fichier nommé "dco" est le fichier extrait de l'instrument via "fichier => send data to MS excel" et le fichier "Export DCO" est le fichier où je voudrais retrouver la date correcte.

    Il contient notamment une macro de conversion dans laquelle je voudrais insérer la macro pour remettre la date dans l'ordre.

    Il semblerait que seule les dates avec les jours 1 à 12 soient concernées (dû au problem récurent de conversion entre le format américain et européen)

    https://www.cjoint.com/c/GFmmefBhXxQ
    https://www.cjoint.com/c/GFmmg4aYdwQ
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,

      Il semblerait que seule les dates avec les jours 1 à 12 soient concernées
      Sure!

      Ok, je regarde la chose
      A+

      Suite:

      Fichier code modifie, conversion date pour le fichier a dispo faite:
      https://mon-partage.fr/f/JiXxIE5R/
      Attention a ne pas modifer manuellement la date avent conversion
      0
  4. Necoho Messages postés 8 Statut Membre
     
    C'est parfait à un detail près !

    09/06//2017 19:43:57

    J'ai un double "/" entre le mois et l'année, est-ce normal ? Comment puis-je le supprimer ?

    Merci beaucoup pour votre aide, je n'aurais jamais trouvé ça seul !
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,
      replacez:
      M = Left(MD, 3)

      par:
      M = Left(MD, 2)
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Necoho Messages postés 8 Statut Membre
     
    C'est parfait merci beaucoup !

    Je clos le sujet !
    0
  7. Necoho Messages postés 8 Statut Membre
     
    De retour !

    Un autre soucis fait surface !

    En faisant la modification il ne fait plus le changement entre 06 et 09.

    J'ai essayer de trouver la solution par moi meme, mais aucun des changement que j'ai pu faire n'a aboutis à quoi que ce sois.
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour,

      J'ai eu le meme soucis hier,remplacez:
      Plage(n, 1) = J & M & Right(Plage(n, 1), 14)

      par
      Plage(n, 1) = CDate(J & M & Right(CStr(Plage(n, 1)), 14))


      Par contre votre code pour les copies de colonne seme la pagaille chez moi. Vous utilisez Excel2003 et les fichiers sont ouverts avec deux excel separes?
      0
    2. Necoho Messages postés 8 Statut Membre
       
      Re,

      Effectivement, l'Excel de mon entreprise est 2003.

      J'utilise en effet 2 feuilles, une issue de l'instrument et l'autre comportant la macro.

      Votre solution fonctionne à merveille !

      Merci beaucoup pour votre aide !
      0
    3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,

      J'utilise en effet 2 feuilles
      Deux classeurs, que vous ouvrez manuellement. Export_DCO, c'est normal,mais l'autre ca pourrait se faire par VBA ou plus "sophistique" VBA sans l'ouvrir
      Mais c'est vous qui voyez.....
      0
      1. Necoho Messages postés 8 Statut Membre > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
         
        Elle s'ouvre d'elle meme lorsque je l'exporte de l'instrument, je pense éviter son ouverture en évitant de l'enregistrer pour la renommer. Ca sera effectivement un gain de temps.

        Merci du conseil !
        0