Discussion :

[nico75]

Bonjour,

Dans une cellule Excel, j'ai une date dont le format est affiché en anglais du type dd-mmm-yy

Ce qui pour la date saisie dans la cellule : 14/07/2010
Affiche : 14-Jul-10

J'ai une macro qui exporte mes données dans un fichier texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim iFile As Integer
iFile = FreeFile
Print #iFile, Format(xlApp.Cells(i, 5), "[$-409]dd-mmm-yy;@")

Mais dans mon fichier, je retrouve la date en Français, c'est à dire : 14-Juil-10
Et il me la faut vraiment en anglais ....

Existe-t-il une solution pour avoir la valeur lue ?

[Invité]

Bonjour

Relis ton message, tu te mélanges les pinceaux

Format Français dd-mmm-yy
Format Anglais mm-dd-yy

Relis bien ton message.

Philippe

[nico75]

En effet, je me mélange les pinceaux

même en utilisant le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Print #iFile, Format(xlApp.Cells(i, 5), "[$-409]mmm-dd-yy;@")

J'obtiens dans mon fichier texte : juil-14-10

Le résultat que mon client attend est : 14-jul-10

[Pierre Fauconnier]

Salut.

A ma connaissance, la fonction FORMAT() de VBA ne tient pas compte du format régional que tu passes ([$-409]).

Il faut que tu passes par la fonction TEXT des worksheetfunction

Si je comprends ton code, tu utilises Excel via une autre application grâce à xlApp, et tu dois donc utiliser cet objet application pour l'appel de WorksheetFunction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Print #iFile, xlApp.WorksheetFunction.Text(xlApp.Cells(i, 5), "[$-409]dd-mmm-yy;@")

Attention que dans ton deuxième message, tu passes le mois avant le jour, mais l'important n'est pas là.