Conversion texte en date

Version imprimable

28/11/2013, 16h04
mmaatt

Conversion texte en date

Bonjour,

Je dois actuellement développer une macro dont une partie consiste à comparer deux dates dans un nom de fichier. Malheureusement la date dans le nom de fichier est sous ce format :

20131127201054

Année, Mois, Jour, Heure, Minute, Seconde

Comment puis-je faire pour le transformer en format date afin qu'il reconnaisse que c'est une date et que je puisse comparer avec d'autres fichiers qui ont le même format.

Merci pour vos réponses

Tu veux savoir simplement si il est plus vieux ?

Code:

1
2
3
4
5
6
7
8
9
10
S1$="20131127201054"
S2$="20111027201054"
Select case S2$
     Case Is > Val(S1$) 
          ' S2 est plus jeune
     Case Is < Val(S1$)
          ' S2 est plus vieux
     Case else
          ' même date
End Select

29/11/2013, 09h31
mmaatt

Enfaite mon problème est quelque peu plus grand :

J'ai beaucoup de fichiers textes dans un même dossier qui ont un nom comme ceci : "3748_20131112102210_0000.txt". Le premier chiffre peut changer mais il y a plusieurs fichiers qui ont le même numéro. Ensuite le numéro suivant est la date comme indiqué. Les 4 zeros qui suivent reste la même chose pour tous les fichiers.

Le principe de parcourir le dossier, et de trouver le fichier le plus ancien qui commence avec le meme numéro donné. Par exemple le plus ancien de tous les fichiers commençant par "3748". Et donc simplement récupérer le nom du fichier.

Merci beaucoup pour votre aide
29/11/2013, 09h56
DAUDET78

Citation:

Envoyé par mmaatt

Enfaite mon problème est quelque peu plus grand

Mais parfaitement résoluble avec l'instruction

Code:

VAL

sans convertir la chaine en date.
par exemple 3748_20131112102210 ?
Tu as deux critères 3748 et 20131112102210 . Tu les sépares et tu les compares avec

Code:

Val(3748) et Val(20131112102210)

aux autres fichiers
29/11/2013, 10h01
mmaatt

Enfaite c'est pas si simple.

Je dois parcourir tout le fichier et trouvé le fichier le plus ancien pour tous les fichiers commençant par le même numéro.

J'arrive même pas a parcourir tous les fichier qui commence par le meme numéro. --'

Merci encore
29/11/2013, 10h26
DAUDET78

Citation:

Envoyé par mmaatt

Je dois parcourir tout le fichier

Soit cohérent .. c'est une recherche dans le nom de fichier ou dans le fichier ?

Citation:

J'arrive même pas a parcourir tous les fichier qui commence par le meme numéro. --'

Même question !
29/11/2013, 11h26
iclic

Bonjour Daudet,

Il a peut-être un fichier texte qui contient les noms des fichiers qu'il
doit rechercher?
29/11/2013, 11h37
DAUDET78

Que les noms des fichiers soit dans un tableau ou un fichier texte.... la solution est similaire ....... mais il ne faut pas mélanger tous les termes quand on cause de quelque chose !
29/11/2013, 11h48
mmaatt

1 pièce(s) jointe(s)

Excusez moi alors. Enfaite c'est plusieurs fichiers dans un dossier qui ont ce nom "3748_20131112102210_0000.txt" le premier numéro ne change pas forcément mais la date après elle, change. Je ne vais pas lire dans le fichier texte ça j'arrive facilement à l'importer dans un classeur excel.

Voici un exemple du dossier:
http://www.developpez.net/forums/att...1&d=1385722036

Le but est donc de trouver le dernier fichier modifié pour un nombre donnée par exemple de type "3748".

Est ce plus clair? Désolé de m'être mal exprimé.
29/11/2013, 12h00
DAUDET78

Donc ma réponse #4
Tu vas lire ton classeur Excel. Et pour chaque nom de fichier que tu mets dans une variable S$ , tu traites le numéro à 4 chiffres

Code:

Val(Left$(S$,4))

et la date qu'il n'y a pas besoin de convertir en date , mais en valeur numérique par

Code:

Val(Mid$(S$,6,14))

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Sub Recherche()
 
Dim Fichier As String
Dim TonDossier As String
Dim TonFichier As String
Dim i As Integer
Dim Deb As Integer
Dim Fin As Integer
 
TonDossier = "C:\......."
 
File1.Path = TonDossier
 
    For i = 0 To File1.ListCount - 1
      If Left(File1.List(i), 4) = "3748" Then
            Deb = InStr(File1.List(i), "_")
            Fin = InStr(Deb + 1, File1.List(i), "_")
            Fin = Fin - Deb
            Fichier = Mid(File1.List(i), Deb + 1, Fin - 1)
            If Fichier = "20131112102210" Then
                TonFichier = File1.List(i)
            End If
      End If
    Next
End Sub

02/12/2013, 09h24
mmaatt

Merci pour toutes vos réponses. iclic, Comment puise je faire pour comparer les fichiers que je parcours par rapport à leur nom? Dans ton bout de code on va chercher un fichier spécifique mais j'aimerais trouver le fichier le plus ancien.

Merci de tes réponses
03/12/2013, 10h52
iclic

Bonjour,

Trie ta liste

Pour que les éléments restent dans l'ordre alphabétique, affectez la valeur True à la propriété Sorted du contrôle avant d'ajouter des éléments à la liste.