XL 2016 Comment Creer un dossier dans Windows

[aurelio.ewane]

Bonjour j'aimerais savoir sil est possible de créer un dossier dans le Dossier Windows et le cacher en VBA.
Prière de me répondre si vous avez des idées

 

[TooFatBoy]

Bonjour,

Pour créer un dossier sous VBA, il y a MkDir.

MkDir, instruction (VBA)

Rubrique de référence sur Office VBA

learn.microsoft.com

Exemple :

Sub test()
    Chemin = ThisWorkbook.Path & "\"
    MkDir (Chemin & "Toto")
    MkDir (Chemin & "Titi")
    SetAttr Chemin & "Titi", vbHidden
End Sub

 

[kiki29]

Salut, voir sur JBoisgontier Gestion des fichiers et répertoires

 

[aurelio.ewane]

Bonjour,

Pour créer un dossier sous VBA, il y a MkDir.

MkDir, instruction (VBA)

Rubrique de référence sur Office VBA

learn.microsoft.com

Exemple :

Sub test()
    Chemin = ThisWorkbook.Path & "\"
    MkDir (Chemin & "Toto")
    MkDir (Chemin & "Titi")
    SetAttr Chemin & "Titi", vbHidden
End Sub

Bonjour Moi je veux creer un dossier dans le Repertoire Windows du ssysteme d'exploitation

 

[TooFatBoy]

Bonjour Moi je veux creer un dossier dans le Repertoire Windows du ssysteme d'exploitation

Effectivement, ça change tout... et là, je ne sais pas faire.

 

[aurelio.ewane]

Effectivement, ça change tout... et là, je ne sais pas faire.

En fait je veux creer un Dossier dans un emplacement Systeme du Genre par exemple
Program files ou dans le dossier Windows

 

[cp4]

En fait je veux creer un Dossier dans un emplacement Systeme du Genre par exemple
Program files ou dans le dossier Windows

Bonjour,

@esaurelien : Demande farfelue à mon avis. Pourquoi vouloir aller tritouiller là où il ne faut pas (système).
Mais bon, en reprenant l'exemple de @TooFatBoy

Sub test() 'à tester sur to pc'
    Chemin = "C:\Program Files" & "\"
    MkDir (Chemin & "Toto")
    MkDir (Chemin & "Titi")
    SetAttr Chemin & "Titi", vbHidden
End Sub