Travailler sur les fichiers excel dans le même dossier

[nicolase78]

Bonjour à tous,

J'ai un dossier avec des fichiers excel (ce dossier se situe dans le dossier dans lequel se situe le fichier excel sur lequel on travaille) commençant tous par :
"Commande" puis concaténer avec un numéro d'incrémentation (1,2,3,4...) ce qui donne:
- commande1.xslx
- commande2.xslx
- commande3.xlslx

Je voudrais récupérer dans une variable le dernier numéro dans l'exemple ci-dessus, 3. Si il n'y pas de fichier commençant par "commande" alors dans ce cas on récupère 0.

J'espère avoir été claire.

Merci pour votre aide.

 

[kjin]

Re : Travailler sur les fichiers excel dans le même dossier

Bonjour,
Testes

Dim fs, fld, f, n%
Set fs = CreateObject("Scripting.FileSystemObject")
Set fld = fs.GetFolder(ThisWorkbook.Path).Files
For Each f In fld
    If f.Name Like "Commande*" Then
        t = Split(fs.GetBaseName(f), "Commande")
        If t(1) > n Then n = t(1)
    End If
Next
MsgBox n
set fld = Nothing
Set fs = nothing

A+
kjin

 

[nicolase78]

Re : Travailler sur les fichiers excel dans le même dossier

Parfait, merci

 

[nicolase78]

Re : Travailler sur les fichiers excel dans le même dossier

Par contre j'essaie de voir si le nom du fichier excel n'est plus "commande" mais style "La commande " ce qui donnerait "La commande1", "La commande2"etc...

J'essaie de modifier mais j'arrive pas. J'ai une erreur au niveau de Split(fs.GetBaseName(f), "La commande")

Merci

 

[kjin]

Re : Travailler sur les fichiers excel dans le même dossier

Re,
il suffit de remplacer "commande" par "La commande"
A+
kjin

 

[kjin]

Re : Travailler sur les fichiers excel dans le même dossier

Re,
Pour s'affranchir de la casse et des valeurs non numériques

Dim fs, fld, f, n%
Set fs = CreateObject("Scripting.FileSystemObject")
Set fld = fs.GetFolder(ThisWorkbook.Path).Files
For Each f In fld
    If UCase(f.Name) Like "LA COMMANDE*" Then
        t = Replace(UCase(fs.GetBaseName(f)), "LA COMMANDE", "")
        If t <> "" And IsNumeric(t) Then
            If t > n Then n = t
        End If
    End If
Next
MsgBox n
Set fld = Nothing
Set fs = Nothing

A+
kjin

 

[nicolase78]

Re : Travailler sur les fichiers excel dans le même dossier

Merci pour la rapidité de ta réponse et l'efficacité de ta macro, j'ai encore du boulot...