Chemin d'enregistrement d'un fichier Excel

Bonjour à tous,

j'ai un fichier Excel dans lequel j'entre des résultats d'analyses.

J'ai créé un bouton sur lequel j'applique cette macro qui fonctionne très bien :

Sub sauve()
Dim chemin As String
chemin = "I:\resultats\essais\Eaux\Eaux\AOX\Résultats\"
ActiveWorkbook.SaveAs Filename:=chemin & Worksheets("Explorer").[BC8].Value & ".xlsm"
End Sub

Cependant, je souhaite enregistrer les fichiers dans un chemin qui évolue.

Par exemple, en ce moment, le répertoire se situe dans "I:\resultats\essais\Eaux\Eaux\AOX\Résultats\" puis sous répertoire "2024" puis sous-répertoire "2024-07".

Pour cela, sur mon excel j'ai créé un petit tableau avec :

Année en cellule BC9 : =TEXTE(R5;"aaaaa")

Sous répertoire en cellule BC10 : =TEXTE(R5;"aaaaa")&"-"&TEXTE(R5;"mm")

Mon problème est que je ne sais pas comment modifier la macro pour lui dire d'enregistrer le fichier excel dans le répertoire "I:\resultats\essais\Eaux\Eaux\AOX\Résultats\" + BC9+BC10

Merci par avance pour votre aide

Bonjour Spark

De ce que je vois, vous commettez une erreur

Sous répertoire en cellule BC10 : =TEXTE(R5;"aaaaa")&"-"&TEXTE(R5;"mm")

Donc il suffit de prendre la cellule BC10, pas besoin de la BC9

chemin = "I:\resultats\essais\Eaux\Eaux\AOX\Résultats\" & Sheets("LaFeuille").Range("BC10") &"\"

A+

Merci beaucoup pour votre retour.

Cela fonctionne très bien. Je pensais qu'il fallait indiquer le répertoire "2024" au préalable....