Utilisation variable pour un dossier

Bonjour,

je crée un nouveau dossier et ensuite je définie une variable avec ce nom de dossier : DOSSIER_ZZZ

Mais je ne parviens pas ensuite à me servir de cette variable.

J'ai cherché sur le forum, sans succès.

Que dois-je modifier ?

      If Dir("C:\ATELIER RESULTAT\ZZZ\" & "RESULTATS" & " " & Format(Date, "yyyy mm dd"), 16) = "" Then MkDir ("C:\ATELIER RESULTAT\ZZZ\" & "RESULTATS" & " " & Format(Date, "yyyy mm dd"))
            Dim DOSSIER_ZZZ As String
        DOSSIER_ZZZ = Dir("C:\ATELIER RESULTAT\ZZZ\" & "RESULTATS" & " " & Format(Date, "yyyy mm dd"))

     ActiveWorkbook.SaveAs Filename:= _
        DOSSIER_ZZZ & "\" & "SCORE_TOP10" & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False

Merci d'avance de votre aide.

Bonjour,

  If Len(Dir("C:\ATELIER RESULTAT\ZZZ\" & "RESULTATS" & " " & Format(Date, "yyyy mm dd")))<1 = "" Then MkDir ("C:\ATELIER RESULTAT\ZZZ\" & "RESULTATS" & " " & Format(Date, "yyyy mm dd"))
            Dim DOSSIER_ZZZ As String
        DOSSIER_ZZZ = Dir("C:\ATELIER RESULTAT\ZZZ\" & "RESULTATS" & " " & Format(Date, "yyyy mm dd"))

     ActiveWorkbook.SaveAs Filename:= _
        DOSSIER_ZZZ & "\" & "SCORE_TOP10" & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False

bonjour,

merci pour votre réponse. ça ne marche pas.

Mon problème de syntaxe se situe sur cette partie : je ne sais pas me servir correctement de la variable DOSSIER_ZZZ

            Dim DOSSIER_ZZZ As String
        DOSSIER_ZZZ = Dir("C:\ATELIER RESULTAT\ZZZ\" & "RESULTATS" & " " & Format(Date, "yyyy mm dd"))

     ActiveWorkbook.SaveAs Filename:= _
        DOSSIER_ZZZ & "\" & "SCORE_TOP10" & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False

Oops j'avais pas vu.

'un string n'est pas = à un Dir  le "Dir" c'est uniquement pour interroger si le répertoire existe.
'un fois créé plus besoin du Dir pour indiquer le chemin.  

Dim DOSSIER_ZZZ As String
DOSSIER_ZZZ ="C:\ATELIER RESULTAT\ZZZ\" & "RESULTATS " & Format(Date, "yyyy mm dd")

ça marche nickel, merci XmenPL !