Discussion :

[VBBBA]

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

[zazaraignée]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(GaG_FIC).Worksheets(1).Cells(i, 10).NumberFormat = "dd\/mm\/yyyy"

Les 'backslash' permettent d'obliger l'affichage des 'slash' si tu as un '-' de défini comme séparateur de date dans les paramètres régionaux.

[VBBBA]

ca marche pas.

[zazaraignée]

Alors, comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub FormaterDate()
    ' La cellule A1 qui a servi a faire le test a été renseignée
    ' en tappant le raccourcis clavier Ctrl + ;
    ' Une copie de A1 existe en format texte (NumberFormat)
    ' dans la cellule A2.
 
    Dim laDate As Variant
    Dim cellule As Range
 
    For Each cellule In Range("A1:A2")
        If IsDate(cellule.Value) Then
            ' pas de problème
          Else
            ' il faut faire une conversion
            ' car la cellule est probablement en format de texte
            If cellule.NumberFormat = "@" Then
                ' en effet, c'est bien du texte
                laDate = cellule.Value
                cellule.NumberFormat = "General"
                cellule.Value = laDate
            End If
        End If
        cellule.NumberFormat = "dd\/mm\/yyyy"
    Next
End Sub

[VBBBA]

Le plus bizarre dans tout ça c'est que toutes ces solutions marchents pour toutes les dates sauf pour une 02/08/2007 ( 2 Aout 2007) qui passe à 08/02/207
A suivre donc...

[zazaraignée]

Elles viennent d'où ces dates ?

Quand on tape une date à la main dans Excel, il faut la taper dans le bon ordre. Pour connaître l'ordre (année mois jour, par exemple) à utiliser sans avoir à toujours consulter les paramètres d'Excel ou encore les paramètres régionaux du système, tu tapes Ctrl + ; (controle plus point-virgule) dans une cellule vide.

[durdesfois]

Bonjour (Rimouski,...Canada??)

Ca fait quelques mois que je participe à ce (super)forum, et je suis complètement occis par ces problèmes récurrents de format de date.

Ca finit par énerver

Je crois que dans les tutos,FAQ,.. ,il y a largement de quoi cogiter convenablement.

Il faudrait aussi regarder les Formats de Date Personnalisés- je m'en sers et je m'y retrouve très bien.

A+

[Djohn]

salut,

J'aime bcp aussi ce forum, et ce que j'en ai retenu, c'est qu'il existe plusieurs façon de contourner 1 problème
A mon avis ton copie/colle, ne prend pas en compte le format de la cellule.

je te propose une solution a toi de l'essayer et de l'adapter.

mon but est découper la date en fragment, de transporter les fragments vers ton fichier excel et de tout recoller
je pars du principe que ta date est sous cette forme jj/mm/aaaa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub date_transfert()
 
date = Range("a1") 'récupération de la date dans une cellule
 
jour = Left(date, 2) 'récupère le jour
 
an = Right(date, 4) 'récupère l'année
 
mois = Left(Right(date, 7), 2) 'récupération du mois
 
' a ce moment tu te déplace vers le fichier ou tu vas tout coller
 
date2 = jour & "/" & mois & "/" & an ' et tu colles
 
End Sub