Probleme de copier d' un fichier xls dans un nouveau repertoire

Question

J' ai un petit soucis, je souhaite copier un fichiers ecxel vers un repertoire different a l' aide d' un bouton. Le repertoire est creer au prealable avec le meme bonton.
voici ce que j' ai programmé

Private Sub CommandButton1_Click()
Set Fso = CreateObject("Scripting.FileSystemObject") 
 Fso.CreateFolder ("C:\00\48100")
 FileCopy "c:\00\vierge.xls", "c:\00\ 48100"
End Sub

Le repertoire 48100 est bien créé mais une erreur apparait lors de la copie du fichier xls.
erreur  d' execution '76' chemin d' acces introuvable.
Je ne comprend pas, pouvez vous m' aider ?

yuri1961 · Answer

Salut!

Set fso = CreateObject("Scripting.FileSystemObject")

fso.CreateFolder("C:\00\48100")

fso.CopyFile "c:\00\vierge.xls", "c:\00\48100"









Si la r&#233;ponse te conviens merci de l'accepter

yuri1961 · Answer

Ca marchers mieu


Set fso = CreateObject("Scripting.FileSystemObject")
 fso.CreateFolder("C:\00\48100")
 fso.CopyFile "c:\00\vierge.xls", "c:\00\48100"




Wildcard characters can only be used in the last path component of the 
source argument. For example, you can use:


FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:	empfolder"




But you can't use:


FileSystemObject.CopyFile "c:\mydocuments\*\R1???97.xls", "c:	empfolder"

lmic626262 · Answer

Ca ne marche toujours pas, je travaille sous excel 2002 avec visual basic 6.3.

cs_franckydeluka · Answer

All right !! but you are on VBFrance 
please answer in french  
it would be better...

(I've used google translate program to write this message ...)



Deluka.

Probleme de copier d' un fichier xls dans un nouveau repertoire

4 réponses

Discussions similaires