XL 2016 Application.GetSaveAsFilename

[gg13]

Bonjour
Je voudrais enregistrer un fichier avec un nom récupéré sur une feuille excel ( avec un bouton sur USF)

Version = Sheets("1").Range("A1").Value ( contient le nom de la version du prog= test)

j'ai voulu modifier l'écriture de base
File = Application.GetSaveAsFilename(fileFilter:="Fichier Excel (*.xlsm),*.xlsm")

par celle contenant le nom de ma version
File ="Version.xlsm" ou (Version.xlsm)
puis
ActiveWorkbook.SaveAs File

L'enregistrement se fait avec le texte : Version.xlsm mais pas : test.xlsm
Après plusieurs essais je ne trouve pas le texte exact (certainement mauvais placement des " " ou ( )

Si vous connaissez la solution merci de votre aide

GG13

 

[vgendron]

Bonjour

GetSaveAsFileName permet de saisir le NOM sous lequel tu veux enregistrer
==> ca n'enregistre rien..

pour enregistrer, il faut donc effectivement utiliser Activeworkook.saveAs NomFile

Dans NomFile, si tu ne spécifies pas le chemin complet, Excel utilisera le path actif du classeur

maintenant pour le NomFile (avec l'extension)
soit tu le charges avec la méthode "GetSaveAsFileName"
soit (ce que tu souhaites apparemment) tu le charges avec le contenu d'une cellule (A1)
par contre. je ne vois pas le lien que tu as entre "File" et Version..

si ta cellule A1 contient juste un numéro de version "xx" et que tu souhaites enregistrer sous le nom "Test_xx"
il faut concatener le nom et la version
NomFile="Test_" &Version &".xlsm"

 

[gg13]

Vgendron
Merci pour cette réponse rapide en effet

il faut concatener le nom et la version
NomFile="Test_" &Version &".xlsm"

j'avais oublié la syntaxe pour écrire la concaténation.

Merci
GG13