Discussion :

[Emi21]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci par avance pour votre aide.

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Emi21]

La formule ci-dessous est parfaite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.