Convertir en VBA

Bonsour® François B avec ferveur ;o))) vous nous disiez :

j'ai un phénomène assez étrange : voulant convertir une colonne dans
laquelle j'ai des dates au format US (MM/JJ/AAAA) vers un format bien de chez
moi (...) (JJ/MM/AAAA) j'utilise la fonction convertir (données - convertir)
sauf que je ne redistribue pas sur d'autres colonnes je reste sur celle en
cours.

mon problème : cela fonctionne parfaitement dés lors que je passe par les
menus et plus du tout dés que je transcris cette opération en VBA ...


quelqu'un a t'il une idée ??

sous XP il faut ajouter l'option Local=true

code (généré par XL) :
Columns("J:J").Select

Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:úlse, _
Tab:=True, Semicolon:úlse, Comma:úlse, Space:úlse, Other:úlse, _
FieldInfo :=Array(1, 3), TrailingMinusNumbers:=True, Local=True

--
--
@+
;o)))

euh ... merci pour cette tentative mais la syntaxe ne semble pas correcte ??
Oupsssss.....

Columns("J:J").Select
Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited,
_
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:úlse, _
Tab:=True, Semicolon:úlse, Comma:úlse, Space:úlse, Other:úlse, _
FieldInfo :=Array(1, 3), TrailingMinusNumbers:=True, Local=True

--
--
@+
;o)))

Bonsour® François B avec ferveur ;o))) vous nous disiez :

euh ... merci pour cette tentative mais la syntaxe ne semble pas correcte ??
Oupsssss.....

......xxxxxx , Local : = True

Columns("J:J").Select
Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited,
_
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:úlse, _
Tab:=True, Semicolon:úlse, Comma:úlse, Space:úlse, Other:úlse, _
FieldInfo :=Array(1, 3), TrailingMinusNumbers:=True, Local=True

--
--
@+
;o)))

--
--
@+
;o)))