Enregister sous avec condition en vba

[christian.bedere]

Bonjour

Je souhaiterai créer une macro pour enregister un classeur avec une condition.
Comment puis je traduire en vba :

"si la cellule "i2"="02. févr"; alors, enregistre dans le dossier "mes documents/réservation 2007/02. février/ .... avec le nom écrit dans la colonne "i1")
Ainsi pour tous les mois de l'année ???

Merci pour votre aide

 

[ERIC S]

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
'*************************************************

 

[christian.bedere]

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