Nommer et créer fichier dans repertoire précis

[Berg1664]

Bonjour à tous j'ai besoin d'un sérieux coup de pouce

Avec le code ci dessous je suis parvenu à créer automatiquement un fichier dont le nom se trouve dans la cellule A1 de l'onglet "Base"
Par contre je ne parviens pas à indiquer à Excel le répertoire où je souhaiterais que ce fichier se crée (C:\users\...), il le crée par défaut l à l'endroit du dernier enregistrement

Mes multiples tentatives ne m'ont pas permis de trouver la bonne syntaxe

Je compte sur vous merci beaucoup par avance

Sub Classeur_ajouter()

n = Sheets("Base").Range("A1").Value
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=n & ".xls"

End Sub

 

[Paf]

Re : Nommer et créer fichier dans repertoire précis

Bonjour

en rajoutant le répertoire dans l'instruction ...SaveAs...:

Rep="C:\users\...\"
ActiveWorkbook.SaveAs Filename:= Rep & n & ".xls"

ou directement ActiveWorkbook.SaveAs Filename:= "C:\users\...\" & n & ".xls"

A+

 

[Berg1664]

Re : Nommer et créer fichier dans repertoire précis

Merci Paf Grandiose for me !