Nom fichier automatique à partir de plusieurs cellules

Bonjour,

Je débute sur les macro, je souhaite enregistrer un fichier et définir son nom automatiquement à partir de plusieurs cases de mon fichier.

J'ai réussi à enregistrer le nom à partir d'une seule case, hors je souhaiterai que le nom du fichier dépende de plusieurs cases et possède un tiret ( - ) entre les valeurs des deux cellules.

Format type :

- Case 1 : 2018-003

- Case 2 : Paris

- Nom du fichier à créer : 2018-003 - Paris

Ci-dessous le code que j'utilise :

With ActiveWorkbook 'Enregistrement du classeur portant le nom de la cellule H7

.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("H7"), FileFormat:=xlOpenXMLWorkbook
End With

Ici le fichier va s'enregistrer au même endroit que le fichier original, cependant si je veux lui changer de lieu de stockage, quelle serait le code le plus adapté ?

Merci d'avance pour vos retour.

Bonjour à tous,

With ActiveWorkbook 'Enregistrement du classeur portant le nom de la cellule H7
.SaveAs Filename:="Chemin\" & Range("Ta première cellule contenant 2018-003") & " - " & Range("TaDeuxièmeCellule contenant Paris"), FileFormat:=xlOpenXMLWorkbook
End With

Cdlt,

Edit : Par rapport à la deuxième partie de texte on peut mettre le chemin souhaité à la place de ThisWorkbook.Path

Merci Ergotamine pour ton aide,

Ta solution marche parfaitement.

Rechercher des sujets similaires à "nom fichier automatique partir"