Discussion :

[deubelte]

bonjour

est-il possible en VBA de créer un nouveau dossier, par exemple sur le bureau (desktop)?
A la main, c'est simple, on fait un clique droit sur le bureau, et on clique sur "nouveau dossier".
Maintenant, je veux faire ca automatiquement sur vba.
je vous remercie

[SilkyRoad]

Bonjour

Tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'Testé avec Excel2002 & WinXp
Const Cible = &H10 'Bureau
Dim objShell As Object
Dim objFolder As Object, objFolderItem As Object
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(Cible)
Set objFolderItem = objFolder.Self
 
MkDir objFolderItem.Path & "\" & "DossierPerso"

Comment créer un dossier ?

Comment retrouver facilement le chemin des répertoires spéciaux Windows ?

bon week end
michel

[deubelte]

merci est comment tu fais quand t'as un dossier qui est pas le bureau mais qui est sur le bureau
par exemple:
C:\\....\Bureau\Fichier

merci

[SilkyRoad]

bonsoir

?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MkDir "C:\\....\Bureau\Fichier"