Sauvegarde

Résolu
guismo33 Messages postés 351 Date d'inscription   Statut Membre Dernière intervention   -  
baladur13 Messages postés 47801 Date d'inscription   Statut Modérateur Dernière intervention   -
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
A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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 + "\test_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
0
guismo33 Messages postés 351 Date d'inscription   Statut Membre Dernière intervention   2
 
bonjour,
desolé reponse tardif , oui merci cela fonctionne.


bien à vous
0
baladur13 Messages postés 47801 Date d'inscription   Statut Modérateur Dernière intervention   13 688 > guismo33 Messages postés 351 Date d'inscription   Statut Membre Dernière intervention  
 
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Pas grave, l'essentiel est que la réponse corresponde a votre attente
Bye......
0