[VBA-E]Déplacer/Renommer fichier excel

Version imprimable

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:

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

06/02/2006, 15h39
Megaxel

Tu peux enregistrer ton fichier ailleurs pendant qu'il est ouvert, mais tu vas avoir du mal à le déplacer...
Essaie de le faire "à la main": pendant que ton fichier est ouvert, va dans l'explorateur de fichier, et essaie de le déplacer. Tu auras un message d'erreur te disant que ton fichier est ouvert et en cours d'utilisation, donc tu ne pourras pas le supprimer du répertoire où il se trouvait quand tu l'as ouvert.
Enfin, je crois bien...
06/02/2006, 15h42
wanou44

Le truc que je voudrais, c'est que lorsqu'on appuye sur le bouton, le fichier s'enregistre dans un autre répertoire avec un autre nom et que le fichier existant ne soit plus.

Comment je pourrais faire?
06/02/2006, 15h50
Megaxel

Fais l'enregistrement "à la main" en enregistrant une macro: tu auras ainsi le code que tu n'auras qu'à copier-coller, en choisissant le nom et l'emplacement.

Code:

ActiveWorkbook.SaveAs ....

Je ne suis pas sûr, mais peut-être qu'une fois l'enregistrement fais, tu pourras supprimer le fichier d'origine que Windows considérera comme fermé.
A vérifier.
06/02/2006, 16h01
wanou44

Merci c'est good.