VBA - Chemin de dossier partiel

Et la valeur de la cellule T8 de la feuille 1 c'est bien écrit : "Naudet" sans espaces sans autre majuscules ?

Comprend pas pourquoi çà fonctionne de mon coté avec un chemin vers le bureau.

Oui, c'est écrit "Naudet".

Je te transmet le fichier, c'est le module test et macro "enregistrerfeuil()"

J'ai trouvé une solution à mon problème, c'est vraiment de la bidouille

    num_devis = Sheets("DE").Range("L21").Value
    der = Sheets("DE").Range("L15").Value
    NomEntreprise = Sheets("Feuil1").Range("T18").Value
    Mandat = Sheets("Feuil1").Range("D14").Value
    MonDossier = "G:\Drive partagés\Impact Icam GPS\" & Mandat & "\7. Projets en cours\1. Suivi d'étude\"
    DossierFi = "G:\Drive partagés\Impact Icam GPS\" & Mandat & "\7. Projets en cours\1. Suivi d'étude\" & "*" & NomEntreprise

        'Vérifie si les dossiers existent
        DOSSIERFINAL = Dir(DossierFi, vbDirectory)
        DOs = MonDossier & DOSSIERFINAL & "\Dev Co\2. Devis d'Etude\"
        If Len(Dir(DOs, vbDirectory)) > 0 Then

            'Enregistre le fichier excel
            With ThisWorkbook.Sheets("Feuil2")
                Set zoneEnregistree = .Range("A1:G59")
                NomEntreprise = Sheets("Feuil1").Range("T18").Value
                nomFichier = "00" & num_devis & " DE.xlsx"
            End With

            Set newWbk = Application.Workbooks.Add
            zoneEnregistree.Copy
            newWbk.Sheets(1).Range("A1").Select
            Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
            ActiveSheet.Paste
            ActiveWindow.DisplayGridlines = False
            ActiveWindow.View = xlPageBreakPreview
            ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
            ActiveSheet.PageSetup.PrintArea = "$A$1:$G$59"
            newWbk.SaveAs DOs & nomFichier
            newWbk.Close True

            MsgBox ("Le devis " & nomFichier & " à bien été créé !")

        Else

            MsgBox ("Attention tu n'as pas créé les dossiers... :/")

        End If