Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

mise en forme date

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gege21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

gege21

XLDnaute Occasionnel
bonjours a tous
quand j'importe me donne la mise en forme de la date ne se fait pas comme il faut
je me retrouve en "jj-mm-aaaa" et sur d'autre ligne en "mm-jj-aaaa"
et je ve comprend par pourquoi
je veut que se soit en "jj-mm-aaaa"
merci de votre aide
Code: 
Sub import_données_mini_maxi()

    Dim myDir$, fn$, txt$, sepa$, a(), dl As Long
    Dim n As Long, i As Long, f As Long, ff As Integer
    Dim d As Worksheet
    sepa = ";"
    myDir = ThisWorkbook.Sheets(2).[h4]
    fn = Dir(myDir & ThisWorkbook.Sheets(2).[h5])
    Do While fn <> ""
        ff = FreeFile
        Open myDir & fn For Input As #ff
        Do While Not EOF(ff)
            Line Input #ff, txt
            n = n + 1: ReDim Preserve a(1 To n)
            a(n) = Split(txt, sepa)
         Loop
        Close #ff
        fn = Dir()
    Loop
    Set d = ThisWorkbook.Sheets(4)
    With d
    With .[A1]
        For i = 2 To n
            .Offset(i - 1).Resize(, UBound(a(i)) + 1).Value = a(i)
            dl = d.[A65536].End(xlUp).Row
                .Resize(dl).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
                ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 4)
                Next
    End With
    End With
End Sub
 

Pièces jointes

Trier par date Trier par votes
Re : mise en forme date

Bonjour gege21
Avec la procédure qui suit, il me semble que les données sont correctement traduites.
Code: 
[COLOR="DarkSlateGray"][B]Sub ouvrirDayFileTxt()
[COLOR="SeaGreen"]'Adapter le chemin "E:\XLD\dayfile.txt"
'[/COLOR]
   Workbooks.OpenText Filename:="E:\XLD\dayfile.txt", Origin:=xlMSDOS, _
      StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
      , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 4), 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), Array(19, 1)), DecimalSeparator:=",", TrailingMinusNumbers:=False
End Sub[/B][/COLOR]

Ce n'est sans doute pas exactement ce que vous souhaitez, mais c'est peut-être une piste...​
ROGER2327
#2900
 
Vote positif 0 Vote négatif
Re : mise en forme date

bonjour ROGER2327

hélas se la ne change rien a mon problème
mais il faudrait que je reste sur se typé de macro
mais tout les idée sont les bien venu
😎
 
Vote positif 0 Vote négatif
Re : mise en forme date

Re...
gege21 à dit:
bonjour ROGER2327

hélas se la ne change rien a mon problème
mais il faudrait que je reste sur se typé de macro
mais tout les idée sont les bien venu
😎
Cliquez pour agrandir...
Il me semble que ce que je propose change quelque chose : les dates sont récupérées dans Excel sans confusion entre le jour et le mois. À partir de là, il doit être possible de récupérer les données qui vous intéressent pour les placer à l'endroit qui vous convient.​
ROGER2327
#2903
 
Vote positif 0 Vote négatif
Re : mise en forme date

bonjour roger

effectivement sa marche bien mais il faut que se soit dans le même classeur
et ton importation en ouvre un nouveau
c pour sa que sa ne va pas
mais merci pour ta réponse
si tu a mieux je suis preneur
🙄
 
Vote positif 0 Vote négatif
Re : mise en forme date

Re...
Il suffit de copier les données dans le classeur créé, puis de de le fermer sans l'enregistrer... Quelque chose du genre :
Code: 
[COLOR="DarkSlateGray"][B]Sub ouvrirDayFileTxt()
[COLOR="SeaGreen"]'Adapter le chemin "E:\XLD\dayfile.txt"
'[/COLOR]
   Workbooks.OpenText Filename:="E:\XLD\dayfile.txt", Origin:=xlMSDOS, _
      StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
      , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 4), 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), Array(19, 1)), DecimalSeparator:=",", TrailingMinusNumbers:=False
[COLOR="SeaGreen"]' [/COLOR]  
   With ActiveSheet
      .Range(.Cells(1, 1), .Cells(1, 1).SpecialCells(xlLastCell)).Copy Destination:=ThisWorkbook.Sheets(1).Range("A1")
   End With
   ActiveWindow.Close
End Sub[/B][/COLOR]
ROGER2327
#2905
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
Microsoft 365 Import .txt au format date
Réponses
14
Affichages
586
dysorthographie
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
912
TooFatBoy
U
  • Question Question
Autres [RÉSOLU] Peut-on faire une macro qui met une seule macro en commentaires puis le contraire!!!
2 3
Réponses
30
Affichages
2 K
un internaute
U
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
621
anthoYS
N
  • Question Question
Listbox click
Réponses
10
Affichages
663
ChTi160
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
396
job75
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
820
KRUG WOO
K
  • Question Question
Autres Séquenceur (Timer) dans autre instance d'Excel
Réponses
5
Affichages
453
Dranreb
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
367
CortoXls
C
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
645
safranien
S
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
875
piga25
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
746
patricktoulon
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
3 K
kiki29
N
  • Question Question
Autres bouton d'action sous excel
Réponses
6
Affichages
553
wDog66
W
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
948
marie3107
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…