Hello
Oui tout a fait possible.
Si tu connais un peu le VBS, ca devrait pas poser de souci.
Dans Excel, tu fais Alt+F11 pour atterir sous visual basic editor. Ou "Outils"-"Macro"-"Visual Basic Editor"
Tu crées un nouveau module pour ton fichier dans l'explorateur de projet, sur la gauche. Ou "Insertion"-"Nouveau Module"
Pour supprimer tous les fichiers d'un dossier il y a plusieurs possibilités. Je te mets toutes celles que je connais ici
Code :
- Sub toto()
- 'Declaration variable
- Dim RepertoireSource As String
- Dim Fichier
-
- 'Definition du dossier
- RepertoireSource = "C:\Test"
-
- '*******************
- 'quatre solutions :
-
- 'Solution 1 - On supprime tout ce qu'il y a dans le dossier.
- 'Kill RepertoireSource & "\*.*" 'la tu n'as rien a declarer si ce n'est ta variable et ton chemin
-
-
- 'Objet pour "jouer" avec les dossier et les fichiers
- Set FSO = CreateObject("Scripting.FileSystemObject" )
- Set Dossier = objFSO.GetFolder(RepertoireSource)
-
- 'Solution 2 - On supprime tout ce qu'il y a dans le dossier.
- 'FSO.deletefile RepertoireSource & "\*.*", True
-
- 'on degage les fichiers un par un, ca permet de mettre un test sur le fichier _
- a degager par exemple
- For Each Fichier In Dossier.Files
-
- 'Solution 3 - On degage les fichiers un par un comme ca
- 'FSO.deletefile Fichier.Path, True
-
- 'Solution 4 - ou comme ca
- 'Kill Fichier.Path
- Next
- End Sub
|
Pour ce qui est du planning, par contre il va falloir etre plus precis ![;) ;)](https://forum-images.hardware.fr/icones/wink.gif)
---------------
Soyez malin, louez entre voisins !