Bonjour 
J’ai pas mal d’administratif ‹ redondant › que j’aimerais automatiser étant formatrice.
Je scanne 6 documents par stagiaire, ou toutes les évaluations du groupe.
Après le scan, je divise via ‹ ilovepdf › puis je renomme.
Le problème c’est qu’avec 30 stagiaires, c’est long. J’aimerais savoir si c’est possible d’automatiser la division des fichiers et le renommage, le problème étant que les fichiers n’ont pas le même nombre de pages.
Merci d’avance pour les pistes ou les solutions que vous auriez 
J’avais trouvé ça pour renommer :
Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
xDir = .SelectedItems(1)
xFile = Dir(xDir & Application.PathSeparator & « * »)
Do Until xFile = « »
xRow = 0
On Error Resume Next
xRow = Application.Match(xFile, Range(« A:A »), 0)
If xRow > 0 Then
Name xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells(xRow, « B »).Value
End If
xFile = Dir
Loop
End If
End With
End Sub