Copier un classeur xls sans l'ouvrir??

[Sophie11]

Bonjour,

Je me demandais si il était possible de dupliquer un classeur excel dans un repertoire different sans l'ouvrir?
Car quand je fais :

Workbooks.Open Filename:="P:\Documents\test.xls"
ActiveWorkbook.SaveAs Filename:="P:\Documents\exemple\test.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

C'est super lent à sauvegarder étant donner que mon fichier est gros et que ma macro fais plusieurs tâches en même temps 🙁
A moins qu'il soit possible de lui faire effectuer cette tache quand ma macro a fini de "tourner"?? 😕

Je vous remercie pas avance de votre aide... 😛

 

[Pierrot93]

Re : Copier un classeur xls sans l'ouvrir??

Bonjour Sophie,

pas sur d'avoir bien compris, pour copier un fichier, essaye peut être ceci, à noter, le fichier doit être femé :

FileCopy "C:\Dossier1\toto.xls", "C:\Dossier2\toto2.xls"

bon après midi
@+

 

[Sophie11]

Re : Copier un classeur xls sans l'ouvrir??

C'est exactement ce qu'il me fallait 🙂

Merci 😉

 

[Sophie11]

Re : Copier un classeur xls sans l'ouvrir??

Mes tests fonctionnent trés bien, mais que je le met en pratique, j'obtient une erreur en raison de mes droits trop restreint. (Permission denied)
Je peus pourtant lire et copier le fichier sous explorer... Avez-vous une idée pour contourner le problème? Merci

 

[Sophie11]

Re : Copier un classeur xls sans l'ouvrir??

Je viens de trouver la solution et je précise toute seule 🙂
voici le code que j'utilise :

dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("c:\exemple\test.xls") Then
filesys.CopyFile "c:\exemple\test.xls", "c:\blabla\test.xls"
End If

rhoooo je suis trop forte 😛