[Excel 2003] + macros +deleteFolder ?

+ macros +deleteFolder ? [Excel 2003] - Logiciels - Windows & Software

Marsh Posté le 11-06-2010 à 09:39:07    

bonjour,
 
je me lance dans l'inconnu avec Excel que je ne connais pas trop  
et la création des macros que je ne connais pas du tout !
 
mon but : integrer dans un fichier excel qui gere un planning  
une macro automatique qui efface des fichiers (voir purge carrement un dossier) pour etre sur qu'ils ne me gènent pas.
 
je connais un peu le vbs et sais me servir de la fonction DeleteFolder,
 
mais ne vois pas du tout comment je pourrais integrer ce genre de code dans un xls (est ce que c'est possible déjà ?)
 
merci d'avance si vous pouvez me donner un coup de main


Message édité par Profil supprimé le 11-06-2010 à 09:39:44
Reply

Marsh Posté le 11-06-2010 à 09:39:07   

Reply

Marsh Posté le 11-06-2010 à 14:59:55    

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 :
  1. Sub toto()
  2.     'Declaration variable
  3.     Dim RepertoireSource As String
  4.     Dim Fichier
  5.    
  6.     'Definition du dossier
  7.     RepertoireSource = "C:\Test"
  8.    
  9.     '*******************
  10.     'quatre solutions :
  11.    
  12.     'Solution 1 - On supprime tout ce qu'il y a dans le dossier.
  13.     'Kill RepertoireSource & "\*.*" 'la tu n'as rien a declarer si ce n'est ta variable et ton chemin
  14.    
  15.    
  16.     'Objet pour "jouer" avec les dossier et les fichiers
  17.     Set FSO = CreateObject("Scripting.FileSystemObject" )
  18.     Set Dossier = objFSO.GetFolder(RepertoireSource)
  19.    
  20.     'Solution 2 - On supprime tout ce qu'il y a dans le dossier.
  21.     'FSO.deletefile RepertoireSource & "\*.*", True
  22.    
  23.     'on degage les fichiers un par un, ca permet de mettre un test sur le fichier _
  24.     a degager par exemple
  25.     For Each Fichier In Dossier.Files
  26.        
  27.         'Solution 3 - On degage les fichiers un par un comme ca
  28.         'FSO.deletefile Fichier.Path, True
  29.        
  30.         'Solution 4 - ou comme ca
  31.         'Kill Fichier.Path
  33.     Next
  35. End Sub


 
 
 
 
Pour ce qui est du planning, par contre il va falloir etre plus precis ;)

Message cité 1 fois
Message édité par SuppotDeSaTante le 11-06-2010 à 15:05:39

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 11-06-2010 à 21:00:22    

SuppotDeSaTante a écrit :

Hello
 
 
Pour ce qui est du planning, par contre il va falloir etre plus precis ;)


 
merci bcp pour cette réponse détaillée
je vais jouer un peu avec excel maintenant  :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed