Découpage de date

[GADENSEB]

Bonsoir,
J'ai un tableau avec les DATES en colonne H et le résultat de la transformation se trouve en colonne I

Pour l'exemple
15/04/2014 doit devenir 2014-04-15

J'ai créer le code suivant mais j'ai une "erreur de compilation - nombres d'arguments incorrect ou affectation de propriété incorrecte sur Month et Day....... QQn aurais une idée ??

Merci
Bonne soirée à vous
Seb

Sub CONVERT()
j = Range("h2").End(xlDown).Row

For i = 2 To j
   
    
 Cells(i, "I") = Year(Cells(i, "h")) & "-0" & Month(i, "h") & Month(i, "h") & "-" & Day(i, "h")


    Next
End Sub

 

[Victor21]

Re : Découpage de date

Bonsoir, GADENSEB

Pourquoi faire simple ?
I1=H1 suffit en modifiant le format de la colonne I "aaaa-mm-jj"

 

[GADENSEB]

Re : Découpage de date

Ben j'y bien pensé
Mais la macro que j'utilise ensuite ne marche pas dans ce cas là !

Je suis obligé de convertir (dans une autre colonne) sous le format 2014-04-15.....
Je sais c'est pénible....

 

[Modeste geedee]

Re : Découpage de date

Bonsour®
comme l'a dit Victor 🙄
Pourquoi faire simple ?
I1=TEXTE(H1;"aaaa-mm-jj")

😕 😡
sans connaitre ce que la macro suivante effectue, toutes les hypothèses sont permises...

un extrait de fichier et la macro éviteraient de chercher tout azimuths...

 

[GADENSEB]

Re : Découpage de date

Ok je vous file mon fichier test
C'est pour exécuter la macro GOOGLEAGENDA
Cela me génère mes rdv sous google agenda

le format si spéciale est pour générer une DATEDEBUT et DATEFIN

le format imposé est 2014-04-15 pour ces dates ..
Si vous voyez une autre combine, je suis preneur !!!

Bonne soirée
Seb

 

[Modeste geedee]

Re : Découpage de date

Bonsour®

Sub CONVERT()
j = Range("h2").End(xlDown).Row
For i = 2 To j
 Cells(i, "I") = "'" & Format(Cells(i, "h"), "yyyy-mm-dd")
Next
End Sub

DATEDEBUT = Format(Range("F" & i), "yyyy-mm-dd") & "T13:00:00.000Z"
'DATEDEBUT = Range("F" & i).Value
'& "<gd:when startTime='2014-05-09T13:00:00.000Z' " _
Sheets("Feuil1").Range(int1 & "255" & ":" & int2 & "255").Select
'ConcRange = CStr(rngCell.Value)
DATEFIN = Format(Range("F" & i), "yyyy-mm-dd") & "T17:00:00.000Z"
'DATEFIN = Range("F" & i).Value
'& "endTime='2014-05-09T17:00:00.000Z'></gd:when>"

 

[GADENSEB]

Re : Découpage de date

Merci à Tous
C'est ce que je cherchais

Merci

Bonne soirée

Seb

 

[Staple1600]

Re : Découpage de date

Bonsoir à tous


Est-ce la voie formulistique marche aussi ?

=T(TEXTE(B1;"aaaa/mm/jj"))

NB: J'ai testé aussi Données/Convertir [Etape 3: •Date: AMJ]
Mais sans succès, quelqu'un pourrait-il me dire pourquoi ? 😉

 

[Modeste geedee]

Re : Découpage de date

Bonsour®

Bonsoir à tous


NB: J'ai testé aussi Données/Convertir [Etape 3: •Date: AMJ]
Mais sans succès, quelqu'un pourrait-il me dire pourquoi ? 😉

parce que ... 🙄
l'option AMJ concerne uniquement le format lu(source)

"By design" Excel reconnait alors une date et applique automatiquement le format date défini dans les options Windows

seul un format Texte coté cible permet d'échapper à cette fonctionnalité "By design" 😎