Discussion :

[Tiblar92]

Bonjour,

Je fais appelle à vous car j'ai un petit problème de conversion dans l'une de mes macros.

--> Dans mon export de base, j'ai une colonne dans laquelle apparaissent des dates OU la mention "non concerné", donc je pense que tout est considéré comme du texte lorsque que ma macro ouvre l'export.
--> Quand je dis à Excel de convertir les données, certaines cellules ne sont pas traitées (cf capture d'écran ci-dessous)



PI: Voici la ligne de code que j'utilise

Code :

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

1
2
3
4
Columns("O:O").Select
    Selection.TextToColumns Destination:=Range("O1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

Quelqu'un saurait-il d'où peut venir le problème ? merci d'avance

[riaolle]

Bonjour,
Je ne peux pas corriger ta ligne de code, car je ne connais pas cette formule, mais je peux te dire quelle est l'origine du problème. Ca vient du fait que VBA lit les dates en anglais (4 décembre 2017 est 12/04/2017), alors que ton Excel est sûrement en français et lit donc les dates en français (4 décembre 2017 est 04/12/2017).

[78chris]

Bonjour

En complément de la remarque de riaolle, il faudrait déjà voir comment sont exportées les données.

Dans nombre de cas Excel fait une conversion à l'ouverture du fichier :
certaines passent mais ne sont pas forcément importées correctement le 4/5/2017 au format US est le 5 avril mais peut être interprété comme le 4 mai.
d'autres sont considérées comme texte car ne pouvant être ainsi interverties. Ton exemple semble bien confirmer cela.

Il convient donc de régler le problème en amont, en paramétrant l'import, pas en le triturant à posteriori

[Tiblar92]

Code :

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

Range("O:O").TextToColumns DataType:=xlDelimited, FieldInfo:=Array(1, 4)

En ne gardant que ces arguments, cela fonctionne ! Je ne sais toujours pas pourquoi mais bon....

Pour obtenir ça, je suis passé par l'enregistreur de macro et j'ai utilisé le menu convertir en passant bien les 3 étapes. C'est l'argument "Fieldinfo" qui a changé mais je ne sais pas trop à quel niveau ça intervient.

[Tiblar92]

Merci pour ta réponse Chris !

Effectivement tu as tout compris, l'export Excel est issu d'un logiciel interne à la société et le paramétrage devrait être fait par mon Service IT qui a malheureusement ses limites... donc je suis obligé de bidouiller un peu les données avant de les faire apparaitre dans mon rapport.

Je peux comprendre la complexité de l'exercice pour le développeur car il y a 3 cas de figure dans ce champ.
- laisser vide en attendant d'avoir l'infos
- "Non concerné" apparait automatiquement dans certains cas si une autre case est cochée dans le logiciel (le projet n'est pas concerné par la signature d'un contrat)
- Date saisie dans le champs car l'utilisateur a l'infos

[Docmarti]

Bonjour.

Code :

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

1
2
3
4
Selection.TextToColumns Destination:=Range(dest1), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, typeArray), TrailingMinusNumbers:=True

Dans la commande ci-dessus, le parametre :=Array(1, typeArray) doit decrire correctement le format des dates.

Il y a 2 possibilites: ou la date dans la cellule est de type String, ou elle est de type Date.
EDIT:
Si elle est de type Date, il faut toujours mettre xlGeneralFormat ou xlMDYFormat (le format date americain mois/jour/annee).
Si elle est de type String, il faut mettre le format de date affiche dans la cellule (soit xlDMYFormat si la valeur de la cellule est au format DMY jour/mois/annee, xlYMDFormat si le format est annee/mois/jour, etc...)

Code :

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

1
2
3
typeArray = xlMDYFormat 'MDY   si valeur est de type Date OK
typeArray = xlDMYFormat 'DMY   si valeur est de type String OK
typeArray = xlGeneralFormat 'General

[Tiblar92]

Est-ce que cela veut dire que 4 = xlDMYformat ?
=Array(1, 4)

[78chris]

Re

Effectivement tu as tout compris, l'export Excel est issu d'un logiciel interne à la société ...

L'important est le format d'export : si CSV

• soit remplacer l'extension csv par txt pour pouvoir paramétrer l'import et réglet le bon format de date,
• soit passer par données externes pour l'import mais ne pas simplement ouvrit un fichier csv pour éviter les automatismes non prévus pour nous nous mais pour les normes américaines.

Dans tout les cas précise le format et la façon dont tu récupère dans Excel