Enregister sous avec condition en vba

Re : Enregister sous avec condition en vba

Bonjour

je passe juste un petit peu sur le forum. Si cela peut t'aider, une piste à creuser, propose le nom (préfixe + année + mois) mais laisse le choix à l'utilisateur et quitte le fichier sans sauver si l'utilisateur choisit d'annuler:

'*******************************************************
'enregistrement dans sous-répertoire DONNEES
'choix avec proposition de nom selon feuille paramètres
'*******************************************************
' récupère un préfixe dans une cellule
préfixe = Sheets("Paramètres").Range("E20").Value

ChDir (ThisWorkbook.Path & "\DONNEES")
fermer = Application.GetSaveAsFilename _
(préfixe & Year(Date) & "_" & Format(Month(Date), "00") _
, "Fichiers Excel,*.xls")
If fermer = False Then
ActiveWindow.Close savechanges:=False
Exit Sub
End If
'*************************************************

Re : Enregister sous avec condition en vba

Salut Eric

Merci pour ta réponse, j'irai bien creuser mais je n'ai plus de pelle, ...
arf oui c vrai que ce trait d'humour n'est pas mon meilleur, mais si cela peut faire passer le fait que je n'ai rien compris alors tant mieux..lol
J'avoue ne pas voir le temps de m y pencher car je dois aller bosser, mais au retour je m y met à plus merci