Bonjour et Bonne Année 2019 au forum
Je débute en VBA donc une grosse cacahuète à ce jour, je vous explique.
Pour le travail et afin de faciliter sa gestion, j'ai besoin d'une macro qui pourrait générer une copie d'un unique fichier du lundi au vendredi et qu'il soit renommé en Tintin.yyyy-mm-dd.xlsx pour chaque jours de la semaine.
Malgré mes tentatives et recherches sur le forum, je ne parviens pas à effectuer une boucle je vois pas trop comment y parvenir ..
Voici mon humble début :
Sub G1()
'copier un fichier (une copie avec le nom différent, dans le même dossier)
Dim FichierOriginal As String
Dim FichierCopie As String
Application.DisplayAlerts = False
Mondossier = "C:\vb\"
FichierOriginal = Mondossier & "Flux.xlsx"
FichierCopie = Mondossier & "Flux1.xlsx"
FileCopy FichierOriginal, FichierCopie
'renommer un fichier
Dim AncienNom As String
Dim NouveauNom As String
Mondossier = "C:\vb\"
AncienNom = Mondossier & "Flux1.xlsx"
NouveauNom = Mondossier & "Flux." & Format(WorksheetFunction.WorkDay(Now, 1), "yyyy-mm-dd") & ".xlsx"
Name AncienNom As NouveauNom
End Sub
si une âme charitable veut bien m'aider