bonjour Friscogreencar , Charly et Dan
Charly , merci pour la pub ...;o)
en reprenant la solution donnée par Charly tu peux faire un essai en remplaçant ActiveWorkbook par ThisWorkbook
Dim Rep As String
Rep='le sous dossier'
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & '\\\\\\\\' & Rep & '\\\\\\\\NomClasseur.xls'
bonne journée
MichelXld
Message édité par: michelxld, à: 28/11/2005 06:09