Bonsoir Steeve, bonsoir à toutes et à tous
Je ne sais pas ce que tu veux dire par répertoire courant... Alors dans le doute, je te propose 2 instructions (variable Chemin à déclarer en String) :
1) Sélectionner le répertoire du classeur :
Chemin = ThisWorkbook.Path & '\\\\\\\\'
2) Sélectionner le répertoire courant :
Chemin = CurDir & '\\\\\\\\'
Puis, pour sauvegarder ton fichier en premier, puis sous un autre nom :
Application.DisplayAlerts =
False
ThisWorkbook.Save
ThisWorkbook.SaveAs FileName = Chemin & Range('B5').Value
Application.DisplayAlerts =
True
En espérant que cela réponde à ta demande.
A+