VB access : Nommer un fichier avec le quantieme du jour sur 3 position

Question

Bonjour à tous; Je suis débutant en VB 

Je souhaite nommer un fichier avec le quantième du jour de création sur 3 position

J'utilise le code suivant mais ça ne marche pas 

Dim Qua As String

Qua = datepart("y", Date)
 Select Case Qua
    
  Case 1 <= 9
  Qua = "00" & Qua
    
  Case 2 = 10 To 99
  Qua = "0" & Qua
        
  Case Else
  Qua = "" & Qua
       
 End Select

Merci d'avance pour votre aide

NHenry · Answer

Bonjour, 

"J'utilise le code suivant mais ça ne marche pas "
Avec plus de détail, car c'est trop vague, stp.

Sinon, à la place de ton Select Case, regardes le .ToString des entiers pour mettre au bon format.

Penses aussi à :
- Activer Option Explicit et Option Strict (propriétés du projet)
- Retirer l'import automatique de l&#8217;espace de nom "Microsoft.VisualBasic" dans l'onglet Références des propriétés du projet.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, ce lien ou encore celui-ci[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

ucfoutu · Answer

Bonjour,
je crois vraiment que tu ne développes pas sous VB.Net.
Tu es ici dans la section :
Forum > VB.NET et VB 2005
A tout hasard, donc, si finalement sous VBA :
Ouvre ton aide sur les mots :
Year
Format

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

et même sans format, sous VBA (car je pense que tu es sous VBA) :
regarde :
MsgBox Mid(Year(Now), 2)


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Manu1070 · Answer

oui je suis sous VBA 
Merci pour vos réponses.

ucfoutu · Answer

oui je suis sous VBA 

Veux-tu bien dorénavant t'efforcer d'ouvrir ta discussion là où il convient de le faire ?
Prends-en note : Langages dérivés > VBA
Dans ce cas : la solution que je t'ai donnée : Mid(Year(la_date_en_cause), 2)
convient.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

NHenry · Answer

Bonjour, 

J'ai déplacé le sujet dans la bonne catégorie, prends-en note.
J'ai aussi retiré le "Réponse acceptée" sur ma réponse, car elle ne répond plus à ta question du coup.
Regardes le point 3 de ma signature.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, ce lien ou encore celui-ci[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

VB access : Nommer un fichier avec le quantieme du jour sur 3 position

6 réponses

Votre réponse

Discussions similaires