Enregistrer avec spécification emplacement fichier

[Avelo]

Bonjour,
Je souhaite faire un enregistrement en renommant le fichier en utilisant le contenu d'une cellule et en spécifiant l'emplacement du fichier.
Ma macro fonctionne mais nécessite la fermeture manuelle de la fenêtre d'enregistrement.

ActiveWorkbook.SaveAs Filename:=[saisie!A8].Value & ".xls"
Dim f As String
f = Application.GetSaveAsFilename("C:\Users\Serge\Desktop\STOCKAGE
RAPIDE\")

J'ai "aggloméré" deux commandes et supprimer le fin de la deuxième commande qui bogait...

Un petit coup de pouce serait le bienvenu, je vous remercie.

CDT

Avelo

 

[Fred0o]

Re : Enregistrer avec spécification emplacement fichier

Bonsoir Avelo,

Sans le contexte complet, pas sûr d'être très juste mais tu peux tenter cette commande :

ActiveWorkbook.SaveAs Filename:="C:\Users\Serge\Desktop\STOCKAGE RAPIDE\" & [saisie!A8].Value & ".xls"

A+

 

[Avelo]

Re : Enregistrer avec spécification emplacement fichier

Merci beaucoup ça fonctionne parfaitement. En pur autodidacte, mes limites sont vite atteintes...

CDT