Pb avec une macro p/ enregistrer dans autre dossier

Bonjour à tous

J'ai besoin de votre aide pour m'aider avec ce pb.

J'ai une macro et un fichier nommé : "Suivi des dépenses.xlsx" dans : C:\Users\user\Documents\GILLES.

Je voudrais que la macro enregistre le fichier dans un sous-dossier "\Suivi par mois"

Merci beaucoup pour vos réponses.

cordialement

Bonjour,

Peut-être ainsi (non testé) :

Sub MACRO1()

Dim Fichier As String
Fichier = "Suivi des dépenses.xlsx"

Workbooks.Open CHEMIN & Fichier

Dim nom As String
nom = "Suivi des dépenses" & "-" & Month(Date) & "-" & Year(Date) & ".xlsx"

ActiveWorkbook.SaveAs Filename:=DOSSIER & nom

End Sub

Bon dimanche

Merci de m'avoir guidée. J'ai pu trouver la solution à partir de ce que tu m'as proposé.

Bien cordialement et bon dimanche

Public Const CHEMIN As String = "C:\Users\user\Documents\GILLES\"
Public Const DOSSIER As String = "\Suivi par mois\"

Sub MACRO1()

Dim Fichier As String
Fichier = "Suivi des dépenses.xlsx"

Workbooks.Open CHEMIN & Fichier

Dim nom As String
nom = "Suivi des dépenses" & "-" & Month(Date) & "-" & Year(Date)

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & DOSSIER & nom

End Sub

Pour fermer le nouveau fichier de suivi budgétaire mensuel créé par la macro , j'ai ajouté cette instruction supplémentaire mais elle ne fonctionne pas :

Workbooks.Close nom

Alors j'ai remplacé cette instruction par celle-ci qui fonctionne :

ActiveWorkbook.Close True

Sais-tu pourquoi la 1ère ne fonctionne pas, elle me parait logique pourtant .

merci pour ton aide

Re-,

La valeur booléenne que tu mets à la suite de .Close signifie à Excel que tu veux enregistrer les modifications ou pas...

Ainsi ActiveWorkbook.Close True veut dire que tu fermes le fichier actif, en enregistrant ces modifications.

Bonne fin de journée