Date sous le format mm-yy

Bonjour,

Je travaille sur une macro vba sous Excel.
je récupère d'une base Access un mois et une année, et je voudrai qu'ils apparaissent dans une colonne sous le format "mm-yy".
Par exemple pour Février 2014 je veux 02-14.

Seulement quand je fais ça le code ne comprends pas et affiche 40213...

Voici les lignes de code correspondantes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Set rs = db.OpenRecordset(sSQL)   Dim i As Integer   ' Remplir le tableau du book 227 rs.MoveFirst i = 9 While Not rs.EOF = True Range("B" & i) = rs("TOMBEES_CONVERTIES") If rs("mois_echeance") < 10 Then Range("C" & i).Value = CStr(rs("mois_echeance")) & "_" & Right(rs("annne_echeance"), 2) Else: Range("C" & i) = rs("mois_echeance") & "_" & Right(rs("annne_echeance"), 2) End If Range("G" & i) = rs("latent_conv") LaDate = Date_echeance(rs("mois_echeance"), rs("annne_echeance")) Range("F" & i) = "< " & Abs(DateDiff("m", LaDate, Date)) & " months"   i = i + 1 rs.MoveNext Wend

---

La date est donc copiée dans le colonne C. Pour l'instant j'ai séparé le mois et l'année avec "_" mais j'aimerai le faire avec "-".

De l'aide s'il vous plaît :D

Bonjour,
Il faut utiliser la propriété NumberFormat de l'objet Range
Exemple

Code:

---

Range("A3").NumberFormat = "mm-yy"

---

Cependant, le numéro de série 40213 correspond à la date du jeudi 4 février 2010 et pas février 2014.

J'ai essayé en utilisant NumberFormat et ça ne marche pas...

Bonjour, je comprends pas, tu fais une requête et tu scanne le recordset!!

Tu as tous loisir de gérer ça dans ton script sql et d'envoyer le tout en une seule fois dans excel!

En fait je sais pas trop comment faire je suis pas ouf ouf en vba ni en sql

Bonsoir,
Je me suis contenté de répondre à ton problème de formatage mais comme l'a très justement fait remarquer Robert, tu peux faire ta requête et importer le tout dans excel
Voir cette contribution Fonction qui renvoie une table contenant résultat d'une requête SQL sur une base de données Access

généralement, il y a toujours un problème culturel entre VBA et Excel (i sont fou ces Américains!).

pourquoi le 4 janvier tombe toujours le 1er avril (tu parles d'un poisson j'ai pas forcément envie de rire!).

Code:

---

1 2 3 4 5

Select Champs From Ma Table Where monfiltreHere Group By Champs Having MonFiltreHaving.

---

le select permet d'identifier les champs que tu veux afficher.

Code:

---

1 2 3

select * ' tous les champs   select [Champ1],[Champ2] 'par énumération des champs

---

Code:

---

1 2 3

From Table1 'précise la provenance des données 'permet de sélectionner 2 table en effectuant un lien entre les champs communs aux 2 table. From Table1 INNER JOIN Table2 on Table1.identifiant=Table2.identifiant

---

Code:

---

WHERE Table1.identifiant=10 'permet de filtre le contenue de la table

---

Code:

---

Group By champs1,Champ2 'permet de regrouper les datas notamment pour éviter les doublons

---

Code:

---

Haning 'ce comporte comme la close WHERE mais filtre les données concernées par le GROUP BY

---

Note le Having se produit après le group by qui demande un traitement particulier des données. ne pas utiliser le having pour filtre des données qui pourraient être effectuées par le WHERE.

en effet la close WHERe ce produisant avant le group by peut réduire de façon considérable le traitement de celui-ci.

Code:

---

1 2 3 4 5

Select Count([Prénom]),[prénom] From User Where [Prénom]='Alain' Group By [Prénom] Having Count([Prénom])>1;

---

maintenant voyons ton cas.

Code:

---

select ''' & [mois_echeance] & '-' & Right([annne_echeance], 2),[Champ2]

---

Je t'invite à lire ces 2 lien. dans le 2imme, tu trouveras des astuce pour utiliser le générateur de requêtes d'ACCESS.

http://www.developpez.net/forums/d13...s-forme-texte/

http://www.developpez.net/forums/d14...-excel-access/

Hé ben c'est très intelligent tout ça :D
J'ai rajouté du coup une colonne dans ma requête sql et je récupère directement la date sous le bon format, c'est parfait.

Merci beaucoup j'ai appris quelque chose !