Discussion :

[mmaatt]

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

[DAUDET78]

Tu veux savoir simplement si il est plus vieux ?

Code :

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

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

[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

[DAUDET78]

Enfaite mon problème est quelque peu plus grand

Mais parfaitement résoluble avec l'instruction

Code :

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

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 :

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

Val(3748) et Val(20131112102210)

aux autres fichiers

[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

[DAUDET78]

Je dois parcourir tout le fichier

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

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

Même question !

[iclic]

Bonjour Daudet,

Il a peut-être un fichier texte qui contient les noms des fichiers qu'il
doit rechercher?

[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 !

[mmaatt]

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:


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é.

[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 :

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

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 :

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

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

[iclic]

Bonjour,

Code :

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

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

[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

[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.