Discussion :

[jackbauer972]

Bonjour à toutes et tous,

je voulais savoir s'il était possible de couper coller des fichiers depuis VBA.
Je m'explique, j'extrais des données de fichiers .ar vers ma feuille excel et je voudrais qu'une fois le fichier traité, il soit déplacer dans un nouveau dossier.
Est-ce possible?

Merci

[tonton fred]

Bonjour,
Si tu veux faire une copie de ton fichier excel c'est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("nom du workbook").SaveAs Filename:="C:\nouveau chemin\nouveau nom.xls"

ou SaveCopyAs, comme tu preferes (SaveAs change le document actif et te previent en cas d'ecrasement, SaveCopyAs ecrase sans prevenir et ne change pas le fichier courant).
Si c'est les fichiers non Excel j'en ai aucune idee.

[jackbauer972]

Merci Tonton Fred mais ça n'a pas marché.

J'ai essayé comme ça ms rien ne se passe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim A As String
Dim B As String
Dim F As String
 
ThisWorkbook.Activate
Sheets("Fichiers_traités").Select
  F = Range("A6").End(xlDown).Offset(1, 0).Value
 
   A = "B:\user\extend\PDU68\RESULTS\Retrofit S5\F.ar"
    B = "B:\user\extend\PDU68\RESULTS\Fichiers Traités PDU68\F.ar"
     FileCopy A, B

Je voudrais que F soit une variable ,que cette variable viennent lire le nom des fichiers qui sont dans la colonne A et que cette meme variable soit utilisée pour pour créer les chemins afin de faire le copier/coller.

Est ce possible?

Merci à tous

[Michel_M]

Bonjour,

Pour pouvoir copier, déplacer des fichiers ou répertoire, tu dois au préalable activer l'objet FileSystemObject.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 Dim fso as object
 
  Set fso = createObject("Scripting.fileSystemObject")
 
  Fso.filecopy etc pour copier-coller
Fso.filemove pour couper-coller

edit rectifié erreur copyfile et movefile...
A+
Michel

[tonton fred]

Re bonjour,
Merci pour FileCopy je ne connaissais pas

Alors petite explication sur les string avec un super exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
F = "les fleurs"
G = "les oiseaux"
H = "J'aime " & F & " et " & G
MsgBox(H)

Dans ce cas H contient le string: "J'aime les fleurs et les oiseaux"

Pour verifier le contenu d'un string (ou de toute autre variable mais avec certaines reserves), MsgBox est ton ami: Il permet d'afficher exactement le contenu de la variable et donc d'isoler plus vite la source de l'erreur.

L'application dans ton cas est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
A = "B:\user\extend\PDU68\RESULTS\Retrofit S5\" & F & ".ar"
B = "B:\user\extend\PDU68\RESULTS\Fichiers Traités PDU68\" & F & ".ar"

[jackbauer972]

Merci beaucoup à vous deux...

Les deux methodes marchent nickel