[VBA-E] enregistrement fichier txt - date

Bonjour,

Je souhaite enregistrer une colonne excel de date dans un fichier texte.
Pour resoudre le probleme de date francaise - americaine, j utilise la fonction format.

J avais un probleme pour les 12 premiers que je resouds comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

While Not n = 31 If n <= 12 Then Cells(i, "A") = n & "-" & mes & "-" & Anom Else Cells(i, "A") = mes & "-" & n & "-" & Anom End If Cells(i, "A") = Format(Cells(i, "A"), "dd/mm/yyyy") i = i + 1 n = n + 1 Wend

---

Mon probleme est lorsque je veux sauver le fichier et fermer :?

Code:

---

1 2	ActiveWorkbook.SaveAs Filename:="D\text.txt" _ , FileFormat:=xlText, CreateBackup:=False

---

- Si je mets

Code:

---

workbook.close

---

il ne me garde pas les bonnes dates...

Code:

---

1 2 3 4 5 6

1/10/1950 1/11/1950 1/12/1950 13/01/1950 14/01/1950

---

meme avec ma condition...

- Si je ne le mets pas
Excel me demande si je souhaite garder les changements efectués, et conserver le format text
et si je reponds oui aux 2 : c´est tout bon! (je veux avec les 0 : 01/02/2006 exactement)

Code:

---

1 2 3 4 5

10/01/1950 11/01/1950 12/01/1950 13/01/1950

---

Mon probleme est que je ne comprends pas pourquoi avec le saveas text il ne me garde pas les infos... je voudrais que ces reponses "ok" soient automatiques mais je ne vois pas comment...

:merci: pour votre aide!

Salut

Essaie ceci:

Code:

---

Format(Cells(i, "A"), "dd\/MM\/yyyy")

---

mm étant érservé aux minutes

Merci pour ta réponse mais ca ne change pas...
Si je sauve encore une fois et sans changer le format, c´est bon mais sinon j´ai la meme chose...

Je m'excuse je n'avais pas bien lu toute la question... :oops: honte sur moi...

Tu as bien mis toutes les valeurs pour tous les parametres de la méthode SaveAs ?

Ben je l utilise comme ca...

Code:

---

1 2 3

ActiveWorkbook.SaveAs Filename:="D\text.txt", FileFormat:=xlText, _ CreateBackup:=False

---

J´ai toujours pas resolu, je comprends pas bien comment faire...

J ai l impression que le probleme vient du fait que je veuille fermer le fichier texte, si jutilise close ca marche pas, et si je le fais a la main, excel me demande de garder le format et ca marche.

Y a t il une methode a ajouter pour forcer encore une fois le format texte lorsqu´on ferme le fichier?

Merci!

Citation:

---

Envoyé par Lnmex

J ai l impression que le probleme vient du fait que je veuille fermer le fichier texte, si jutilise close ca marche pas, et si je le fais a la main, excel me demande de garder le format et ca marche.

Y a t il une methode a ajouter pour forcer encore une fois le format texte lorsqu´on ferme le fichier?

Merci!

---

Bonjour,

As-tu testé la méthode de suppression des messages d'alerte (DisplayAlerts) avant la fermeture ?

Essaie ceci:

Code:

---

1 2 3

Application.DisplayAlerts = False 'Suppression des messages d'alerte ActiveWorkbook.SaveAs Filename:="D\text.txt", FileFormat:=xlText, CreateBackup:=False Application.DisplayAlerts = True 'Retour à la normale

---

+

Théo

Salut

Plutôt que d'enregistrer le fichier Excel en format texte, essaie plutôt d'enregistrer les données du fichier quitte à invoquer une autre boîte de dialogue que SaveAs pour sélectionner le chemin et le nom du fichier.

Je regarde ça et te donne des nouvelles plus tard. Pour tout de suite, les enfants arrivent de l'école...

@+

Merci, j aurais appris un truc en plus ca fait pas longtemps que je "programme" en vba :D

Mais... j ai toujours le probleme que pour les 12 premieres dates et en plus il me garde pas les 0... ah lala... :?

Code:

---

1 2 3 4 5 6 7 8

1/9/1950 1/10/1950 1/11/1950 1/12/1950 13/01/1950 14/01/1950 15/01/1950

---

Sinon je vais finir par ecrire a la main mais j ai 20000 cellules alors c est pas genial!

Citation:

---

Envoyé par zazaraignée

Salut

Plutôt que d'enregistrer le fichier Excel en format texte, essaie plutôt d'enregistrer les données du fichier quitte à invoquer une autre boîte de dialogue que SaveAs pour sélectionner le chemin et le nom du fichier.

Je regarde ça et te donne des nouvelles plus tard. Pour tout de suite, les enfants arrivent de l'école...

@+

---

Merci, je vais regarder dans cette voie la... :D

J´ai le temps, chui au mexique alors ici il est que 10h10 du matin :mrgreen:

Hop ca marche!

Alors merci a tous les 2 car c´est grace à vous que j ai eu l idée!

Donc pour les dates je force le format sans faire de cas particulier pour les 12 premiers jours

Code:

---

1 2 3 4

Cells(i, "A") = mois & "-" & jour & "-" & annee Cells(i, "A").NumberFormat = "@" Cells(i, "A") = Format(Cells(i, "A"), "dd\/mm\/yyyy")

---

et pour enregistrer j enleve les messages d erreur :

Code:

---

1 2 3 4 5

ActiveWorkbook.SaveAs Filename:="D:\HELENE\bandas\macros\macros\0018140.txt", FileFormat:=xlText, CreateBackup:=True   Application.DisplayAlerts = False ActiveWorkbook.Close

---

Et j ai bien ce que je veux avec les zeros, automatique et tout!! :mrgreen:

Code:

---

1 2 3 4 5 6 7 8

08/01/1950 09/01/1950 10/01/1950 11/01/1950 12/01/1950 13/01/1950 14/01/1950

---

:merci:

Au lieu de

Citation:

---

Cells(i, "A") = Format(Cells(i, "A"), "dd/mm/yyyy")

---

Mets

Code:

---

Cells(i, "A") = Format(cdate(Cells(i, "A")), "dd/mm/yyyy")

---

Tu dis

A+

Edit
Nos messages se sont téléscopés mais... n'est-ce pas plus simple ?

Merci! :D

En effet, c´est plus simple!

Encore merci a tous pour vos reponses!!
:mrgreen:

Bonjour
J'arrive un peu tard dans la discussion mais ayant rencontré le même problème (dates transformées en format US par un SAVEAS en TXT)
j'ai trouvé une solution simple = le paramètre LOCAL ajouté à ma commande SAVEAS

ActiveWorkbook.SaveAs Filename:="blablabla", FileFormat:=xlText, CreateBackup:=False, Local:=True

LOCAL:=True fonctionne aussi lorsqu'on ouvre un .TXT

Bonne utilisation

Salut,

Sinon, il suffit de forcer le type de données en texte dans les cellule, en concaténant une apostrophe en début de donnée.
Ainsi Excel ne réinterprète pas à sa sauce:

Code:

---

Cells(i, "A") = Format(Cells(i, "A"), "'dd/mm/yyyy")

---