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

Fermé
Nanette1975_fr - 30 janv. 2007 à 13:22
 Minege - 3 nov. 2012 à 20:22
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

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 dimanche 18 octobre 2009 Statut Membre Dernière intervention 17 juin 2011 83
17 juin 2011 à 10:31
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
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
Ç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
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
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