bonsoir et merci à tous,
La solution donnée par MichelXld fonctionne et répond à ma recherche, ce qui donne dans mon cas :
Nomxls As String
Nomxls = Range('B6') & '.xls'
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & '\\' & Rep & '\\' & Nomxls
Le seul hic est qu'espérant une solution universelle, du genre répertoire par défaut=currentDir ou %CurrentDir% ou ..., là il s'agit d'une propriété de WorkBook, que je ne peux appliquer qu'avec cette fonction.
Or je veux aussi créer automatiquement ce sous-répertoire et y copier,de la même façon, un document Word (Rep étant le contenu d'une cellule, idem Nomxls et idem NomWord).
Je pense que ça va m'emmener trop loin, mais c'est super de trouver des gens compétents prêts à aider les néophytes.
@+