Autres macro sauvegarder fichier avec date du jour

Chatron

XLDnaute Junior
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
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 Junior
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
Inactif
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
 

Statistiques des forums

Discussions
311 730
Messages
2 081 989
Membres
101 856
dernier inscrit
Marina40