Enregistrer mon classeur sur un répertoire avec pour nom l'extraction d'une partie de la valeur d'une cellule

[Phil241]

Bonsoir à tous,
Je débute sous VBA (il y a un début à tout …).
Pourrait-on m’aider à trouver la bonne formule pour extraire une partie de la valeur d’une cellule afin qu’elle devienne une partie du nom de mon classeur que je souhaite enregistrer sous Mes Docs.
Je butte depuis plusieurs jours là-dessus

Voici ma formule d’enregistrement :
NomFichier = Year(Date_test) & « - » & Format(Month(Date_test), « MM ») & « - » & Format(Day(Date_test), « DD ») & « - » & Format(Date_test, « hh\Hmm ‹ ss › ») & _
« DA » & NumeroDeDa & « .xlsm »

Date_test étant ceci : Date_test = Now()

Je cherche à mettre une valeur à NumeroDeDa , la valeur venant de la cellule G4 de la feuille DA , je veux extraire les 4 premiers caractères.

J’ai essayé ceci :
NumeroDeDa = Sheets(« DA »).Range("(Format(Mid(G4, 1, 4), « 0000 »))").Value
Mais ça ne marche pas

Et ceci :
NumeroDeDa = Sheets(« DA »).Range(« C2 »).
mais là j’ai toute la valeur de G4.

Merci de l’aide que vous pourrez m’apporter , et soyez indulgents ,je répète , je débute …

Encore merci

Philippe

[Mimimathy]

Bonjour,
Teste comme ceci

Date_test = Format(Now(), "YYYY-MM-DD-hh\Hmm < ss >")
NumeroDeDa = Format(Mid(Sheets("DA").Range("G4").Value, 1, 4), "0000")
NomFichier = Date_test & "DA" & NumeroDeDa & ".xlsm"

[Phil241]

Bonjour @Mimimathy ;

Et ça marche !
Merci infiniment pour ton aide.
Je découvre la puissance de VBA.
Merci encore
Passe une bonne journée

Philippe