Macro fermeture un seul fichier

Résolu
jéjé -  
 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

  1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
     
    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
    0
    1. jéjé
       
      tip top merci beaucoup!
      0