Discussion :

[msmd69]

Bonjour à tous,
D'habitude je trouve toutes mes solutions sur le site et j'en profite pour vous dire merci, par contre là je sèche.
Je suis sous Excel 2007 et je télécharge par macro un .zip que je dézippe. Jusque là pas de soucis. C'est à l'ouverture du fichier par macro que ça coince. Il se nomme xxx.xls mais doit avoir un genre de format .csv ou .txt
Si je l'ouvre à la main, la structure est bonne. Par la macro, il modifie la structure et change le format d'une partie des dates. Bien sûr j'ai essayé la méthode open/opentext avec les attributs local:=true/ plusieurs rang différents/ l'ouvrir et l’enregistrer sous un format xlsx / le renommer en txt pour l'ouvrir avec les delimiters mais ce n'est pas vraiment un vrai txt pour moi.
Bref, quand je l'ouvre à la main, je filtre la colonne D et là je cherche l'année en cours et le jour en cours. Par la macro, et comme il modifie le format je ne retrouve pas mon jour en cours.
Si vous avez une idée, je suis preneur. Le fichier zip est ici : http://clients.rte-france.com/servle...let?annee=2018 le .xls est aussi en pièce jointe
A l'ouverture à la main du .xls, une information dit qu'il n'est pas au bon format etc... mais vous pouvez l'ouvrir sans hésiter
Ouvrez le via une petite macro du style Workbooks.Open Filename:=mon_dossier & Dir(mon_dossier & "Donne*xls") et constatez

Merci d'avance

[anasecu]

Bonsoir,

Si tu l'ouvres avec l’enregistreur de macro tu obtiens ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
    Workbooks.OpenText Filename:= _
        "C:\DonneesIndisponibilitesProduction_2018.xls", _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
        , 1), Array(16, 1), Array(17, 1), Array(18, 1)), TrailingMinusNumbers:=True
End Sub

Ensuite pour l'ouvrir sans souci il suffit d'utiliser la macro générée.

[msmd69]

Bonsoir,
Merci pour le retour anasecu.
Oui le fichier s'ouvre mais il n' a pas le bon format. par exemple en ligne 25 il y a du texte et les les dates sont passées (peut etre pas toutes) au format Américain.
Si tu l'ouvres à la main, tu verras qu'il n'y a en colonne C par exemple, que des dates.
Comme s'il y avait un problème de gestion de longueur de caractères des commentaires et que le fait de l'ouvrir via macro faisait des renvois ou des sauts de lignes!?!

[eriiic]

Bonjour,

en effet ce n'est pas un xls.
Essaie en changeant l'extension en .txt avant de l'ouvrir avec excel.
eric

[msmd69]

Bonjour,

J'ai déjà essayé, ce n'est pas concluant ni en .txt, ni en.csv
J'ai aussi essayé de le réenregistrer en .xlsx par la macro mais rien ni fait.
Je poursuis donc mon investigation.
Merci à vous

[eriiic]

Bonjour,

ouvre le txt avec l'enregistreur de macro et à l'étape 3 (ou 2 ?) sur les colonnes date choisis le format Date JMA.
Ca te mettra le bon 2nd paramètre de FieldInfo:= (, 4 pour JMA) aux champs date :

Code :

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

1
2
3
4
5
6
7
8
9
10
    ChDir "D:\tmp\Téléchargement Chrome"
    Workbooks.OpenText Filename:= _
        "D:\tmp\Téléchargement Chrome\DonneesIndisponibilitesProduction_2018.txt", _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 4), Array(4, 4), Array(5, 4), Array(6, 4), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
        , 1), Array(16, 1), Array(17, 1), Array(18, 1)), TrailingMinusNumbers:=True
End Sub

eric

[Marc-L]

Bonjour,

effectivement l'extension du fichier n'est pas bonne car c'est un simple fichier texte délimité par une tabulation !

Donc le renommer en .txt puis faire glisser l'icône de ce fichier depuis l'Explorateur Windows vers Excel,
aucun souci de date de mon côté.

Évidemment demander à l'auteur de ce fichier d'enregistrer les dates enfin au bon format natif d'Excel : YYYY/MM/DD …

Sinon ce n'est pas compliqué de lire ligne par ligne le fichier puis de convertir les dates via CDate ou encore FormulaLocal,
voir les exemples dans les discussions de ce forum.

Sans compter la fonctionnalité d'Excel d'importation de fichier texte juste en répondant bien à son assistant …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …