Autres macro sauvegarder fichier avec date du jour

Chatron

XLDnaute Nouveau
Supporter XLD
Bonjour à tous
j'avais créé avec votre aide très précieuse ( il y a une vingtaine d'années ) une application sous Excell (97 2000) pour gérer notre petite bibliothèque municipale
Cette application comporte des userformes et des macros
Elle fonctionne très bien, mais dernièrement un enfant s'est amusé avec et a validé le rendu de tous les livres qui étaient prétés
Il s'en suit qu'avec la sauvegarde automatique la fichier des prêts est vide !!!!!
A l'avenir, pour éviter ce genre de drame, je voudrais faire des sauvegardes automatiques avec la date du jour. Ce qui me permettrait en cas de fausse manip de récupérer une sauvegarde antérieure
J'ai essayé
VB:
      Windows("GdP.xls").Activate 'ferme GdP et sauve
 
 ActiveWorkbook.Save
    ChDir "E:\Bibliothèque\Bibliotheque cantonnale"
    ActiveWorkbook.SaveAs Filename:= _
        "E:\Bibliothèque\Bibliotheque cantonnale\GdP & Format(Date, "yymmdd").xls"
Mais ça ne fonctionne pas "erreur de syntaxe"
Merci de m'aider
à 80 ans ma tète a des trous !!
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Chartron,
Essayez de remplacer .xls"par & ".xls" , j'ai rajouté le & "-" par esthétisme et lisibilité.
il manque aussi un " après GDP.
VB:
ActiveWorkbook.SaveAs Filename:= _
        "E:\Bibliothèque\Bibliotheque cantonnale\GdP" & "-" & Format(Date, "yymmdd") & ".xls"
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
J'ai lancé ça :
VB:
Sub Essai()
ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\PC_PAPA\Desktop\GdP" & "-" & Format(Date, "yymmdd") & ".xls"
End Sub
et j'obtiens bien le fichier
1.jpg
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Pour en avoir le cœur net, remplacez :

VB:
ActiveWorkbook.SaveAs Filename:= _
        "E:\Bibliothèque\Bibliotheque cantonnale\GdP" & "-" & Format(Date, "yymmdd") & ".xls"
par
Code:
Range("A1")="E:\Bibliothèque\Bibliotheque cantonnale\GdP" & "-" & Format(Date, "yymmdd") & ".xls"
"A1" ou une autre cellule libre.
Lancez la macro. Avez vous dans cette cellule :
E:\Bibliothèque\Bibliotheque cantonnale\GdP - 200924.xls ?

Le chemin E:\Bibliothèque\Bibliotheque cantonnale\ existe t-il ? ( par ex cantonale n'a qu'un "n" )
 

Chatron

XLDnaute Nouveau
Supporter XLD
Je ne comprends pas mon erreur
J'ai fait un copier collé de votre code
VB:
GdP" & "-" & Format(Date, "yymmdd") & ".xls"
et ça marche, portant je ne vois pas la différence avec la ligne précédente
Code:
GdP" & "-" & Format(Date, "yymmdd") & ".xls"
Ou est l'erreur ?
Merci de ta patience
 

Chatron

XLDnaute Nouveau
Supporter XLD
Pour en avoir le cœur net, remplacez :

VB:
ActiveWorkbook.SaveAs Filename:= _
        "E:\Bibliothèque\Bibliotheque cantonnale\GdP" & "-" & Format(Date, "yymmdd") & ".xls"
par
Code:
Range("A1")="E:\Bibliothèque\Bibliotheque cantonnale\GdP" & "-" & Format(Date, "yymmdd") & ".xls"
"A1" ou une autre cellule libre.
Lancez la macro. Avez vous dans cette cellule :
E:\Bibliothèque\Bibliotheque cantonnale\GdP - 200924.xls ?

Le chemin E:\Bibliothèque\Bibliotheque cantonnale\ existe t-il ? ( par ex cantonale n'a qu'un "n" )
 

soan

XLDnaute Barbatruc
Re,

C'est peut-être :
VB:
Range("A1")="E:\Bibliothèque\Bibliothèque cantonale\GdP" & "-" & Format(Date, "yymmdd") & ".xls"
e accent grave pour le 2ème "Bibliothèque" et un seul n pour "cantonale"
(pour le n en trop, sylvanu l'avait déjà indiqué dans son post #5)


soan
 
Haut Bas