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

Chrystel01

XLDnaute Occasionnel
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
 

Pièces jointes

  • CAPACITEETAB-202101-test.xls
    28.5 KB · Affichages: 5
  • Conversion_txt.xlsm
    17.3 KB · Affichages: 6

Chrystel01

XLDnaute Occasionnel
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
 

job75

XLDnaute Barbatruc
A priori cette macro dans le fichier .xls va bien :
VB:
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

XLDnaute Occasionnel
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 !
 

Discussions similaires

Statistiques des forums

Discussions
299 847
Messages
1 979 562
Membres
206 773
dernier inscrit
becaye80