comment récuperer des dates à l'intérieur d'une string

comment récuperer des dates à l'intérieur d'une string - VB/VBA/VBS - Programmation

Marsh Posté le 06-06-2006 à 11:34:52    

Salut!!
 
comme vous le voyez, je deviens accro à ce forum, car il m'aide trop dans mon code.
 
Voici mon problème:
 
J'ai dans un tableau, des noms de fichier dans lesquels il y a des dates. La manière d'écrire ces dates ainsi que leur position est totalement standardisé. Ce que j'aimerais, c'est un code qui me permette de recuperer ces dates dans mes noms de fichier pour les mettre dans un tableau.
 
encore un fois, merci pour votre aide précieuse
 

Reply

Marsh Posté le 06-06-2006 à 11:34:52   

Reply

Marsh Posté le 06-06-2006 à 13:27:13    

Precise la manière dont tes noms de fichiers avec dates apparaissent dans ton tableau sss_YYYYMMDD.zzz sssDDMMYYYY.zzz etc ?

Reply

Marsh Posté le 06-06-2006 à 14:17:42    

il apparaisse de la maniére suivante:
 
 
sssssssss_JJMMYYYY
 
voilà

Reply

Marsh Posté le 06-06-2006 à 14:35:53    

Aide en ligne sur : Right

Reply

Marsh Posté le 06-06-2006 à 14:45:22    

dsl mais je suis pas sur de bien comprendre

Reply

Marsh Posté le 06-06-2006 à 14:47:03    

Tu recherches dans l'aide en ligne le mot réservé Right

Reply

Marsh Posté le 06-06-2006 à 14:53:02    

ok je viens de voir.
 
Merci ca correspond à ce que je recherche
 
thanks

Reply

Marsh Posté le 06-06-2006 à 17:29:18    

en fait il y a encore un petit problème(au risque d'etre lourd)
 
le fichier sort avec son extension .xls  
 
or je voudrais que le fichier sorte sans son extension car cela m'empeche de copier la date puisque je copie l'extension du fichier.
 
comment je peux faire?

Reply

Marsh Posté le 06-06-2006 à 17:30:58    

Aide en ligne : MID

Reply

Marsh Posté le 06-06-2006 à 18:05:43    

qqch comme


    .............
    s = "sssssssss_01012006.xls"
    PosA = InStr(s, "_" )
    s2 = Mid(s, PosA + 1, 8)
    Jour = Left(s2, 2)
    Mois = Mid(s2, 3, 2)
    Année = Right(s2, 4)
     
    dDate = CDate(Jour & "/" & Mois & "/" & Année)
 
    ..........

Reply

Marsh Posté le 06-06-2006 à 18:05:43   

Reply

Marsh Posté le 06-06-2006 à 18:17:36    

trop bien ca marche nikel!!!!
 
encore merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed