Discussion :

[jean30]

Bonjour,
Me revoici avec une dernière question.
J'arrive à créer un dossier sur le bureau par Vba grâce a ce forum.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ess()
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 & "\" & "Fiches à renvoyer"
End Sub

Maintenant, comment dire par Vba de compresser ce dossier ?
En vous remerciant.

[patricktoulon]

Bonjour jean30
https://excel.developpez.com/sources...#ZipperDossier

cela dit
pour créer un dossier sur le bureau pour WINDOWS pas la peine de sortir l'artillerie shell ou scripting

Code :

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

MkDir environ("UserProfile") &"\DeskTop\Fiches à renvoyer"

un test dir pourquoi pas au cas ou il serait existant toujours avec les outils natifs