XL 2010 Enregistrement automatique d'une feuille spécifique

[TARCI]

Bonjour,

J'ai un code qui me permet d'appuyer sur un bouton pour enregistrer automatiquement le classeur dans un dossier spécifique.
Je voudrais enregistrer seulement une feuille spécifique du classeur sans bouton ni macro.

Est-ce possible ?

Voici mon code actuelle :

Sub SauvegardeAuto()
Application.DisplayAlerts = False
Dim dName$, vName$
    dName = Range("A1")
    vName = ActiveWorkbook.FullName
    ActiveWorkbook.SaveCopyAs "S:\..." & dName & " " & Format(Date, "DD.MM.YY") & " à " & Format(Time, "hh.mm.ss") & ".xlsm"

    ActiveWorkbook.SaveAs vName
Application.DisplayAlerts = True
End Sub

 

[Ikito]

On va devoir répondre combien de fois ?

Et sans bouton ni macro ? Par quelle action ? Par ton esprit qui dit : "Je veux enregistrer" ?

Sheets("TaFeuille").ExportAsFixedFormat Type:=xlTypePDF, Filename:="Chemin" & "LeNomDeTonFichier.xlsm"

Sur ce sujet déjà

 

[TARCI]

C'est une erreur de ma part de vouloir l'enregistrer en PDF.
Je voudrais l'enregistrer en format excel mais seulement la feuille souhaité.

Quand je dit sans bouton ni macro je parle de la sauvegarde je voudrais que la feuille sous forme excel soit sans bouton.

Merci de ta réponse

 

[Ikito]

Re,

Quelque chose comme ça peut-être.

Sub SauvegardeAuto()
Application.DisplayAlerts = False
Dim dName$, vName$
    dName = Range("A1")
    vName = ActiveWorkbook.FullName
    ActiveWorkbook.SaveCopyAs "S:\..." & dName & " " & Format(Date, "DD.MM.YY") & " à " & Format(Time, "hh.mm.ss") & ".xlsm"
    Workbooks.Open("S:\..." & dName & " " & Format(Date, "DD.MM.YY") & " à " & Format(Time, "hh.mm.ss") & ".xlsm")
    Set wb_Open = ActiveWorkbook
    wb_Open.Activate
    wb_Open.Sheets("LaFeuilleQueTuSouhaitesAfficher").Activate
    ActiveWindow.DisplayWorkbookTabs = False
    wb_Open.Close SaveChanges:= False
   
    ActiveWorkbook.SaveAs vName
Application.DisplayAlerts = True
End Sub