VBA / Enregistrer avec date en début de nom de fichier

Bonjour à tous,

je me permets de poster cette demande car je n'ai pas trouvé de discussion similaire.
Je souhaiterai que ma macro enregistre un fichier mais la date doit se trouver en début de fichier et non après le nom.

Le code utilisé jusqu'à présent est le suivant mais ce dernier ne me permets pas de mettre la date en début :

Code:

---

ActiveWorkbook.SaveAs Filename:="\\ C:\Users\ENVOI\ENVOI_" & _Format(Date, "yyyy_mm_dd") & ".csv", FileFormat:= _xlCSV, Local:=True

---

Merci par avance pour votre aide.

Je pense que ta formule doit être écrite sur plusieurs lignes dans ton code, non ?
Parce qu'en la mettant sur une seule ligne, tu as laissé des "_" gênants.

Remplace la partie sur le nom de fichier par :

Code:

---

Format(Date, "yyyy_mm_dd") & "_ENVOI" & ".csv"

---

Et je te conseille de regarder les explications sur l'opérateur "&" ici : https://msdn.microsoft.com/fr-fr/lib.../gg264104.aspx

Bonjour,
L'argument nommé Filename de la méthode SaveAs attend une chaîne de caractère.
Pour construire une chaîne de caractères constituée de sous-chaînes on utilise l'opérateur de concaténation & (Esperluette)
Le nom est constitué du chemin complet, du nom du classeur et de son extension
Pour convertir une date en chaîne de caractère, on utilise la fonction Format

Donc si l'on souhaite sauver le classeur actif dans le répertoire du classeur où se trouve le code VBA suivi de la date inversée et enfin d'un nom convivial et avec le suffixe xlsx

Code:

---

1 2 3 4 5 6

Sub t() Dim Folder As String, FullName As String Folder = ThisWorkbook.path & "\" ' Chemin du classeur où se trouve le code VBA FullName = Folder & Format(Date, "yyyy-mm-dd") & "_Offre.xlsx" ' Chemin + Date + Nom convivial ActiveWorkbook.SaveAs Filename:=FullName ', FileFormat:= End Sub

---

La formule ci-dessous est parfaite :

Code:

---

1 2 3 4 5 6 7

Sub t() Dim Folder As String, FullName As String Folder = ThisWorkbook.path & "\" ' Chemin du classeur où se trouve le code VBA FullName = Folder & Format(Date, "yyyy-mm-dd") & "_Offre.xlsx" ' Chemin + Date + Nom convivial ActiveWorkbook.SaveAs Filename:=FullName ', FileFormat:= End Sub

---

Merci à tous pour votre aide.