Résolu 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 !!
 
Ce fil a été résolu! Aller à la solution…

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
 
Ce message a été identifié comme étant une solution!

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
 

soan

XLDnaute Accro
Bonjour Chatron, sylvanu,

Je crois que l'erreur n'est pas située dans ce que tu as montré,
mais dans la partie gauche de ce que tu ne montres pas !!! :p

soan
 

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" )
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
RE, Bonjour Soan.
Au post #5 je vous ai proposé une ligne pour en avoir le coeur net. Essayez. La cellule devrait contenir ce que vous voulez.
Regardez post #4, ça marche. Donc cherchons où ça coince chez vous.
 

Chatron

XLDnaute Nouveau
Supporter XLD
J'ai essayé le code de sylvanu et j'ai bien la formule dans la cellule

Je ne peux pas continuer mais rectifications maintenant car je dois m'occuper de mon épouse handicapée

Merci pour votre aide précieuse
J'essayerai de m'y remettre demain
 

soan

XLDnaute Accro
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
 

Chatron

XLDnaute Nouveau
Supporter XLD
l'erreur ne vient pas de l'accent ni de la faute car j'ai fait un copier coller du chemin
par contre il renomme le fichier avec la date et don il ne s'appelle plus "GdP" mais "GdP 200924"et donc il ne fait plus parti de la liste
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Quelle liste ?
Quand j'ai fait le test au post #4, c'était brut de fonderie, et ça a marché.
Le problème vient d'autre part.
Car un SaveAs par définition enregistre un fichier sous un nouveau nom.
 
Ce message a été identifié comme étant une solution!

soan

XLDnaute Accro
Dans son post #14, Chatron a écrit :

« il renomme le fichier avec la date et don il ne s'appelle plus "GdP" mais "GdP 200924" »

Je crois qu'il manque un tiret, entre "GdP" et "200924" ! ça devrait être "GdP-200924"


soan
 
Ce message a été identifié comme étant une solution!

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas