[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
Configuration: Windows 2000
Internet Explorer 6.0

4 réponses

  1. 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
    1. lapin14 Messages postés 7 Statut Membre 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
  2. 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
    1. 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
  3. 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
  4. 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

Discussions similaires

Ouvrir un fichier .pub sans Publisher
baissaoui -
baissaoui -

0 réponse