Enregistrement vers un macro en lisant une date

[fox]

Bonsoir le forum.

J'expose mon problème que je n'arrive pas à résoudre.

Voici la mcro que j'utilise pour faire l'enregistrement de mon fichier, qui est enregistré une fois sur le disque de la machine et une seconde fois vers le réseau.

ub Sauver2()
Application.DisplayAlerts = False
Dim NomFichier As String, Chemin1 As String, Chemin2 As String


Chemin1 = "C:\sauvegarde\Rapport\Rapport_"
Chemin2 = "S:\sauvegarde\Rapport\Rapport_"
NomFichier = Format(Now() - 1, "yymmdd")
ActiveWorkbook.Sheets(1).Select
Range("D6").Select
ActiveWorkbook.SaveAs (Chemin1 & NomFichier)
ActiveWorkbook.Sheets(1).Select
Range("D6").Select
ActiveWorkbook.SaveAs (Chemin2 & NomFichier)
End Sub

Le fichier est sauvegardé avec la date du jour sous le nom Rapport_050125 pour ce jour par exemple.

Voilà le changement que j'aimerai y accordé car comme c'est un fichier qui travaille en 3 postes cela me pose des problèmes.

Admettons qu'en a1 se trouve la date avec la cellule en format date.

Comment puis je faire si cela est possible qu'à l'enregistrement il va lire la date en A1 et qu'il sauve le fichier sur la date renseigné (A1)

Merci d'avance.

 

[galopin01]

bonsoir,
Tu peux essayer çà.

NomFichier = Format(Sheets(1).Range("A1").Value, "yymmdd")

Personnellement je trouve un peu risqué.
Je couplerai ça avec un un WorkBook_open qui clear A1 à l'ouverture et un gestionnaire d'erreur sur ta sub sauver2 qui empèche la sauvegarde tant que A1 n'est pas actualisé.

A+

 

[fox]

Bonsoir

Merci pour ta réponse, je viens d'essayer mais cela n'a pas l'air de fonctionner car le fichier a comme nom de sauvegarde Rapport_ sans aucune date.

Peux tu me montrer un exemple en couplant avec WorkBook_open ?

Merci

Fox

 

[galopin01]

bonjour,
il y a juste à modifier les chemins...
A+

 

[galopin01]

Oups ! La pièce jointe en question...

 

[fox]

Bonsoir,

Merci Galopin01, mais j'ai une erreur de compilation quand j'ouvre ton fichier ??

 

[galopin01]

Sorry !
2ème essai
A+

 

[fox]

Merci ça fonctionne