Discussion :

[Anthony47]

Bonjour à tous,

Je sais, je sais, je sais... Ce sujet a déjà été traité mille fois

J'ai regardé ces mille sujets !

Mais j'ai pas trouvé comment l’adapter à mon cas.

Visiblement ça provient de la fonction paste en VBA qui ne sait pas sous quel format coller les dates et donc les colle par défaut au format américain. Sauf quand c'est pas possible donc quand on dépasse le jour 12.

Voici mon code

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Coller()
    Sheets("IMPORT").Select
    Columns("G:Z").Select
    Selection.ClearContents
    Range("G1").Select
 
 
    ActiveSheet.Paste                            ' !!!! ICI !!!!!
 
 
    Range("S2:S2000").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
                      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                      ReplaceFormat:=False
    Columns("F:Z").Copy
    Sheets("Données").Select
    Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                             :=False, Transpose:=False
    Sheets("IMPORT").Select
    Range("import_2").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Range("A12:A13"), _
        CopyToRange:=Range("zdoutil"), _
        Unique:=False
    Range("import_2").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Range("B12:B13"), _
        CopyToRange:=Range("zdcons"), _
        Unique:=False
    Range("import_2").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Range("C12:C13"), _
        CopyToRange:=Range("zdconstci"), _
        Unique:=False
    Range("import_2").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Range("d12:d13"), _
        CopyToRange:=Range("zdtci"), _
        Unique:=False
    Range("import_2").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Range("e12:e13"), _
        CopyToRange:=Range("zdsil"), _
        Unique:=False
End Sub

J'ai vu des solutions avec Cdat mais je sais pas comment le lier avec mon paste

[joe.levrai]

Bonjour,

il faut jouer avec le NumberFormat de tes colonnes avant d'y coller les dates

excellent explication de DocMarti ICI

[Anthony47]

Pardon, j'aurais dû préciser, je suis un âne en VBA

Je précise que mes données sont copiées depuis un logiciel tiers et mes dates collées vont de J2 à K1500

[Menhir]

Où est le "Copy" qui spécifie la source de la copie ?

[Anthony47]

Je le fais sur une autre application.

Ca ressemble à un espèce de tableur aussi sur lequel je peux faire copier.

Ensuite j'ai plus qu'à coller. Je précise que si je fais coller manuellement je ne rencontre pas ce problème

[marot_r]

Bonjour.

Est-ce que dans ta source tu pourrais formater les dates comme des nombres ?
Que cela ressemble à comment Excel les gardent en interne.

A+

[Anthony47]

Non, je peux pas agir sur la forme de la source. Mais c'est vraiment comme sur Excel, c'est sur une base access.

Après en cherchant sur internet c'est un problème qui n'est pas lié avec le format initial des données mais avec le traitement des données par le VBA.

Par défaut il va traiter les dates en format américain pour tous les jours < 13 puis redevenir en format français au delà puisque le mois 13 n'existe pas.

C'est juste que je ne sais pas comment agir sur le paste. Je voudrais simplement qu'il me fasse un paste normal, français quoi

[marot_r]

Bonjour.

Si c'est une base Access le plus simple est sans doute de prendre les données en utilisant une connexion vers Access.
C'est disponible dans l'onglet Données de Excel.
Passer par le presse papier n'est pas la solution la plus sécuritaire.

En passant Access n'est absolument pas une sorte de tableur. C'est une base de données relationnelle et son architecture et fonctionnement sont très différents.

A+