Autres macro sauvegarder fichier avec date du jour

Chatron · 24 Septembre 2020

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

soan · 24 Septembre 2020

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

sylvanu · 24 Septembre 2020

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"

Chatron · 24 Septembre 2020

Merci

sylvanu à dit:
& "-" & Format(Date, "yymmdd") & ".xls"

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

sylvanu · 24 Septembre 2020

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

sylvanu · 24 Septembre 2020

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 · 24 Septembre 2020

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 · 24 Septembre 2020

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 · 24 Septembre 2020

sylvanu à dit:
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 · 24 Septembre 2020

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 · 24 Septembre 2020

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

soan

Chatron · 24 Septembre 2020

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 · 24 Septembre 2020

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

sylvanu · 24 Septembre 2020

sylvanu à dit:
( par ex cantonale n'a qu'un "n" )

Chatron · 24 Septembre 2020

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 · 24 Septembre 2020

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.

Autres macro sauvegarder fichier avec date du jour

Chatron

XLDnaute Junior

soan

sylvanu

XLDnaute Barbatruc

Chatron

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Chatron

XLDnaute Junior

soan

XLDnaute Barbatruc

Chatron

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Chatron

XLDnaute Junior

soan

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Chatron

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Discussions similaires