Extraction CRM format date

Bonjour à toutes et tous,

J'ai un petit soucis de format dans Excel.

J'exporte ma base de données d'un CRM.

Le soucis c'est que le format de la date est en texte...donc je change le format des cellules en mettant format date.

Mais le soucis c'est qu'il faut que j'entre dans la cellule et que je fasse ensuite juste entrée pour que le format soit validé...un peu embêtant quand on a 900 lignes.

Dans mon fichier, j'ai juste fais la modification de la cellule I2, vous pouvez constater que c'est bien un format date et que c'est aligné à droite, et pour le reste c'est bien au format date, mais que c'est aligné à gauche donc le format n'est pas pris en compte, par contre dès que nous "entrons" dans la cellule et que nous faisons entrée...hop c'est bien format date...

Je voulais faire une macro, pour faire cette manipulation, j'arrive bien à faire la sélection de chaque cellule, mais je n'arrive pas à "entrer" dans la cellule, j'ai essayé avec l'enregistreur de macro, mais la date est à chaque fois différente dans les cellules et je n'arrive pas à comprendre le ActiveCell.formulaR1C1 : "26/02/2010".

Si vous pourriez m'aider cela me fera gagner bcp de temps.

En vous remerciant par avance.

Bonne journée et bon WE du 15 août.

Bonjour,

A teste

Option Explicit
Public Sub Convertir_dates()
Dim ws As Worksheet
    Set ws = Worksheets("Opportunités")
    With ws
        .Columns(9).TextToColumns _
            Destination:=Range("I1"), _
            DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, _
            Tab:=True, _
            FieldInfo:=Array(1, 4)
    End With
    Set ws = Nothing
End Sub

Bonjour Jean-Eric,

Merci beaucoup pour ta fonction qui marche très bien.

Bon WE à toi.