Accéder à VBA – Formatez la colonne excel vers Général en utilisant TextToColumns

J'essaie de formater une colonne dans Excel en utilisant TextToColumns dans access vba. J'aimerais formater la colonne (qui contient des dates dans Excel) au format général. Je ne rencontre pas d'erreur lorsque le code est exécuté, mais le format de la colonne ne change pas.

Un extrait du code où le formatting est exécuté est donné ci-dessous:

Dim rng as Range set rng= oWS.Range("AD:AD") rng.TextToColumns Destination:=rng, DataType:=xlFixedWidth,FieldInfo:=Array(0, xlGeneralFormat) 

Aucune suggestion? Merci.

Bonjour mccoydo: Je ne suis pas sûr de la façon la plus efficace de le faire, mais en ajoutant la déclaration rng.NumberFormat = "mm/dd/yyyy" j'ai pu modifier le format d'une gamme.

Dans votre code, l'argument xlGeneralFormat semble suspect et il pourrait y avoir une alternative qui vous donne le résultat souhaité d'un seul coup.