Convertir en VBA
Le
François B
bonjour,
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
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
quelqu'un a t'il une idée ??
par avance un grand merci !!!!!
cdt,
François
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
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
quelqu'un a t'il une idée ??
par avance un grand merci !!!!!
cdt,
François
Poser une question
Sub test()
With Worksheets("Feuil1")
With .Columns("J:J")
.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
End With
End With
End Sub
"François B"
bonjour,
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 ...
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
quelqu'un a t'il une idée ??
par avance un grand merci !!!!!
cdt,
François
On dirait une erreur de l'enregistreur...
Essaie avec :
FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True
Cordialement.
Daniel
"François B" news:
merci pour votre réponse. je viens de tester et malheureusement cela ne
fonctionne pas ...
peut être est-ce dû au format des cellules ... la macro fonctionne (même
avant la dernière modif ...) quand je suis sur une cellule qui contient
quelque chose qu'il ne reconnait pas >>> 02/16/2007 où le mois 16 n'est
pas compris...
par contre, elle ne marche toujours pas si je suis sur 02/08/2007 où la
réelle date n'est pas le 2 août mais le 8 février ...
Par contre : en passant par le menu, il converti correctement cette date
pour afficher : 08/02/2007 ....
bref ...
en tout cas merci pour l'aide apportée !!
cdt,
François
en effet, cela semble fonctionner ... sauf que le résultat obtenu est au
format "texte" (peut être est-ce dû au format de départ ?)
ce qui est surprenant, c'est que si je change le format pour un format date
de type jj/mm/aaaa l'affichage reste sur: 12/1/2007 et ne me semble pas être
reconnu comme une date ... en fait il faut alors que je fasse un F2 pour
"valider" le contenu ...
bref bref ... j'ai peur que le problème vienne du fichier initial et d'un
format de cellule plus que louche ...
en tout cas merci encore !!
cdt,
François
générée.
Daniel
"François B" news: