Macro Excel : Convertion des dates en texte Résolu/Fermé

Question

Bonjour à tout le monde,

Je voudrais convertir une colonne où il y a des dates (jj/mm/aaaa) en format texte dans une macro Excel.
Quand je le fais directement sous Excel, il n'y a aucun problème, mais quand je veux la faire exécuter dans une macro, le format se transforme en mm/jj/aaaa, donc format anglais et non français. Voici ma macro :

Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 2), TrailingMinusNumbers:=True

Que dois-je rajouter à ma macro pour qu'il l'exécute correctement, c'est à dire en jj/mm/aaaa, ou même soyons fou en jj/mm/aa

Merci d'avance pour vos réponses

lami20j · Accepted Answer

Salut,Sub texte()
    Range("b1").NumberFormat = "@"
    Range("b1") = Format(Range("a1"), "dd/mm/yyyy")
End Sublami20j

Nino · Answer

Bonjour,

En fait j'avais le meme problème, sur la premiere ligne de la collonne j'avai un titre donc il ne pouvai pas faire le changement de format et voici la solution:

Dim myRange As Range 
Dim myDate As Date 

Range("C2:C400").Select                            'Je commence ici à la 2ème ligne pour eviter la cellule C1 ou il y a du texte et pas une date
For Each myRange In Selection 
If myRange.Value = "" Then 
Exit For 
Else 
myDate = myRange.Value 
myRange.NumberFormat = "@" 
myRange.Value = Format(myDate, "dd/mm/yyyy") 
End If 
Next 


ENJOY...
Nino

oozgr · Answer

Bonjour, 
Je suis "rookie" en macro, mais j'ai utilisé ton macro (Nino ) pour mon problème .
et quand j'ai fait un convertir de fichier CSV avec la code:

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 3), Array(10, 1))

je ne sais pas ou il faut l'integrer ( dans une array ?)
après convertir c'est trop tard, le format ne marche pas !

Merci d'avance,
oozgr

Macro Excel : Convertion des dates en texte

3 réponses

Discussions similaires