Supprimer données Excel

Version imprimable

27/10/2009, 09h24
LupusCramus

Supprimer données Excel

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,
27/10/2009, 10h00
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:

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

Code:

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.

27/10/2009, 10h18
SfJ5Rpw8
modifie la ligne :
Code:

1 2 set wk=ex.Workbooks.Open path_file
et rajoute ensuite :

Code:

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

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

Bonjour,

Code:

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:

set wk=ex.Workbooks.Open path_file

J'obtiens une erreur : fin instruction attendue.

27/10/2009, 17h07
omen999

bonjour,

Code:

set wk=ex.Workbooks.Open( path_file)
27/10/2009, 17h28
LupusCramus

Merci à toi, effectivement ça marche !
Hum... pour sauvegarder et fermer le fichier, c'est comme en VBA ?

(Je suis pas très au point sur les différences VBA/VB)

EDIT : Oui, c'était pareil.

Merci à vous deux, le script fonctionne !

Bonjour,

Je ne sais pas trop ce qui se passe, le script ne fonctionne pas.
J'ai une erreur me disant que pour la ligne 11 (celle qui supprimme les données), l'indice est trop grand.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 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("ARTICLE").cells.ClearContents wk.Save wk.Close else msgbox "Déposer le fichier à convertir sur l'icone du programme" continue = false end if
Merci d'avance pour votre aide !

EDIT : l'erreur vient du fait que j'avais donné un mauvais nom pour la feuille.
Le message d'erreur n'apparait plus. Mais le fichier n'est toujours pas modifié, donc toute aide est bienvenue.
À priori, cela vient de l'enregistrement, puisqu'avant d'y intégrer 'enregistrement, ça marchait bien.
Quelqu'un a une solution ?

29/10/2009, 08h32
LupusCramus

Je suis désolé du triple post, mais ainsi, les modifications sont plus visibles.

Je viens de mettre en commentaire la sauvegarde et la fermeture. Si je pense qu'il y a effectivement un problème à ce niveau, le script ne fonctionne pas (comprendre : il ne supprime pas les données) quand je les commente.

Je vous remercie par avance de votre aide.

Cordialement,
29/10/2009, 08h41
SfJ5Rpw8

il y as bien des données à effacer sur ta feuille articles ?
29/10/2009, 08h46
LupusCramus

Fausse alerte, c'était juste que j'avais le fichier ouvert à part et que j'ai du enregistrer.

Donc le problème vient bien de la sauvegarde/fermeture.
Si dans la sauvegarde il était également possible d'éviter les messages du type "voulez vous remplacer le fichier ?", ce serait super.
29/10/2009, 09h01
SfJ5Rpw8

avec un save tu ne devrai pas avoir ce genre de message !

sinon pour ne pas afficher les messages d'alerte :
avant ton save :

Code:

ex.DisplayAlerts = 0
29/10/2009, 09h36
LupusCramus

Bonjour,

Le script ne supprime aps des données "pour de vrai".
Je m'explique : j'exporte une table automatiquement par dts dans ce document Excel, et au lieu d'exporter les tables aud ébut du document, il les exporte après les données supprimées.

J'ai donc beaucoup de lignes vides, puis des lignes remplies.
Comment supprimer réellement les données ?

Merci d'avance
Codialement,
29/10/2009, 12h25
ProgElecT

Citation:

Envoyé par LupusCramus

Bonjour,

Le script ne supprime pas des données "pour de vrai".
Je m'explique : j'exporte une table automatiquement par dts dans ce document Excel, et au lieu d'exporter les tables au début du document,
............
Merci d'avance
Codialement,

dts :evilred: ?
:merci:
29/10/2009, 13h55
LupusCramus

DTS pour Data Transformation Service, avec SQL Server 2000.

Mais là n'est pas le sujet. J'ai finalement réussi à résoudre mon problème avec le script en remplaçant ClearContents par Delete.

Néanmoins, s'il s'avérait que ce n'était pas la bonne solution, je vous invite à m'en faire part.

Merci d'avance.

Cordialement,