sauvegarde Résolu/Fermé

Question

Bonjour à tous,

j'ai un classeur avec plusieurs feuille et je voudrais sauvegarder l'une d'entre elle qui se nome : "Resultat"
dans un un répertoire " c:\Grenier\moi\Jour" , donc sauvegarder la feuille avec le même nom et avec en plus la date du jour ex:"Resultat 08-06-2018" .

merci à vous


bien à vous

f894009 · Answer

Bonjour,

un exemple de code pour faire sauvegarde d'une feuille dans un classeur nomme:
A adapter:

Sub Sauve_Feuille_Nouveau_Classeur()
    chemin = ActiveWorkbook.Path        'chemin du classeur actif
    ActiveSheet.Copy                             'copie de la feuille active
    'enregistrement dans un nouveau classeur
    With ActiveWorkbook
        '.Title = ActiveSheet.Name             'titre  pour propriete/detail du classeur
        '.Subject = ActiveSheet.Name       ' objet pour propriete/detail du classeur
        Application.DisplayAlerts = False   'desactive les alertes Excel
        .SaveAs Filename:=chemin + "	est_copy" + ActiveSheet.Name + ".xlsx"        'sauvegarde le nouveau classeur
        .Close True     'ferme le nouveau classeur avec sauvegarde
        Application.DisplayAlerts = True    'active les alertes Excel
    End With
End Sub

Sauvegarde

1 réponse

Discussions similaires