Discussion :

[albc17180]

Bonjour à tous.

Voici mon problème:
Je dois automatiser un document au boulot, et j'ai décidé de faire cela sous excel.
J'ai créé un useform avec des text box, cases et autres.
L'utilisateur devra rentrer une date dans une textbox.
J'aimerais découper cette date en 3 parties.

"jour" récupère les 2 premiers caractères de la date
"mois" le 4eme et 5eme
"annee" les 4 derniers.
Le 3eme et 6eme sont des slashs.
cela nous fait donc une chaine de 10 caractères.

J'ai fait cela :

Code :

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

1
2
3
4
5
6
Dim jour As Integer    'servira a recupérer le jour d'une date
Dim mois As String     'servira a recupérer le mois d'une date
Dim annee As String   'servira a recupérer l'anne d'une date
jour = Left(TbDate.Value, 2) ' renvoie le jour
mois = Mid(TbDate.value, 4, 2) ' renvoie le mois
annee = Right(TbDate.Value, 4) ' renvoie l'annee

l'extraction du jour fonctionne bien mais le reste, il n'y arrive pas, il me met :
"Projet ou bibliothèque introuvable" pour Mid et Right.

Je fonctionne sous Office 2003 si cela peut aider.

Merci d'avance pour vos réponses.

Cordialement

[ucfoutu]

Bonsoir,

j'ignore où sont passées tes fonctions Mid et Right...

J'espère que n'ont pas également disparu les fonctions Day, Month et Year (à voir dans ton aide en ligne pour découvrir ce qu'elles font).

[albc17180]

ok d'accord je vais regarder ça.
merci pour la rapidité.

[JackOuYA]

Bonsoir,

regarde aussi la liste des références de ton classuer, menu projet références, et dis nous si tu vois un message d'erreur ?


pour la saisie des dates tu pourrai utiliser un DTPicker, qui facilite la saisie et te permet de travailler directement avec des variables de fomats dates, t'évitant ainsi des manipulations hasardeuses de chaines de caractéres.

[zazaraignée]

Cherche dans l'aide pour les fonctions de manipulation de date... Day, DayOfWeek, Month, Year...

[albc17180]

c'est bon merci, j'ai utilisé day, month et year, niquel.
Merci bcp