Commande ActiveWorkBook Save

Version imprimable

26/02/2013, 17h23
formabox

Commande ActiveWorkBook Save

Hello,

J'utilisais dans Excel 2003, la commande ActiveWorkBook.Save pour enregistrer les modifications apportées à mon classeur. En passant à 2010, cette commande ne fonctionne plus... Je n'ai aucun message d'erreur mais la commande ne s'exécute pas car en fermant le fichier, un message me demande d'enregistrer les moficiations du classeur.

Est-ce que quelqu'un a également eu ce problème et conaît peut-être la commande à utiliser avec Excel 2010 pour simplement enregistrer les modifications apportées à un classeur existant sans avoir la boîte de dialogue d'enregistrement ou le message qui demande d'écraser l'ancien fichier ?

Merci d'avance et bonne fin de journée,

Caroline
26/02/2013, 17h27
Kimy_Ire

Tente ceci :

Code:

ActiveWorkBook.Close SaveChanges:=True
26/02/2013, 17h33
Kimy_Ire
Ou alors, dans le code de "ThisWorkbook" place ceci :
Code:

1 2 3 Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save End Sub
L'une ou l'autre de mes propositions dépendent de l'utilisation que tu as de ton classeur ! :ccool:
04/03/2013, 11h42
formabox

Uniquement la sauvegarde

Hello Kimy_Ire,

Merci pour tes réponses qui fonctionne très bien :ccool:

Seul problème est que je souhaitais pas forcéement fermer mon classeur mais uniquement enregistrer les modifications apportées tout en restant dans le classeur...

C'est pour ceci qu'en 2003, j'utilisation la méthode :

Code:

ActiveWorkBook.Save

Mais... qui ne s'exécute plus avec 2010...
05/03/2013, 15h47
Guiiand

je viens de tester sur EXCEL 2010 de mon coté, et aucun soucis.

No coprendo 8O

enregitrement automatique + enregistrement de sauvegarde

Bonjour, dans un de mes projets, j'ai besoin d'un enregistrement incrémentiel pour des fins de sauvegarde et de retour arrière

en m'inspirant de ce qui a était dit / dans ThisWorkbook fait ici, j’ai fait ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Workbook_BeforeClose(Cancel As Boolean) If ThisWorkbook.Saved = False Then ActiveWorkbook.Save 'enregistre le fichier sous le mon d'origine ' Enregitrement de sauvegarde dans un sous dodssier nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Date, "yyyy-mm-dd") & "_" & Format(Time, "hhmmss") & ".xls" ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\sav\" & nom ' rep = MsgBox("Fichier sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Worksheet Backup Copy") Else End If End Sub
Tout fonctionne parfaitement pourtant, il me manque encore quelques détailles

- je ne sais pas vérifier si le dossier de sauvegarde existe et, pour le cas ou, le créé

- et, je voudrais également qu'en cas de Ctrl+s ou Ctrl + maj + s , il y ait aussi la sauvegarde dans le sous-dossier

Pour la seconde partie, je suppose qu'il doit y avoir un morceau de code, spécifique à la fonction enregistrer, à placer également dans ThisWorkbook

Merci de votre aide ...

je me répond à moi-même
pour la fonction vérifier et créé le sous-dossier j'ai trouver et au final ça donne ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
        If ThisWorkbook.Saved = False Then
 
         ' ouvrir une boite à méssage :
msg = "Faut-il enregister les changement effectués dans le fichier ?" & vbCrLf & vbCrLf & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name  ' Définit le message (& vbcrlf : saut de ligne).
Style = vbYesNo + vbDefaultButton1                                  ' Définit les boutons.
Title = "ATTENTION !"                                               ' Définit les titres.
Réponse = MsgBox(msg, Style, Title)
If Réponse = vbYes Then                                             ' Vous avez choisi le bouton « Oui ».
 
    ActiveWorkbook.Save 'enregistre le fichier sous le mon d'origine
 
Else                                                                'Vous avez choisi le bouton Non.
                                                                    ' Accomplit une autre chose (ici rien).
End If
 
 
    ' Enregitrement de sauvegarde dans un sous dodssier quelque soit le choix précédent
 
    Dim Doss As String
 
Doss = ActiveWorkbook.Path & "\sav\"
If Dir(Doss, vbDirectory) = "" Then
     MkDir Doss
     MsgBox "Le sous-dossier de sauvegarde " & Doss & " a été crée"
End If
 
 
    nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Date, "yyyy-mm-dd") & "_" & Format(Time, "hhmmss") & ".xls"
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\sav\" & nom
'    rep = MsgBox("Fichier sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Worksheet Backup Copy")
    Else
    End If
 
 
End Sub

en revanche je n'ai rien trouver pour le cas ou l'utilisateur face un enregistrement de par lui même
(et avoir en plus une sauvegarde incrémentielle)

08/06/2018, 17h36
Atdd91

Up 😉