Bouton copy un fichier
Bonjour à tous,
je souhaite ajouter un bouton sur mon fichier excel. Ce bouton sera assoscié à une macro qui fera un truc tout simple:
- faire une copie du fichier dans un autre chemin sans modifier le fichier original.
mais, je ne veux pas utiliser ActiveWorkbook.SaveAs car il change le nom du fichier sourcel.
j'ai fais ça, le fichier est bien copié, mais il change de nom
Sub Formeautomatique187_QuandClic()
ActiveWorkbook.Save
Application.DisplayAlerts = False
fName1 = ActiveWorkbook.Name & Format(Now, "yyyy-mm-dd_" & "hh""h""mm")
chemin1 = "c:\ici\"
ActiveWorkbook.SaveAs chemin1 & fName1
End Sub
zavez une idée?
merci d'avance
Roudy
bonjour,
utilise FileCopy
Sub test()
Dim Source$, Cible$
Source = "C:\Documents and Settings\...\MonBeauFichier.xls"
Cible = "F:\MonBeauFichier.xls"
FileCopy Source, Cible
End SubCodé avec le pied, non testé et à adapter...
A+
okok...
comment je peux lui dire que le fichier source est le fichier actif ouvert?
ca m'embête de mettre en dur le chemin du fichier source car il peut changer de place... mais pas la destination de la cible..
merci déjà pour ce bon départ
roudy
==================
update
j'ai touvé activeWorkbook.SaveCopyAs je pense que c'est mon bonheur
merci, vous demander ca m'aide aussi
roudy
Euh... Non si fichier source est le fichier actif ouvert : oublie
utilise plutot (dans le BeforeClose...)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
chemin1 = "c:\ici\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs chemin1 & ActiveWorkbook.Name
End Sub A+
c'est bien ça aussi.... allé, ceinture et bretelles, je vais mettre le bouton et le before close, et je verrais à l'usage
merci beaucoup petit galopin
roudu
galopin01 a écrit :Euh... Non si fichier source est le fichier actif ouvert : oublie
utilise plutot (dans le BeforeClose...)
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save chemin1 = "c:\ici" Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs chemin1 & ActiveWorkbook.Name End SubA+