F
Fox
Guest
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
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