Excel, copie d'un classeur et suppression de plusieurs onglet sans demande de confirmation (MAJ 13/04)
Bonjour,
Je suis débutant en VBS,
tout d'abord voici mon script :
Code:
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:
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 :aie:
J'ai ensuite fusionner le script avec celui-ci :
Code:
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 :mrgreen: (Pour une fois :roll:)
Mon problème persistant est toujours au niveau des messages de confirmations (Alertes) que je n'arrive pas à désactiver :koi:
J'ai un nouveau problème, j'arrive à supprimer une feuille mais pour plusieurs ca pose problème... j'ai essayer avec :
Code:
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 :cry:
Info supplémentaires :J'utilise Excel 2000 et je suis sous XP :ccool:
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
