Enregistrer sous avec nom de fichier automatique
K
Bonjour à tous,
j'utilise un fichier modèle ".xltm". Lorsque je ferme le fichier, il me demande bien sur si je veux enregistrer le nouveau fichier créé.
Je clique sur "oui" et la fenêtre "enregistrer sous" apparait.
Je souhaiterais qu'à ce moment là, le nom du fichier s'écrive automatiquement en reprenant les valeurs des celulles B5 et G6, avec entre un tiret:
Nom du fichier: "contenu cellule B5" - "contenu cellule G6".xls
Merci pour votre aide...
Bonjour,
il faut changer le nécessaire
Sub Save_AS()
Chemin = "E:\Job\King\XL\" ' à changer par le chemin du dossier d'enregistrement pardéfaut
Mon_Nom = Sheets("Feuil2").Range("B5") & "-" & Sheets("Feuil2").Range("G6") & ".xls" ' changer (Feuil2) par le nom de la feuille contenant les cellules B5 et G6
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Chemin & Mon_Nom, _
FileFormat:=xlExcel8, _
CreateBackup:=False
Application.DisplayAlerts = True
End Sub