Re, j'avais oublié, normalement GetBaseName est utilisé pour retourner le nom du fichier sans son extension mais en lui passant le chemin il retourne le dossier contenant le fichier concerné
With ShFichiers
.Cells(NbFichiers, 1) = FSO.GetBaseName(sChemin)
.Cells(NbFichiers, 2) = Fichier
End With
|
D'ou l'importance de développer en Early Binding et ensuite de passer en Late Binding ...
Message édité par kiki29 le 02-10-2008 à 03:18:54