Autres macro sauvegarder fichier avec date du jour

[Chatron]

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é

      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]

Bonjour Chartron,
Essayez de remplacer .xls"par & ".xls" , j'ai rajouté le & "-" par esthétisme et lisibilité.
il manque aussi un " après GDP.

ActiveWorkbook.SaveAs Filename:= _
        "E:\Bibliothèque\Bibliotheque cantonnale\GdP" & "-" & Format(Date, "yymmdd") & ".xls"

 

[Chatron]

Merci

& "-" & Format(Date, "yymmdd") & ".xls"

J'ai essayé mais j'ai "yymmdd" bleuté avec le message "attendu fin d'instruction"

 

[sylvanu]

J'ai lancé ça :

Sub Essai()
ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\PC_PAPA\Desktop\GdP" & "-" & Format(Date, "yymmdd") & ".xls"
End Sub

et j'obtiens bien le fichier

 

[sylvanu]

Pour en avoir le cœur net, remplacez :

ActiveWorkbook.SaveAs Filename:= _
        "E:\Bibliothèque\Bibliotheque cantonnale\GdP" & "-" & Format(Date, "yymmdd") & ".xls"

par

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]

Je ne comprends pas mon erreur
J'ai fait un copier collé de votre code

GdP" & "-" & Format(Date, "yymmdd") & ".xls"

et ça marche, portant je ne vois pas la différence avec la ligne précédente

GdP" & "-" & Format(Date, "yymmdd") & ".xls"

Ou est l'erreur ?
Merci de ta patience

 

[soan]

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 !!!

soan

 

[Chatron]

Pour en avoir le cœur net, remplacez :

ActiveWorkbook.SaveAs Filename:= _
        "E:\Bibliothèque\Bibliotheque cantonnale\GdP" & "-" & Format(Date, "yymmdd") & ".xls"

par

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]

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.

 

[soan]

Oui, mais pour ton code VBA, quelle est ta ligne de code complète ?

soan

 

[Chatron]

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]

Re,

C'est peut-être :

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

 

[sylvanu]

( par ex cantonale n'a qu'un "n" )

 

[Chatron]

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]

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.