A adapter en fonction de vos directory et du format de vos fichier excels.
Source / Exemple :
Sub Listage()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.CutCopyMode = False
'On Error Resume Next 'evite les erreurs merci Nix
Directory_0 = "Z:\Alex\William\Fourre tout\Classeur1.xls"
Directory_1 = "\\Laplink\apave\"
Sheets("WWW").Select
Cells(1, 1) = "Nom"
Cells(1, 2) = "Taille"
Cells(1, 3) = "Date"
Range("A1:C1").Font.Bold = True
Columns("C:C").NumberFormat = "m/d/yy"
r = 2
With Application.FileSearch
.NewSearch
.LookIn = Directory_1
.Filename = "??????????.xls" 'spécifique à mon format de fichieer
.SearchSubFolders = False
.Execute
For i = 1 To .FoundFiles.Count
Cells(r, 1) = .FoundFiles(i)
Cells(r, 2) = FileLen(.FoundFiles(i))
Cells(r, 3) = FileDateTime(.FoundFiles(i))
r = r + 1
Next i
End With
Directory_2 = "\\Laplink\apave\S204190322.xls"
Directory_3 = "Z:\Alex\William\Fourre tout\Classeur2.xls\"
FileCopy Directory_2, Directory_3
Sheets("WWW").Select
nbligne = Sheets("WWW").UsedRange.Rows.Count
nbligne = nbligne + ActiveSheet.UsedRange.Row - 1
MsgBox (nbligne)
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.