Discussion :

[wanou44]

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

[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...

[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?

[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 :

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

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.

[wanou44]

Merci c'est good.