Voilà, j'ai un petit fichier excel et je voudrais quand on clique sur un bouton qu'il soit déplacé dans un autre dossier et avec un autre nom.
J'ai essayé de faire une copie et ensuite la fonction "kill" mais ça ne marche pas.

Là j'essaye avec Name ... as ... mais j'y arrive toujours pas.
Un peu d'aide s'il vous plait.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Valider_Click()
 
Valider.Visible = False 'rend le bouton "Valider" invisible
 
With ActiveWorkbook
      NomFichier = .Name 'copie le nom du fichier excel dans la variable NomFichier
End With
Nom = "Valider - " & NomFichier 'concatène "Valider" avec nom du fichier excel
 
Name ("P:\PRIOUL\" & NomFichier) As ("P:\PRIOUL\2006\" & Nom)
Excel.Application.Quit
 
End Sub