Supprimer les données d'une feuille en VBS

Bonjour Jérome,


voici un exemple de vbscript qui efface le contenu des feuilles d'un classeur

Pour faire un test , copie ce qui suit dans "NotePad" et enregistre le fichier en prenant soin de spécifier l'extension
.vbs en lieu et place de .txt. Dans un vbscript, tu ne peux utiliser les constantes "texte" d'excel. Il faut avoir
recours à leur valeur numérique.

Si tu n'as pas une version d'internet explorer récente d'installer sur ta machine, tu devras ajouter la bibliothèque
suivante à partir de la barre de menu de la fenêtre VBE(visual basic editor) / outils / référence / et coche :
"Microsoft scripting runtime"

Attention, tu dois déterminer le chemin et le fichier qui sera exécuté dans la procédure...

'--------------------------------------
Dim Xl
Dim Wk
Dim Fichier

'Chemin et fichier à traiter
Fichier = "C:excelClasseur1.xls" ' à déterminer

'Création d'une instance d'excel
Set Xl = WScript.CreateObject("Excel.application")

'rend visible l'application, si tu le désires
Xl.visible = -1

'ouverture du fichier
Set Wk = Xl.Workbooks.Open(Fichier)

'Efface le contenu de toutes les feuilles
For Each f In Wk.Worksheets
f.Cells.ClearContents
Next

'Pour fermer le classeur en sauvegardant
Wk.Close -1

'Pour fermer l'application excel
Xl.Quit

'Pour vider la mémoire des objets créés

Set Wk = Nothing: Set Xl = Nothing

'--------------------------------------


Salutations!



"jerome" <anonymous@discussions.microsoft.com> a écrit dans le message de news:0abe01c3a541$45231450$a601280a@phx.gbl...
Bonjour

Je suis en train de créer un programme en VBS et je
voudrais supprimmer les données de plusieurs feuilles de
cacul. Ou une autre solution me permettant d'ecraser mes
anciennes données.
Merci d'avance