Autres macro sauvegarder fichier avec date du jour

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2020

• #2

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"

 

Vote positif 0 Vote négatif

C

Chatron

XLDnaute Junior

• 24 Septembre 2020

• #3

Merci

sylvanu à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2020

• #4

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2020

• #5

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

 

Vote positif 0 Vote négatif

C

Chatron

XLDnaute Junior

• 24 Septembre 2020

• #6

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 24 Septembre 2020

• #7

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

 

Vote positif 0 Vote négatif

C

Chatron

XLDnaute Junior

• 24 Septembre 2020

• #8

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2020

• #9

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.

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 24 Septembre 2020

• #10

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

soan

 

Vote positif 0 Vote négatif

C

Chatron

XLDnaute Junior

• 24 Septembre 2020

• #11

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 24 Septembre 2020

• #12

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2020

• #13

sylvanu à dit:

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

Cliquez pour agrandir...

🙂

 

Vote positif 0 Vote négatif

C

Chatron

XLDnaute Junior

• 24 Septembre 2020

• #14

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2020

• #15

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.

 

Vote positif 0 Vote négatif