Discussion :

[oliver75]

Bonjour ,

j'ai un souçi avec le code ci-dessous

Code :

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

1
2
3
4
5
6
7
8
 
Workbooks.OpenText Filename:="R:\cft\euro-vl\Contrôle_des_benchmarks\EVLSAV.xls", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
        Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
        3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 4), Array(10 _
        , 1), Array(11, 1), Array(12, 4), Array(13, 4), Array(14, 1), Array(15, 1)), _
        TrailingMinusNumbers:=True

j'ai copié coller le code ci-dessus avec la fonction ouvrir sous excel de façon à formater le fichier txt au format voulu .
POur la colonne 12 j'ai précisé que le format devait etre "JMA"
Par ce biais il n'y a pas de pb. En revanche lorsque je recopie le code dans ma macro je récupère un format nombre

Quelqu'un a t il une astuce pour ce pb.

Merci

Olivier

[gedechp]

bonjour

pour formater une colonne au format date

Code :

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

1
2
 Columns("L:L").Select
    Selection.NumberFormat = "dd/mm/yy;@"

cordialement
GERARD