XL 2010 determiner le nbr de fichiers excel ds un dossier

Lone-wolf à dit:

Sub Import_Fichiers()
Dim FileList(), i As Long, nbr As Long

With Sheets(1)
.Range("a2:c300").ClearContents

FileList = Application.GetOpenFilename(, , , , True)

For i = 1 To UBound(FileList)
.Range("a" & i + 1) = FileList(i)
.Range("b" & i + 1) = Dir(FileList(i))
.Range("c" & i + 1) = "Exam" & i
nbr = i
Next
.Range("a:c").Columns.AutoFit
MsgBox "Vous avez " & nbr & " fichiers dans ce dossier.", , "IMPORTATION"
Call Renomme_Fichiers
End With
End Sub


Sub Renomme_Fichiers()
Dim newName As String
Dim oldFileName As String
Dim newFileName As String
Dim numFile As Long

With Sheets(1)
numFile = 2
newName = .Range("c" & numFile)
oldFileName = .Range("a" & numFile)

While newName <> "" And oldFileName <> ""
newFileName = Left(oldFileName, Len(oldFileName) - Len(Dir(oldFileName))) & newName
Name oldFileName As newFileName
numFile = numFile + 1
newName = .Range("c" & numFile)
oldFileName = .Range("a" & numFile)
Wend
End With
End Sub

Cliquez pour agrandir...