Sauvegarder automatique
Résolu
hichamtec06
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
hichamtec06 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
hichamtec06 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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
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
- Logiciel de sauvegarde automatique gratuit - Guide
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Réponse automatique gmail - Guide
- Sommaire automatique word - Guide
3 réponses
Bonjour,
Bienvenue sur le forum
Comme ceci, cela devrait fonctionner
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
merci Mr gbinforme
j'aiessaier mais toujour me donnée l'erreure a la ligne 10
merci d'avance
j'aiessaier mais toujour me donnée l'erreure a la ligne 10
merci d'avance