Discussion :

[nico5065]

Bonjour à tous,

Voila, j'utilise une petite macro pour pouvoir enregistrer un fichier facilement en reprenant pour son nom, certaines valeurs de cellule de mon fichier excel

Ex :

Code :

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

1
2
Dim NomFichier
 NomFichier = Range("b23") & "-" & Range("g16") & "-" & Range("g17") & "-" & Range("e23")

A ce nom de fichier, j'aimerais savoir si je peux y ajouter la date du jour ? mais pas au format jj/mm/aaaa mais plutot jj-mm-aaaa ?

Merci d'avance pour votre aide.

[jfontaine]

Bonjour,

Tu peux mettre ce que tu veux dans le nom d'une fichier tant que les caractères utilisés ne sont pas cette liste / \:*?"<>|

pour transformer l'affichage de la date

Code :

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

Format(Date, "dd-mm-yyyy")

[nico5065]

Ok merci,

Donc en théorie, si j'utilise ce que tu viens de me donner, cela donne dans mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Enregistrer()
 
' Enregistrer Macro avec comme nom plusieurs champs de cellule
 
Dim NomFichier
 NomFichier = Range("b23") & "-" & Range("g16") & "-" & Range("g17") & "-" & Range("e23") & "-" & Format(Date, "dd-mm-yyyy")
 
ActiveWorkbook.SaveAs "X:\DOCUMENTS COMMUNS\" & NomFichier & ".xlsm"
 
End Sub

Est-ce correct ?

[jfontaine]

oui, cela me semble correct.

[nico5065]

C'est nickel !!!

Merci !

[nico5065]

Au passage, est-il possible d'enregistrer le fichier au format PDF ?

Car en indiquant ".pdf" en lieu et place de ".xlsm", le fichier est bien enregistré en .pdf mais n'arrive pas à être ouvert par la suite (fichier érroné)

Merci,

[jfontaine]

Car en indiquant ".pdf" en lieu et place de ".xlsm", le fichier est bien enregistré en .pdf mais n'arrive pas à être ouvert par la suite (fichier érroné)

Modifier l'extension ne modifiera pas le type d'enregistrement du fichier.

Regardes ce tutoriel
http://excel.developpez.com/faq/inde...#ConversionPDF