[Excel vba] Copier un fichier *.txt sans open

Nanette1975_fr -  
 Minege -
Bonjour,
Je voudrais copier un fichier texte depuis un repertoire specifique dans un autre repertoire sans avoir à ouvrir le document *.txt
Je crois que la methode CopyFile fait se genre de truc mais je comprends pas tout...
Merci pour votre aide
Nanette
A voir également:

4 réponses

Buldo
 
Dim SourceFichier, DestinationFichier
SourceFichier = "E:\test\toto.txt" ' Définit le nom et le chemin(ici E:\test) du fichier source.
DestinationFichier = "E:\new\TITI.txt" ' Définit le nom du fichier et le nouveau chemin (ici E:\new) cible.
' Copie le fichier source dans le fichier cible.
FileCopy SourceFichier, DestinationFichier
21
lapin14 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   83
 
Merci Buldo!

Cela fonctionne aussi parfaitement pour un autre type de fichier (.xlsx dans mon cas)

j'ai également transformé le "copier" en "couper" en rajoutant après ton code:
Kill (SourceFichier)

en espérant que ça aidera autant que Buldo m'a aidé ;)
0
lemanux
 
Bonjour à tous,
Pouvez-vous me dire sir cette méthode fonctionne avec des fichiers présents sur un serveur (copie de "http://......." vers "C:\.....")
Merci
0
Bobl
 
Ça ne marche pas pour les adresses de serveur, utilise plutôt ceci:

OpenFilename = "http://www.google.com..."
SaveFilename = "C:\users\..."

Workbooks.Open OpenFilename, ReadOnly:=True
Workbooks.Application.ActiveWorkbook.SaveAs SaveFilename
Workbooks.Application.ActiveWorkbook.Close False
0
mrbou
 
Si tu as un acces direct au fichier et que sur le net tu as l'acces rwx sur sur le fichier pour moi cela devrait fonctionner.

Puis essaye tu verras bien :)
0
Minege
 
Bonjour,
Comment en fait pour copier le fichier et après le coller sur le bureau
Le bureau veut dire: le bureau des autre profile(ordinateur)

Merci d'avance
0