Rechercher le plus grand nom de fichier...

[mikael2235]

Bonjour à tous,

Je voudrais faire une macro qui recherche dans le même répertoire que mon fichier excel lui même, le plus grand fichier avec l'extension DPT


exemple de nom de fichier :

1.DPT
23.DPT
674.DPT
8795.DPT

Exemple de résultat, dans ce cas, 8795

Merci pour votre aide, parce que je ne vois pas comment faire.

Mikael

 

[mromain]

Re : Rechercher le plus grand nom de fichier...

bonjour,

voici une macro à tester :

Sub tt()
Dim myFso As Scripting.FileSystemObject
Dim myFolder As Scripting.Folder
Dim curFile As File
Dim nomFichier As String: nomFichier = ""

Set myFso = CreateObject("Scripting.FileSystemObject")
Set myFolder = myFso.GetFolder(ThisWorkbook.Path)

For Each curFile In myFolder.Files
    If UCase(Right(curFile.Name, 3)) = "DPT" And Len(Left(curFile.Name, Len(curFile.Name) - 4)) > Len(nomFichier) Then nomFichier = Left(curFile.Name, Len(curFile.Name) - 4)
Next curFile

MsgBox nomFichier
End Sub

a+

 

[BOISGONTIER]

Re : Rechercher le plus grand nom de fichier...

Bonjour,

Sub essai()
  repertoire = ThisWorkbook.Path
  nf = Dir(repertoire & "\*.dpt")
  Do While nf <> ""
    If Len(nf) > Maxi Then
       Maxi = Len(nf)
       fichier = nf
    End If
    nf = Dir
  Loop
  MsgBox fichier
End Sub

JB
Formation Excel VBA JB

 

[Robert]

Re : Rechercher le plus grand nom de fichier...

Bonjour le fil, bonjour le forum,

Mikael, moi j'avais plutôt compris comme ça :

Sub Macro1()
Dim chemin As String 'déclare la variable chemin
Dim fs, f, f1, fc 'déclare les variables fs, f, f1, fc, s
Dim nval As Integer 'déclare la variable nval
Dim x As Integer 'déclare la variable x
chemin = ThisWorkbook.Path 'définit la variable chemin
Set fs = CreateObject("Scripting.FileSystemObject") 'définit la variable fs
Set f = fs.GetFolder(chemin) 'définit la variable f
Set fc = f.Files 'définit la variable fc
For Each f1 In fc 'boucle sur tous les fichiers du dossier
    On Error GoTo suite 'génère une erreur si le nom du fichier n'est pas convertible en entier (va à l'étiquette "suite"
    nval = CInt(Left(f1.Name, Len(f1.Name) - 4)) 'définit la variable nval
    If nval > x Then x = nval 'définit la variable x (la plus grande valeur de nval)
suite: 'étiquette
Next f1 'prochain fichier du dossier
MsgBox x 'affiche la plus grande valeur (tu adapteras pour récupérer cette valeur...)
End Sub

À simplifier avec le début de code de JB peut-être pour plus d'efficacité.

 

[mikael2235]

Re : Rechercher le plus grand nom de fichier...

BOISGONTIER, il me revoie dans la MsgBox 1752DPT.DPT alors que mon plus grand fichier est le 6743.DPT


mromain, la macro me renvoie une erreur de compilation, Type défini par l'utilisateur non défini à la 2eme ligne

Dim myFso As Scripting.FileSystemObject

Merci

 

[mikael2235]

Re : Rechercher le plus grand nom de fichier...

Bonjour le fil, bonjour le forum,

Mikael, moi j'avais plutôt compris comme ça :

À simplifier avec le début de code de JB peut-être pour plus d'efficacité.

Robert, il me renvoie l'erreur d'execution "13" : Incompatibilité de type

nval = CInt(Left(f1.Name, Len(f1.Name) - 4)) 'définit la variable nval

 

[mromain]

Re : Rechercher le plus grand nom de fichier...

re


à tester comme ça :

Sub tt()
[B]Dim myFso
Dim myFolder[/B]
Dim curFile As File
Dim nomFichier As String: nomFichier = ""

Set myFso = CreateObject("Scripting.FileSystemObject")
Set myFolder = myFso.GetFolder(ThisWorkbook.Path)

For Each curFile In myFolder.Files
    If UCase(Right(curFile.Name, 3)) = "DPT" And Len(Left(curFile.Name, Len(curFile.Name) - 4)) > Len(nomFichier) Then nomFichier = Left(curFile.Name, Len(curFile.Name) - 4)
Next curFile

MsgBox nomFichier
End Sub

a+

 

[Robert]

Re : Rechercher le plus grand nom de fichier...

Bonjour le fil, bonjour le forum,

ma proposition modifiée...

Sub Macro1()
Dim chemin As String
Dim fs, f, f1, fc, s
chemin = ThisWorkbook.Path
Dim nval As Integer
Dim x As Integer
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(chemin)
Set fc = f.Files
For Each f1 In fc
    If Ucase(Right(f1.Name, 3)) <> "DPT" Then GoTo suite
    On Error Resume Next
    nval = CInt(Left(f1.Name, Len(f1.Name) - 4))
    If nval > x Then x = nval
suite:
On Error GoTo 0
Next f1
MsgBox x
End Sub

 

[mikael2235]

Re : Rechercher le plus grand nom de fichier...

re


à tester comme ça :

Sub tt()
Dim curFile As File
[/QUOTE]

Toujours cette même erreur : Type défini par l'utilisateur non défini

Mikael

 

[mikael2235]

Re : Rechercher le plus grand nom de fichier...

Bonjour le fil, bonjour le forum,

ma proposition modifiée...

Sub Macro1()
Dim chemin As String
Dim fs, f, f1, fc, s
chemin = ThisWorkbook.Path
Dim nval As Integer
Dim x As Integer
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(chemin)
Set fc = f.Files
For Each f1 In fc
    If Ucase(Right(f1.Name, 3)) <> "DPT" Then GoTo suite
    On Error Resume Next
    nval = CInt(Left(f1.Name, Len(f1.Name) - 4))
    If nval > x Then x = nval
suite:
On Error GoTo 0
Next f1
MsgBox x
End Sub

Robert, toutes mes félicitations, le résultat est bon mais il met environ 1 minutes 30 à trouver....
Autrement je voudrais que le résultat s'affiche dans la cellule A1 au lieu de dans la MsgBox.

Est-il possible de faire en sorte que la macro s'execute à l'ouverture du fichier ?

 

[James007]

Re : Rechercher le plus grand nom de fichier...

Bonjour,

Tu peux réduire la durée de ta macro en "réduisant" l'espace de recherche avant que ta macro ne démarre la boucle ...
A toi de définir, compte tenu de ce que contient ton répertoire les bons critères ...

Oui, pour lancement automatique à l'ouverture ...dans ThisWorkbook,

Private Sub Workbook_Open()

A +

 

[mikael2235]

Re : Rechercher le plus grand nom de fichier...

Encore une autre question :

Est-il possible d'ajouter une "ProgressBar", je ne sais pas si en VBA ça se fait ?

 

[kjin]

Re : Rechercher le plus grand nom de fichier...

Bonjour,

Je voudrais faire une macro qui recherche dans le même répertoire que mon fichier excel lui même, le plus grand fichier avec l'extension DPT

Comprends pas !
Avec le code de JB, moins d'une fraction de seconde sur 500 fichiers testés
Maintenant, une précision concernant le fichier "1752DPT.DPT" serait bienvenue
A+
kjin