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)

[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 !

[LupusCramus]

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 :

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
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 ?

[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,

[SfJ5Rpw8]

il y as bien des données à effacer sur ta feuille articles ?

[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.

[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 :

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

ex.DisplayAlerts = 0

[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,

[ProgElecT]

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 ?

[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,