XL 2021 chemin dossiers

[Delorme]

Bonjour à tous

passionné d'excel, je cherche mon "chemin !!!!"

1)Je suis donc sur Excel 2021 windows et je voudrais pouvoir créer un dossier sur mon bureau en code vba

2)Je suis donc allé sur YouTube pour chercher comment faire et je vous joins un fichier dans lequel modules 1 & 2
il y a des codes sur l'organisation des fichiers, création ect.....
En recopiant scrupuleusement les codes, et bien rien ne fonctionne
Dans un premier temps pouvez vous m'aider à ma demande de création de dossier sur bureau code vba et dans un deuxieme temps me dire
si il y a une erreur dans les codes de mes modules 1&2

Merci d'avance
Ps: il n'y a rien sur mon fichier Excel tout est dans les macros

 

[Valtrase]

Salut,
Voici une petite fonction qui fait des merveilles de Philippe Tulliez

Comment créer des dossiers et sous-dossier en VBA

 

[Valtrase]

Re,
Là il y a une erreur :

Function DossierExiste(NomDossier As String) As Boolean 'vrai ou faux
' //  remplaces le signe - par le signe =
DossierExiste -Dir(NomDossier, vbSystem + vbDirectory + vbHidden) <> ""
End Function

 

[Delorme]

merci de votre reponse
je vais de suite voir

 

[Valtrase]

Un peu de lecture : Fonction Dir

 

[patricktoulon]

Bonjour
juste en passant

Option Explicit
Function DossierExiste(NomDossier As String) As Boolean    'vrai ou faux
    DossierExiste = Dir(NomDossier, vbDirectory) <> ""
End Function

Sub createFolder()
    Dim CheminDossier As String
    CheminDossier = Environ("userprofile") & "\Desktop\archives"
    If DossierExiste(CheminDossier) Then
        MsgBox " le dossier :" & CheminDossier & " existe déjà!!"
    Else
        If MsgBox(" êtes vous sur de vouloir créer ce dossier", vbYesNo + vbCritical, "creation de dossier") = vbYes Then
            MkDir CheminDossier
        End If
    End If
End Sub