Bonjour le forum !!
Voila je souhaite ouvrir le fichier excel ayant dans son titre le plus grand nombre, et ceci dans un dossier situé à une adresse particulière.
Pour cela j'ai le code suivant :
Malheureusement losque je clique sur le bouton, seul le répertoire s'ouvre et pas le fichier excel dont le titre a le plus grand numero.
Que dois-je faire ??
sympa de m aider, merci !
Voila je souhaite ouvrir le fichier excel ayant dans son titre le plus grand nombre, et ceci dans un dossier situé à une adresse particulière.
Pour cela j'ai le code suivant :
Code:
Private Sub CommandButton1_Click()
Dim Chemin As String, Fichier As String, Resultat As String
Chemin = 'P:\\NFPP\\T\\NECE\\NECE PLAN DE CLASSEMENT\\NECE OL3\\EM3 DIESELS\\5-0 INGENIERIE\\EDG (5-0)\\EMPK ACTIONS TABLE (EM3 DIESELS-5-2)'
Fichier = Dir(Chemin & '*.xls') 'filtre sur les fichiers .xls
Do While Len(Fichier) > 0 'boucle sur les fichiers du repertoire
If Val(Fichier) > Val(Resultat) Then Resultat = Fichier
Fichier = Dir()
Loop
Shell 'Explorer ' & Chemin & Resultat & '', 1
End Sub
Malheureusement losque je clique sur le bouton, seul le répertoire s'ouvre et pas le fichier excel dont le titre a le plus grand numero.
Que dois-je faire ??
sympa de m aider, merci !