Sauvegarde feuille sous nom de cellulle.

[whooki]

Bonjour à tous,

J'utilise le code ci-dessous pour sauvegarder mes fichiers, il fonctionne très bien, cependant cela prend une place folle sur mon dd. Je voudrais savoir comment copier uniquement ma feuille DEVIS au lieu de mon classeur tout entier.

Merci par avance de votre aide.

Sub SAVE()

'strDate = Format(Now, " dd-mmm-yy h-mm-ss")


Chemin = "c:\GESTCOM\DEVIS\"
FileNameXls = Range("DEVIS!K7").Value & ".xls"

chemXls = Chemin & FileNameXls

'FileNameXls = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & strDate & ".xls"

'Make copy of the activeworkbook
ActiveWorkbook.SaveCopyAs (chemXls)


End Sub

 

[Dan]

Re : Sauvegarde feuille sous nom de cellulle.

Bonjour,

Clique sur ce lien et vois les deux macros.--> Lien supprimé

A adapter bien sûr pour nommer en fonction de ta cellule.

Si pb n'hésite pas.