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

job75

XLDnaute Barbatruc

• 14 Juin 2022

• #2

Chrystel01 à dit:

Bonjour Chrystel01,

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

Cliquez pour agrandir...

Pas vus de programme ni de dates dans le fichier txt

A+

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 14 Juin 2022

• #3

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

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 14 Juin 2022

• #4

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

 

Dernière édition: 14 Juin 2022

Vote positif 0 Vote négatif

Solution

job75

XLDnaute Barbatruc

• 14 Juin 2022

• #5

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.

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 14 Juin 2022

• #6

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 !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Juin 2022

• #7

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

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 14 Juin 2022

• #8

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

 

Vote positif 0 Vote négatif