Enregistrer excel vers txt
Résolu
conrade82
Messages postés
105
Statut
Membre
-
conrade82 Messages postés 105 Statut Membre -
conrade82 Messages postés 105 Statut Membre -
Bonjour,
Je travaille sur un fichier excel qui récupère des données qui sont enregistrées dans les colonnes A à G. En colonne E et F sont renseigner des dates au format dd/mm/yyyy.
Je souhaite ensuite générer un fichier txt contenant les données de la feuille excel. J'ai pensé à enregistrer ma feuille excel sous format txt de type "Text(Tab delimited)". Ce fichier ainsi enregistré en foramt txt(je passe les message d'alerte d'office suite à cet enregistrement...), quand je l'ouvre il correspond exactement aux données du fichier excel d'origine.
Quand je copie le code VBA qui découle de cette manipulation et que je lance ma macro, le fichier txt qui en découle présente une anomalie: les colonnes E et F contenant des valeurs date se trouver sous un format MM/DD/YYYY au lieu de DD/MM/YYYY.
Comment puis-je faire pour résoudre ce problème svp ? Voici mon code:
Sub Export()
Set mafeuille = ActiveWorkbook.ActiveSheet
mafeuille.Copy
With ActiveWorkbook
ChDir ThisWorkbook.Path & "\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs fileName:= _
ThisWorkbook.Path & "\Data_Base_à_intégrer.txt", _
FileFormat:=xlText, CreateBackup:=False
.Close SaveChanges:=True
End With
ActiveWorkbook.Save
End Sub
Merci d'avance.
Je travaille sur un fichier excel qui récupère des données qui sont enregistrées dans les colonnes A à G. En colonne E et F sont renseigner des dates au format dd/mm/yyyy.
Je souhaite ensuite générer un fichier txt contenant les données de la feuille excel. J'ai pensé à enregistrer ma feuille excel sous format txt de type "Text(Tab delimited)". Ce fichier ainsi enregistré en foramt txt(je passe les message d'alerte d'office suite à cet enregistrement...), quand je l'ouvre il correspond exactement aux données du fichier excel d'origine.
Quand je copie le code VBA qui découle de cette manipulation et que je lance ma macro, le fichier txt qui en découle présente une anomalie: les colonnes E et F contenant des valeurs date se trouver sous un format MM/DD/YYYY au lieu de DD/MM/YYYY.
Comment puis-je faire pour résoudre ce problème svp ? Voici mon code:
Sub Export()
Set mafeuille = ActiveWorkbook.ActiveSheet
mafeuille.Copy
With ActiveWorkbook
ChDir ThisWorkbook.Path & "\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs fileName:= _
ThisWorkbook.Path & "\Data_Base_à_intégrer.txt", _
FileFormat:=xlText, CreateBackup:=False
.Close SaveChanges:=True
End With
ActiveWorkbook.Save
End Sub
Merci d'avance.
A voir également:
- Enregistrer excel vers txt
- Audacity enregistrer son pc - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
1 réponse
Bonjour,
Comme ceci:
Comme ceci:
Sub Export()
Dim mafeuille As Worksheet
Set mafeuille = ActiveWorkbook.ActiveSheet
Range("E:E").NumberFormat = "dd/mm/yyyy;@"
Range("F:F").NumberFormat = "dd/mm/yyyy;@"
mafeuille.Copy
With ActiveWorkbook
ChDir ThisWorkbook.Path & "\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\Data_Base_à_intégrer.txt", _
FileFormat:=xlText, CreateBackup:=False
.Close SaveChanges:=True
End With
ActiveWorkbook.Save
End Sub
Excellent!
Je l'avais tenté mais différemment... Merci beaucoup! ça fonctionne impec!
Bonne journée! :)