Discussion :

[nmicoud]

Bonjour,

Voilà, je sèche sur un problème qui consiste à modifier un format de date pour permettre une insertion dans une BDD.

Je récupère sous XL une colonne avec des dates au format JJ/MM/AAAA.
Le but est d'arriver à un format jjmmaaaa dans une autre colonne pour me permettre ensuite de créer des phrases SQL et de faire des updates dans la base.

Je n'arrive à pas forcer le changement du format de la cellule sans perdre son contenu. Si je choisis texte, je me retrouve avec une valeur du genre 38051...
J'ai aussi essayé de passer en utilisant les formules =jour(), =mois()... mais idem, je n'arrive pas à extraire la seule valeur...

Une idée, voire mieux, un script tout prêt ?

Merci

Nico

[Invité]

Bonjour

Essaye cette fonction

Code :

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

=JOUR(A1)&MOIS(A1)&ANNEE(A1)

La date étant en A1

[Jean-Pierre49]

Bonjour,

Peut être

Code :

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

=TEXTE(A1;"jjmmaaa")

[nmicoud]

Je viens de pondre ce code, pas du tout optimisé, mais qui a le mérite de fonctionner...

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 conv_jjmmaaaa_to_jjmmaaaa()
 
'conversion d'un format JJ/MM/AAAA à un format JJMMAAAA
 
'Se placer sur la première cellule de la colonne des dates JJ/MM/AAAA
'Prévoir 6 colonnes de vide à droite
 
'conversion:
While ActiveCell <> ""
    ActiveCell.Offset(0, 1).FormulaR1C1 = "=DAY(RC[-1])"
    ActiveCell.Offset(0, 2).FormulaR1C1 = "=MONTH(RC[-2])"
    ActiveCell.Offset(0, 3).FormulaR1C1 = "=YEAR(RC[-3])"
 
    ActiveCell.Offset(0, 1).Select
    cell1 = ActiveCell.Address
    cell2 = ActiveCell.Offset(0, 2).Address
    Range(cell1, cell2).Select
    Selection.Copy
    ActiveCell.Offset(0, 3).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
    'ajout d'un zéro si le jour est inférieur à 10
    ActiveCell.Offset(0, -3).Select
    Selection.NumberFormat = "General"
    ActiveCell.FormulaR1C1 = "=IF(RC[3]<10,""0""&RC[3],RC[3])"
 
    'ajout d'un zéro si le mois est inférieur à 10
    ActiveCell.Offset(0, 1).Select
    Selection.NumberFormat = "General"
    ActiveCell.FormulaR1C1 = "=IF(RC[3]<10,""0""&RC[3],RC[3])"
 
    'refaisons un copier-coller
    Range(cell1, cell2).Select
    Selection.Copy
    ActiveCell.Offset(0, 3).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
    'concaténons joyeusement tout ça !
    ActiveCell.Offset(0, -3).Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[3],RC[4],RC[5])"
    ActiveCell.Offset(1, -1).Select
Wend
 
End Sub

VBA Powaaa !



EDIT :

=JOUR(A1)&MOIS(A1)&ANNEE(A1

Vachement + court et aussi efficace...
Quand je disais que ce n'était pas optimisé...

seul souci, pour les valeurs des jours et mois inférieur à 10, j'ai un format du genre jmaaaa et non jjmmaaaa ; et mon sql ne passe pas

[ucfoutu]

Bonjour,

sous VBA,

Code :

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

format(la_date, "ddmmyyyy")

marche sans histoire chez moi ...