Macro enregistrement feuille

[Edd93]

Bonjour tout le monde !


Je voudrai une macro qui enregistre la feuille "Feuille de route" uniquement, dans un nouveau fichier excel au nom JJMMAAAA. Et tout cela dans un dossier à F:\EXPLOITATION


Merci !

 

[Iznogood1]

Bonjour,

Sub SaveFeuilleDeRoute()
  Worksheets("Feuille de route").Copy
  ActiveWorkbook.SaveAs Filename:="F:\EXPLOITATION\" & Format(Date, "ddmmyyyy")
End Sub

 

[gilbert_RGI]

Bonjour,

comme ceci peut-être

Sub Copie2()
    Dim chemin As String
    nom = ActiveWorkbook.Name
    chemin = "F:\EXPLOITATION\"
    Application.DisplayAlerts = False
         With Sheets
             .Copy
         End With
         MyDate = Date
    ActiveWorkbook.SaveAs Filename:=chemin + Format(MyDate, "dd mm yyyy") & ".xls"
    Workbooks(nom).Activate
   ActiveWorkbook.Sheets(1).[a1].Select

End Sub