Déplacer un fichier d'un répertoire vers un autre répertoire

[zeltron]

Bonjour à tous,

Est il possible via une macro déclenchée par un bouton sur une fichier appelé par exemple Fichier_1.xls , de déplacer un fichier excel ( nommé par exemple " Fichier_XX.xls") se trouvant dans un repertoire A vers un répertoire B.

Cela sachant que les répertoires A et B se trouvent dans le même répertoire que le fichier utilisé pour déclencher cette macro (Fichier_1.xls).

Merci d'avance pour votre aide

Cordialement

Zeltron

 

[zeltron]

Re : Déplacer un fichier d'un répertoire vers un autre répertoire

Je viens de trouver la solution ( j'avais cherché sur le forum mais pas dans les archives!!!)

Si cela peux aider quelqu'un:

Sub Bouton1_QuandClic()
Workbooks.Open Filename:=ThisWorkbook.Path & "\A\Fichier_XX.xls"
Workbooks("Fichier_XX.xls").SaveAs ThisWorkbook.Path & "\B\Fichier_XX_déplacé.xls"
Kill (ThisWorkbook.Path & "\A\Fichier_a_déplacer.xls")
Workbooks("Fichier_XX_déplacé.xls").Close
End Sub

Bonne journée

Cordialement

Zeltron