Discussion :

[vwtroudy]

Salut à tous,
je voudrais enregistrer mon fichier excel en nomment le fichier avec le mois en cours...

Code :

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

1
2
3
Private Sub Image1_Click()
ActiveWorkbook.SaveCopyAs "C:\Donnees\SQM" & "mois en cours?" & ".xls"
End Sub

merci pour votre aide

[gruget]

bonjour regarde avec la fonction date ce que tu peux faire (renvoie la date syteme jj-mm-aaaa)
sinon je crois que ouskelnor a mis qq chose la dessus dans les contributions
je regarde et je te dis
rémi

[gruget]

comme je pensais
regarde la dedans tu devrais trouver ton bonheur pour la fonction qui te redonne le mois sous forme texte
rémi

[durdesfois]

Bonjour,

Comme je nomme aussi des fichiers d'une façon similaire, ca va t'aider:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'En numérique
Private Sub Image1_Click()
ActiveWorkbook.SaveCopyAs "C:\Donnees\SQM" & nom_num$& ".xls"
End Sub
 
'ou en texte
Private Sub Image1_Click()
ActiveWorkbook.SaveCopyAs "C:\Donnees\SQM" & nom_tex$& ".xls"
End Sub

Les functions associées:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function nom_num$()
nom_num$ = DatePart("m", Now)
End Function
 
Function nom_tex$()
Dim Lesmois
Lesmois = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
 
nom_tex$ = Lesmois(DatePart("m", Now))
End Function

J' ai adapté à ton besoin pour le principe, mais en fait j'utilise une fonction beaucoup plus générale, qui me permet de nommer avec le jours,le mois,l' année,..et d'autres champs spécifiques.

Tu peux généraliser à ton gout
A+

[ouskel'n'or]

et

Code :

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

LeMois = Format(Now,"mmmm")

ça va pas ?

Code :

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

1
2
3
4
5
Private Sub Image1_Click()
Dim LeMois
      LeMois = Format(Now,"mmmm")
      ActiveWorkbook.SaveCopyAs "C:\Donnees\SQM" & LeMois & ".xls"
End Sub

ou plus directement

Code :

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

ActiveWorkbook.SaveCopyAs "C:\Donnees\SQM" & Format(Now,"mmmm") & ".xls"

Pas testé