Discussion :

[Volix]

Bonjour,

Je suis débutant en VBS,
tout d'abord voici mon script :

Code :

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

1
2
3
4
5
6
7
8
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("C:\Users\Internet\Desktop\scriptvbs\testvbs2\test1.xls")
wbExcel.Worksheets("two").Delete
wbExcel.Close
appExcel.Quit
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing

le script fonctionne, il me demande confirmation pour supprimer la feuille puis me demander de sauver avant de quitter


Mon problème viens de la confirmation pour la suppression de la feuille, je n'arrive pas à intégrer :

Code :

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

1
2
Application.DisplayAlerts = False
Application.DisplayAlerts = True

Car, je souhaiterais que le script soit "silencieux" (si je puis dire ^^), supprimer la (les) feuille(s), sauvegarder et terminer le processus sans confirmation


J'ai ensuite fusionner le script avec celui-ci :

Code :

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

1
2
3
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "C:\Users\Internet\Desktop\scriptvbs\testvbs\test1.xls", "C:\Users\Internet\Desktop\scriptvbs\testvbs2\"

Tout à fonctionner (Pour une fois )


Mon problème persistant est toujours au niveau des messages de confirmations (Alertes) que je n'arrive pas à désactiver

J'ai un nouveau problème, j'arrive à supprimer une feuille mais pour plusieurs ca pose problème... j'ai essayer avec :

Code :

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

1
2
3
4
5
6
wbExcel.Worksheets("two", "three").Delete
 
wbExcel.Worksheets("two","three").Delete
 
wbExcel.Worksheets("two").Delete
wbExcel.Worksheets("three").Delete

Mais rien



Info supplémentaires :J'utilise Excel 2000 et je suis sous XP

Je tiens à préciser que fait des recherches avant de poster...
Mais là, je bloque :/ je viens donc vous demandez de l'aide
Je suis en Stage je doit faire se script tout seul, mon tuteur n'a pas le temps de m'expliquer tout cela et je n'est jamais toucher au VBS de ma vie.
Voila pour la petite précision

Je vous remercie d'avance
Cordialement,
Volix

[SfJ5Rpw8]

tiens essai pour la suppression :

Code :

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

1
2
3
4
5
6
7
8
9
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("C:\Users\Internet\Desktop\scriptvbs\testvbs2\test1.xls")
'--- On pourrai rajouter un "On Error resume Next" ici pour le cas ou une des feuilles n'existe pas ..
wbExcel.Worksheets("two").Delete
wbExcel.Worksheets("three").Delete
wbExcel.Close true 'Ferme en sauvant 
AppExcel.quit
Set wbExcel = Nothing
Set appExcel = Nothing