Création de dossier sur le bureau

Bonjour à tous,

Je rencontre un problème avec Excel 2021 sur Windows 11 Pro.

J'utilise un fichier depuis plus de 3 ans avec un code qui n'a pas changé.
Or, depouis ce jour, Excel et VBA m'indiquent que le code rencontre une erreur : Erreur d'exécution 52.

Voici mon code qui ne posait pas de problème jusqu'à présent :

Dim NomDossier
NomDossier = Sheets("DEMANDE DEVIS").Range("L3")

If Dir("C:\Users\moi\Desktop\" & NomDossier & "\", 16) = "" Then MkDir ("C:\Users\moi\Desktop\" & NomDossier & "\")

Dim NFic$
NFic = "C:\Users\moi\Desktop\" & NomDossier & "\" & Sheets("DEMANDE DEVIS").Range("L3")

La partie qui pose problème est la ligne numéro 4 (le If) jusqu'à "Then" (c'est surligné en jaune dans l'éditeur VBA).

Je ne comprends pas le problème. Pouvez-vous m'aider à résoudre ce mystère ?

---

J'ai également un problème avec cette ligne :

        ActiveWorkbook.SaveAs Filename:=NFic, FileFormat:=52

Excel m'indique : Erreur d'exécution 1004.

bonjour,

erreur 52 , signifie qu'il ne trouve pas le fichier. Quel est le contenu de la variable nomDossier ?

@h2so4

Le contenu de "NomDossier" est du texte.
Je pense avoir résolu en ajoutant 'as Boolean'.

Cependant, le deuxième problème persiste pour l'enregistrement du classeur actif : ActiveWorkbook.SaveAs Filename:=NFic, FileFormat:=52

---
EDIT : 16h

Je crois avoir résolu mes deux problèmes.
Pour le premier, il faut que la première ligne soit : Dim NomDossier As String.
Pour le deuxième , résolu via la première solution.

---

EDIT : 16h20

J'ai crier victoire trop vite. 😭
Le problème est revenu.