Discussion :

[DeFCrew]

Re Bonjour à tout le monde !

J'ai un pti soucis technique.

Au depart je voulais utilisé Commondialog ou FileDialog pour ouvrir des fichiers xls smplement mais les deux ne fonctionne pas.

Commondialog à besoin d'une licence et FileDialog c'est "le type qui est non defini" ! Je crois qu'il me faut la librairie 10.0 Object au lieu de la 9.0 mais je ne sais pas ou la télécharger si c'est téléchargeable, car je ne l'ai pas dans les Références.

Bref, donc du coup j'ai créé une zone de texte ou on copie le nom du fichier xls à ouvrir, je tape ENTREE le fichier s'importe dans une table access sans souci ; plus un bouton pour pouvoir ouvrir le fichier xls avec la date de création la plus proche d'aujourd'hui.

Et c'est là que je ne sais pas comment faire.

Comment faire pour trier un dossier rempli de fichier en fonction de la date de création, pour au final ressortir dans une variable le dernier fichier créé ?

Les noms des fichiers sont du type "0018100985_20090309.xls" alors on peut aussi les triers grâce à leurs noms. Ici "20090309" represente la date de création.

Mais comment lui dire à mon pti PC ???? Mystère !!

Merci d'avance

[Arkham46]

bjr,

Code Fonction à mettre dans un module :

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
 
Public Function LookUpLastFile(ByVal pDirectory As String, Optional ByVal pMatch As String = "*") As String
Dim lDir As String
Dim lDate As String
Dim lMostRecent As Date
Dim lFoundFile As String
On Error GoTo gestion_erreurs
If Right(pDirectory, 1) <> "\" Then pDirectory = pDirectory & "\"
lDir = Dir(pDirectory & pMatch)
Do
    If lDir = "" Then Exit Do
    lDate = FileDateTime(pDirectory & lDir)
    If lDate > lMostRecent Then
        lMostRecent = lDate
        lFoundFile = pDirectory & lDir
    End If
    lDir = Dir
Loop
LookUpLastFile = lFoundFile
Exit Function
gestion_erreurs:
LookUpLastFile = ""
End Function

Pour l'utiliser :

Code :

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

1
2
3
 
Dim lLastFile as String
lLastFile = LookUpLastFile ("C:\Monchemin\","*.xls")

lLastFile contiendra le dernier fichier xls en date dans le répertoire.

Sinon pour les boîtes de dialogue il ya ce qu'il faut dans la FAQ.

[DeFCrew]

Arkham46 !!! C'est pas la premiere fois que tu m'aide et la j'avoue CHAPEAU.

Chapeaurai etre mieux mais chapeau !

Serieux ton code fonctionne nickel, c'est exactement ce que j'avais besoin !!
Merci de m'avoir macher le travail, non, merci d'avoir tout écrit ! lol

Nickel, excellent, + tout les superlatifs existants !!