Bonjour à vous tous

Je reviens vers ce forum car j'ai un soucis sur une macro

Cette macro me sert à tronsvaser des lignes d'un classeur à un autre.( Pas toute la ligne: certaines valeurs).

Dans le fichier source une des cellules qui est une date est au format standard.

J'utilise une ligne pour convertir la colonne date en format date
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Columns("J:J").Select
    Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
Ensuite je copie cette cellule vers le deuxieme classeur comme suit

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
 
Range("R" & j).Value = Format(Workbooks(GaG_FIC).Worksheets(1).Cells(i, 10).Value, "dd/mm/yyyy")
Et c'est là que certaines dates passe en format americain.

02/082007 passe en 08/02/2007 par exemple.


Toute aide sera la bien venue

Merci d'avance