Sauvegarder automatique

Résolu/Fermé

hichamtec06 Messages postés 4 Date d'inscription samedi 17 juin 2017 Statut Membre Dernière intervention 17 juin 2017 - 17 juin 2017 à 04:52
hichamtec06 Messages postés 4 Date d'inscription samedi 17 juin 2017 Statut Membre Dernière intervention 17 juin 2017 - 17 juin 2017 à 12:05

Bonjour,

Svb je veux un code pour m'enregistre ma feuil ("base de données") a partire d'une bouton de command qui est a la feuil ("accueil")

voila se que j'ai fais mais sa marche pas
merci d'avancer

Sub Archiver()
'Macro par Dan
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = "C:\Users\ccv\Archif de suivi de stocke\"
MsgBox ThisWorkbook.Path
nomfichier =year(now()) & extension
With ActiveWorkbook
.ActiveSheet.DrawingObjects(1).Delete
.SaveAs Filename:=chemin & nomfichier
.Close
End With
End Sub

A voir également:

Sauvegarder automatique
Message automatique thunderbird - Guide
Réponse automatique outlook - Guide
Recherche automatique des chaînes ne fonctionne pas - Guide
Sommaire automatique word - Guide
Sauvegarde automatique windows 10 - Guide

3 réponses

Réponse 1 / 3

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 685
17 juin 2017 à 09:19

Bonjour,

Bienvenue sur le forum

Comme ceci, cela devrait fonctionner

Sub Archiver()
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
    Application.ScreenUpdating = False
    extension = ".xls"
    style = xlExcel8
    chemin = "C:\Users\ccv\Archif de suivi de stocke\"
    nomfichier = Year(Now()) & extension
    ThisWorkbook.Sheets("base de données").Copy
    With ActiveWorkbook
        .ActiveSheet.DrawingObjects(1).Delete
        .SaveAs chemin & nomfichier, style
        .Close
    End With
End Sub

Réponse 2 / 3

hichamtec06 Messages postés 4 Date d'inscription samedi 17 juin 2017 Statut Membre Dernière intervention 17 juin 2017
17 juin 2017 à 10:25

merci Mr gbinforme

j'aiessaier mais toujour me donnée l'erreure a la ligne 10

merci d'avance

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 685
17 juin 2017 à 11:51

Bonjour,

l'erreur à la ligne 10 signifie que la feuille que tu veux sauver n'a pas ce nom là (peut-être un espace en fin ?) car la feuille n'est pas trouvée.
Il te faut adapter le nom à celui de ton classeur.

hichamtec06 Messages postés 4 Date d'inscription samedi 17 juin 2017 Statut Membre Dernière intervention 17 juin 2017
17 juin 2017 à 12:05

Très bien

Réponse 3 / 3

hichamtec06 Messages postés 4 Date d'inscription samedi 17 juin 2017 Statut Membre Dernière intervention 17 juin 2017
17 juin 2017 à 12:05

oui c'est magnifique
merci bcp Mr gbinforme

Newsletters