XL 2013 Conversion de feuilles excel en txt automatisée sous VBA (MAIS pb du format date en anglais)

[Chrystel01]

Bonjour,

J'ai écrit un programme pour convertir un ensemble de fichiers excel placés sous un répertoire en fichiers txt.
Mon pb est que la date est alors convertie au format anglais (ex 2022/06/14) alors que je souhaite conservé le même format date que le fichier initial (14/06/2022).

Savez vous svp comment corriger ? Je vous joints le code vba si besoin.

Merci d'avance pour votre aide

Chrystel

 

[job75]

Bonjour Chrystel01,

J'ai écrit un programme pour convertir un ensemble de fichiers excel placés sous un répertoire en fichiers txt.

Pas vus de programme ni de dates dans le fichier txt 🙄

A+

 

[Chrystel01]

Bonjour Job75,

Pardon, je précise : je veux convertir le fichier "capacité..." en txt. Il comporte la date de mesure en colonne B.
Le fichier "Conversion" est la macro qui détecte les fichiers dans un même répertoire et les convertit en txt.
(j'ai donné un exemple de fichier capacité mais ils sont nombreux, c'est pourquoi je passe par du code VBA)

Merci de votre aide

Chrystel

 

[Deadpool_CC]

Bonjour @Chrystel01

pour tes dates résultantes dans le fichier txt, pour les avoir au format français tente le SaveAs avec l'option Local activé

fichier_ouvert.SaveAs nom_fichiertxt, FileFormat:=xlText, Local:=True

 

[job75]

A priori cette macro dans le fichier .xls va bien :

Sub Fichier_txt()
Dim fn$
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier txt est déjà créé
With ThisWorkbook
    fn = .FullName
    .SaveAs .Path & "\Conversion_txt.txt", xlText
    Workbooks.Open fn
    .Close
End With
End Sub

Salut Deadpool_CC.

 

[Chrystel01]

Bonjour

Je vous remercie beaucoup pour votre aide express.

Deadpool_CC
J'ai ajouté "Local:=True" à ma macro et cela fonctionne parfaitement. Un grand merci !
J'étais passé par l'enregistrement pour faire le code et il ne m'avait pas écrit cette partie.

Job75,
La macro est très bien. Il faut juste rajouter aussi "Local:=True" pour que la date ne soit pas convertie en anglais. Merci !

Je vous souhaite une très bonne semaine !

 

[job75]

Chez moi sur Win 11 - Excel 2019 pas besoin de Local, les dates ne sont pas converties.

 

[Chrystel01]

Vous avez de la chance, nous sommes encore sous excel 2013...