A à la fin du traitement j'ai un problème sur le format de la date!
- 03/01/2011 est affichée comme 01/03/2011
- 07/01/2011 est affichée comme 01/07/2011
Pour les jours >= 12, il n'a pas de soucis.
Il y aurait donc une confusion entre formats US et FR...?
-> J'ai vérifié les options régionales de mon PC mais rien n'y fait
-> J'ai essayé de formater la colonne en précisant le format de la date sans succès
-> J'ai essayé de convertir la colonne en date JMA, sans résultat non plus
Visiblement c'est un problème connu, donc est-ce que quelqu'un a une solution pour afficher correctement ces dates au format français: JJ/MM/AAAA HH:MM
essaye ceci, attention j'ai modifié le nom de ta variable "path" en "MonFichier", en effet "path" est un mot réservé vba, il est préférable de ne pas utiliser ces mots comme nom d'objet ou de variable... :
Code:
Dim MonFichier As String
MonFichier = Application.GetOpenFilename
If Len(MonFichier) <= 0 Then Exit Sub
If Len(Dir(MonFichier)) <= 0 Then Exit Sub
Workbooks.Open Filename:=MonFichier
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, Semicolon:=True, FieldInfo:=Array(Array(1, 1), Array(2, 4), Array(3, 4), Array(4, 4))
@Pierrot, merci pour ton retour.
J'ai remplacé l'intégralité de mon code par ce que tu as mis et j'obtiens une erreur.
Pourrais-tu stp me dire comment le mettre en oeuvre?
Merci beaucoup
Aarf, c'est vrai tu avais placé le code dans le module de la feuille, modifie comme suit :
Code:
Dim MonFichier As String
MonFichier = Application.GetOpenFilename
If Len(MonFichier) <= 0 Then Exit Sub
If Len(Dir(MonFichier)) <= 0 Then Exit Sub
Workbooks.Open Filename:=MonFichier
With ActiveSheet
.Columns("A:A").TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, Semicolon:=True, FieldInfo:=Array(Array(1, 1), Array(2, 4), Array(3, 4), Array(4, 4))
End With
Private Sub CommandButton1_Click()
Dim MonFichier As String
MonFichier = Application.GetOpenFilename
If Len(MonFichier) <= 0 Then Exit Sub
If Len(Dir(MonFichier)) <= 0 Then Exit Sub
Workbooks.Open Filename:=MonFichier
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlNone, Semicolon:=True, FieldInfo:=Array(Array(1, 1), Array(2, 4), Array(3, 4), Array(4, 4))
End Sub
J'obtiens une erreur '1004' Aucune donnée à convertir n'a été sélectionnée et j'ai la flèche jaune qui pointe sur
Aarf, pas de souci chez moi, me renvoie bien la bonne date.... voir peut être du coté des paramètres régionaux de ton ordi... pas d'autre idée pour le moment....