J'ai exporté des messages électroniques pour exceller en utilisant une macro. En utilisant la fonction Mid, j'ai trouvé la date dans l'email, mais ce n'est pas une date. Par exemple Thursday, January 12, 2012 8:30 AM Cette date est du texte, pas une date formulée. Comment puis-je formater cela comme une date?Problème de format de date dans outlook while à l'automatisation d'excel-outlook
Vous aurez besoin de prendre "jeudi," peu d'abord. Et puis utilisez CDate. Cela devrait fonctionner
DateStr = "Thursday, January 12, 2012 8:30 AM"
DateStr = Mid(DateStr, InStr(1, DateStr, ", ") + 1)
DateVal = CDate(DateStr)
Essayez:
Format(DateValue, "dddd, mmmm d, yyyy hh:mm AM/PM")
Si vous voulez une solution de formule:
Supposons que ce qui suit est dans la cellule A1:
Thursday, January 12, 2012 8:30 AM
La formule suivante extraira la partie date et le format comme date:
=DATEVALUE(MID(A1,FIND(",",A1)+1,LEN(A1)))Ceci affichera 40920 dans la cellule. Formatez la cellule en tant que Date pour l'afficher en tant que date mm/jj/aaaa (ou quelle que soit la façon dont vous souhaitez la formater).
Bonjour JP ... son fonctionnement bien..Mais j'ai besoin de "1/12/2012 8h30" au lieu de la vôtre "1/9/12 12: 00 AM ".. Merci beaucoup pour votre aide :) –
Je pense que vous avez raison. J'ai mal lu la question. +1 pour lire attentivement. –
@JP. J'ai essayé de supprimer une de mes réponses dans le passé, mais tout ce que j'avais le droit de faire, c'était de voter pour la supprimer. Vous pouvez supprimer vos propres commentaires mais pas vos réponses. –
@Tony Mon mauvais je pensais que c'était possible. Cela devrait être possible. – JimmyPena