Discussion :

[juju05]

Je cherche à importer un fichier ASCII sous Excel 2000 en utilisant une macro VBA.

Il y a un champ à importer qui correspond à une date en format JJ/MM/AA.
Après importation, cette date apparaît dans mon fichier sous la forme JJ/MM/SSAA.

J'ai bien compris que cela était dû à mes paramètres régionaux. Je les ai modifié et cela fonctionne. Cette réponse ne me satisfait guère.
N'y a t-il pas un moyen de forcer le formattage lors de la valorisation de la cellule ?
Quelque chose du genre Str(MaDate;"JJ/MM/AA") ?

Merci d'avance.

Bonnes fêtes.

[ESVBA]

la fonction similaire à la proposition est :

Code :

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

Format(MaDate;"dd/mm/yy") ?

Bonne soirée.

ESVBA

[juju05]

Merci beaucoup, c'est la fonction que je recherchai.

Il me reste un dernier problème.

Si j'ai une date au 01/02/96, Excel le traduit en 02/01/96, un peu comme si j'avais un format américain.

Que puis-je faire sans changer mes paramètres régionaux, rien qu'en le formattant ?

Question subsidiaire: qu'est-ce qui est le plus rapide: formatter chaque cellule ou modifier toute la colonne par un
Selection.NumberFormat = "dd/mm/yy" après importation de toutes les lignes du fichier ?

Je pense que le selection.number doit être plus rapide.

Merci d'avance.

Julien.

[Duddy]

Bonjour le forum et meilleur voeux à tous,

Le seul moyen que j'ai trouvé, c'est de transformé la valeur de ma variable en format TEXTE par :

Code :

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

MaVar=Cstr(MaVar)

Ensuite je l'insère dans un cellule qui est déjà au format TEXTE.

Si ensuite, j'ai de nouveau besoin de la valeur de ma cellule, je la repasse au format DATE par :

Code :

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

Macellule=Cdate(Macellule)

[Didier Gonard]

Bonjour,

Si tu passes par une variable VBA, as-tu essayé de typer ta variable :
Dim Madate As Date, si à la base tu récupères un format texte ou que tu transformes en texte, ça doit suffire, si c’est un format date, il doit avoir y conversion.

Une bonne solution pour éviter les « interprétébugs » est d’être le plus explicite possible, vu que dans ce contexte on est face à un interpréteur VBA qui est en US et un feuille en format national.
Tous les jours inférieurs à 12 seront interprétés par VBA en mois dans une saisie non explicite ce qui se passe dans l’import…

La solution serait d’utiliser un format que fait appel aux mois en clair, c'est-à-dire par leurs noms…

Code :

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

1
2
Dim Madate As Date
Madate = Format(Madate, "dd/mmm/yy")

Format te retourne un Variant / String sans ambiguïté et MaDate passe en Date OK.

Si MaDate n’est pas typée, il faudrait passer par :

Code :

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

Madate = CDate(Format(Madate4, "dd/mmm/yy"))

à voir...

cordialement,

Didier