Discussion :

[LupusCramus]

Bonjour,

Je souhaite faire un script en VB permettant de supprimer toutes les données d'une feuille Excel.
Par un macro, ça marche bien, mais la raison pour laquelle je veux un script VB, c'est que c'est destiné à être exécuté périodiquement, avec le fichier Excel fermé.

Donc en gros, faut ouvrir le fichier Excel (ça, ça va, j'ai un autre script VB sous la main, où le fichier Excel est ouvert), mais comment choisis-t-on la feuille (en VB, pas VBA), et supprime-t-on toutes les données de la feuille ?

Je précise que je n'y connais quasiment rien en VB (bon, j'ai quelques bases, mais sans plus).

Merci d'avance
Cordialement,

[SfJ5Rpw8]

Et comment l'ouvre tu ton classeur ?

si tu utilise l'automation, tu dois avoir un objet de type "Workbook" nommé wk par exemple et qui te donne ensuite accès à ces feuilles...

Code :

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

wk.Sheets("Mafeuille").cells.ClearContents

[LupusCramus]

Code :

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

1
2
3
4
5
6
7
8
9
if wscript.arguments.length > 0 then
 
	path_file = lcase( wscript.arguments(0) )
 
	'load excel
	set ex = Wscript.createobject("excel.application")
	'ouvre le doc excel
	ex.Workbooks.Open path_file
	ex.visible = false

Je l'ouvre comme ça.

[SfJ5Rpw8]

modifie la ligne :

Code :

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

1
2
 
set wk=ex.Workbooks.Open path_file

et rajoute ensuite :

Code :

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

wk.Sheets("Mafeuille").cells.ClearContents

n'oublie pas de sauver ton classeur une fouis modifié..

[LupusCramus]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
if wscript.arguments.length > 0 then
 
	path_file = lcase( wscript.arguments(0) )
 
	'load excel
	set ex = Wscript.createobject("excel.application")
	'ouvre le doc excel
	set wk=ex.Workbooks.Open path_file
	ex.visible = false
	'supprime les données
	wk.Sheets("Feuil2").cells.ClearContents
 
 
else
	msgbox "Déposer le fichier à convertir sur l'icone du programme"
 
       continue = false
 
end if

Sur la ligne

Code :

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

	set wk=ex.Workbooks.Open path_file

J'obtiens une erreur : fin instruction attendue.

[omen999]

bonjour,

Code :

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

set wk=ex.Workbooks.Open( path_file)