Discussion :

[Novice_vba]

Bonjour,

Je ne pense pas que mon problème soit très difficile à résoudre, mais tout ce que j'ai tenté n'a pas marché jusqu'ici...

Je dois récupérer une date que quelqu'un inscrit sur une feuille excel en format AAAAMMJJ que je voulais convertir en format JJMMAA.
J'ai créée pour cela une macro :

Code :

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

1
2
3
4
5
6
 
année = Mid(Cells(15, 6), 3, 2)
mois = Mid(Cells(15, 6), 5, 2)
jour = Mid(Cells(15, 6), 7, 2)
 
Dates = Format(DateSerial(année, mois, jour), "ddmmyy")

Cela marchait très bien... jusqu'à aujourd'hui. Pour le 01082013, excel ne reconnait pas le 0 devant, et Dates prend la valeur 108213.
J'ai essayé d'utiliser la fonction

Code :

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

jour = Format(jour, String(2, "0")

, mais ça ne marche pas non plus.

Quelqu'un pourrait-il m'aider ?

je vous remercie par avance,
Novice_vba

[mercatog]

Je dois récupérer une date que quelqu'un inscrit sur une feuille excel en format AAAAMMJJ

Dans cette cellule, tu as une date formatée en aaaammjj ou du texte?

Si tu change le format de cette cellule, qu'est ce que tu obtiens?

Dans ton code pourquoi Mid(xxx,3,2) pour récupérer aaaa à partir de aaaammjj?

[Novice_vba]

Bonjour mercatog,

Dans ma cellule, j'ai une date seulement.
En changeant le format de me cellule manuellement avec la fonction Texte(cellule,"0"), j'obtiens exactement la même chose. (à savoir Dates=10813 et non 010813 comme je voudrais)

Je cherche à la fin à obtenir une date sous la forme jjmmaa, donc je ne veux récupérer que aa (d'où mon mid(xxx,3,2)).
A la relecture, ma phrase était peut-être ambigue, effectivement. Quelqu'un inscrit une date sous le format aaaammjj et moi je voudrais l'utiliser sous le format jjmmaa,

Pourrais-tu éventuellement m'aider ?

Novice_vba

[mercatog]

Non sans passer par la fonction Texte(), mais uniquement changer le format de la cellule en date (ou éventuellement en Standard).

Le cas échéant, joins un extrait de ton fichier.

[parmi]

Si tu veux avoir toujours 2 caractères, tu dois les mettre explicitement dans ta fonction TEXTE

Code :

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

=TEXTE(MaValeur, "00")

ou

Code :

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

MaValeur = Format(MaValeur, "00")

[AlainTech]

Bonjour,

Tout simple (à adapter):

Code :

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

1
2
3
4
5
6
Sub test()
  Dim strDate As String
  strDate = Format([A1], "0000/00/00")
  [B1].NumberFormat = "ddmmyy"
  [B1] = CDate(strDate)
End Sub

[Invité]

Code :

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

1
2
3
4
5
6
7
Dim TxtDate As String
TxtDate = fromat(Cells(15, 6), "00000000")
année = Mid(TxtDate, 3, 2)
mois = Mid(TxtDate, 5, 2)
jour = Mid(TxtDate, 7, 2)
 
Dates = Format(DateSerial(année, mois, jour), "ddmmyy")

[Novice_vba]

Merci beaucoup à tout le monde !

Je maîtrise bien mieux les formats à présent, et j'ai pu résoudre mon problème

[nibledispo]

bonjour,

Cette discussion est résolu et j'en suis ravi pour toi.

Peux tu mettre le code final que tu as retenu car pour ma part je n'ai toujours rien compris.

Pour une meilleure compréhension, merci de préciser exactement :
a -la donnée de départ 20130801 ou 2013/08/01
b -le résultat souhaité 010813 ou 01/08/13
car avec aucune des réponses apportées je n'obtiens le résultat escompté.

avec le code Alain Tech on obtient uniquement le résultat avec la cas de figure donnée 20130801 résultat 010813.

avec celui de Rdurupt aucun résultat quelque soit le cas de figure.

pour info je suis version 2010.

cordialement.

[EngueEngue]

nible:
1- Oui
2- problème en ligne 2, fromat->format

[nibledispo]

bonjour Engue Engue,

j'avais préalablement corrigé fromat pour mon essai. avec le résultat indiqué dans ma précédente intervention.

le problème de date est étrange.

dans une autre discussion sur une soustraction de dates, le code échouait sur la version 2003 du questionneur alors qu'il fonctionnait très bien sur ma version 2010.

cordialement.

[EngueEngue]

Si les variables sont bien déclarées comme des dates et qu'excel les reconnaît correctement il ne devrait pas y avoir de problèmes sur 2003, mais tu sais bien qu'excel n'est pas infaillible et qu'il faut des fois faire une réinstallation!