Macro fermeture un seul fichier

Résolu/Fermé
Signaler
-
 jéjé -
Bonjour,

J'ai créé une macro (sur un bouton) qui "enregistre sous" d'après le nom et la date et je voudrais fermé le fichier enregistré et non le "modèle".
Quel code dois-je entrer?
J'en suis là:

mydir = "E:\...\"
mystr = mydir & [k18] & " " & [k14] & ".xls"

ActiveWorkbook.SaveAs Filename:=mystr, FileFormat:=xlNormal


Merci pour votre aide =)

1 réponse

Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 716
Quand tu enregistre sous, ton modèle devient le fichier enregistré

Essaye :


Dim MyWbk As Excel.Workbook

mydir = "E:\..\"
mystr = mydir & [k18] & " " & [k14] & ".xls"

MyFileName = ActiveWorkbook.FullName

ActiveWorkbook.SaveAs Filename:=mystr, FileFormat:=xlNormal

Set MyWbk = ActiveWorkbook

Application.Workbooks.Open Filename:=MyFileName

MyWbk.Close savechanges:=False



Patrice
tip top merci beaucoup!