dates JJ/MM/AA et fichier CSV

[jhofman]

Bonjour


j'essaye par tous les moyens (depuis des mois) à lire des données dates stockées dans un fichier CSV.

Ces dates sont parfois inversées : 12/01/2010 -> 01/12/2010. et donc mes traitements perdent en fiabilité !!!

Comment éviter ce problème ?
Doit-on comme je l'ai lu faire en sorte que les date dans le fichier csv soient exportées systématiquement au mm/jj/aaaa ???
Merci de votre aide. je ne vois pas de solutions sans changer format fichier csv en entrée dont je ne suis pas maître.

 

[jhofman]

Re : dates JJ/MM/AA et fichier CSV

bonjour


petite question

a quoi sert dans QueryTables.Add le name ?
Est-il possible de ne pas l'utiliser plutôt que de l esupprimre à chaque fois 😱?

 

[tototiti2008]

Re : dates JJ/MM/AA et fichier CSV

Re,

Les données externes font un "lien" avec les données (qui peut être rafraichi), et ce lien est associé à un nom
Si tu n'as pas besoin de rafraichir, je te propose de supprimer le lien auquel cas ça équivaudra à un import) et le nom (Name) sera supprimé automatiquement avec le lien

Sub ImportTXT(destSheet As Range, csvFilePath As String)
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & csvFilePath _
, Destination:=destSheet)
.Name = "fichierlu"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 4, _
1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
.Delete
End With
 
End Sub

 

[jhofman]

Re : dates JJ/MM/AA et fichier CSV

Merci

j'ai donc ajouté

.Delete

à la fin de l'instruction.

mais cela ne m'évite pas de supprimer les noms que je génére à chaque exécution !!

je dois toujours procéder à ( qui en fait un peu trop... )mais ce peut toujours servir.

Sub SuppressionNomstest()
Dim Nom As Name
For Each Nom In ActiveWorkbook.Names
If Left(Nom.NameLocal, 20) = "TEMP!DonnéesExternes" Then
Nom.Delete
End If
Next Nom
End Sub

 

[tototiti2008]

Re : dates JJ/MM/AA et fichier CSV

Re,

c'est marrant, chez moi ça supprime le nom automatiquement...