Pb avec Save as

[ludo]

bonjour je voudrais insérer un bouton sur un classeur excel qui lancerait une macro, laquelle permettrait de d'ouvrir la boite de dialogue save as, ou le nom du fichier et l'emplacement serait proposé a partir de cellule excel ...
merci

 

[ERIC S]

Bonjour

un bout de macro à adapter:

'choix avec nom par défaut, sousrépertoire à créer si besoin
ChDir (ThisWorkbook.Path & '\\sousrépertoire')
Windows(nomfichier).Activate
fermer = Application.GetSaveAsFilename _
(range('A1'.value), 'Fichiers Excel,*.xls')
If fermer = False Then
Exit Sub
End If

ActiveWorkbook.SaveAs Filename:=fermer


A+ et n'hésite pas si besoin de renseignements