j'ai bien compris ke tu as un probleme de librairies mais essaye aussi avec ca
 
- avec la méthode FileCopy de VBA :
 
Code :
 - Sub test1()
 - Dim Src$, Dest$
 - Src = "D:\fsdatas\zaza\Calculette Euros.xls"
 - Dest = "D:\fsdatas\Calculette Euros.xls"
 - 'copier sans renommer
 - FileCopy Src, Dest
 - 'copier et renommer
 - Dest = "D:\fsdatas\Calculette2.xls"
 - FileCopy Src, Dest
 - End Sub
 
  | 
 
- avec la méthode CopyFile du FileSystemObject :
 
Code :
 - Sub test2()
 - Dim Src$, Dest$
 - Src = "D:\fsdatas\zaza\Calculette Euros.xls"
 - Dest = "D:\fsdatas\Calculette Euros.xls"
 - With CreateObject("Scripting.FileSystemObject" )
 - 'copier sans renommer
 - .CopyFile Src, Dest
 - 'copier et renommer
 - Dest = "D:\fsdatas\Calculette2.xls"
 - .CopyFile Src, Dest
 - End With
 - End Sub
 
  | 
 
Message édité par 86vomito33 le 25-08-2008 à 19:18:28