Aide sur une fonction Macro

[Fox]

Bonjour le forum,

J'ai créé une Macro qui me permet via un bouton Macro d'enregistrer mon fichier vers un chemin spécifié ainsi que la date du jour.

Sub Sauver()

Dim NomFichier As String, Chemin1 As String


Chemin1 = 'S:\\repert\\fichier_'
NomFichier = Format(Now(), 'yymmdd')
ActiveWorkbook.Sheets(1).Select
Range('D6').Select
ActiveWorkbook.SaveAs (Chemin1 & NomFichier)
MsgBox 'Votre fichier a été enregistré correctement sur le réseau '

End Sub

Ce fichier sert à rentrer des données et comme la macro est réalisée le fichier s'enregistre à la date du jour.

Voilà ce que je voudrai changer et que je n'arrive pas à réaliser.

Quand je clic sur le bouton macro enregistrer , une fenêtre s'ouvre me demande une date. Ensuite la macro fait la même chose que l'exemple que j'ai mis en haut mais à la place de la date du jour, ce sera la date qui a été introduite.

Est-ce possible?

Merci à ceux qui voudront m'aider.

très bon week-end ensoleillé à tous

 

[2passage]

Bonjour,

A priori, en remplaçant :

NomFichier = Format(Now(), 'yymmdd')

par

nomfichier = inputbox 'date d'enregistrement'

Ca devrait fonctionner. Si tu souhaites controler que la saisie est effectivement une date, c'est un poi lplus compliqué mais faisable :

ce bout de code le fera tres bien :

Dim nomfichier As String
Do While IsDate(nomfichier) = False
 nomfichier = InputBox('date? ')
Loop
nomfichier = Day(nomfichier) & Month(nomfichier) & Year(nomfichier)
MsgBox nomfichier

A+

 

[Robert]

Bonjour le fil, bonjour le forum,

Damned ! 2passage a fait ça de façon bien plus efficace que moi. Je t'envoie quand même. J'utilise un UserForm (lourd...lourd) [file name=sauv_date.zip size=12634]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/sauv_date.zip[/file]

 

[Fox]

Bonoir le forum

Déjà, merci pour vos réponses, mais il y a qlq problèmes.
avec la proposition 1 de 2passage, quand je remplace la ligne par


nomfichier = inputbox 'date d'enregistrement'

j'ai une erreur de compilation
idem pour son 2 iem exemple.


J'aime assé la version de robert, mais comment faire par la suite pour que celà s'enregistre ensuite avec le nom donné et dans le répertoire spécifié.


Merci de votre aide.

 

[2passage]

Bonjour,

Effectivement désolé.. je sais pas comment j'ai laissé passer ça.. en fait il faut des ( ) :

nomfichier = InputBox('date d'enregistrement')

Par contre, le 2eme code passe bien... comprends pas...

A+