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