IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Excel, copie d'un classeur et suppression de plusieurs onglet sans demande de confirmation (MAJ 13/04)


Sujet :

VBScript

  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Bac Pro SEN, télécom réseaux
    Inscrit en
    Avril 2011
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bac Pro SEN, télécom réseaux
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Avril 2011
    Messages : 1
    Par défaut 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 : 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

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    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

Discussions similaires

  1. Réponses: 6
    Dernier message: 27/03/2012, 15h58
  2. VB Excel copié/collé sous conditions entre 2 classeurs
    Par Popogrigri dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 20/01/2010, 10h27
  3. Réponses: 1
    Dernier message: 29/05/2008, 17h10
  4. [VBA][EXCEL] Copie de graphes entre 2 classeurs
    Par billynirvana dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 09/03/2007, 16h03
  5. [Excel] Commentavoir si un classeur est déjà ouvert ?
    Par Henkyl dans le forum API, COM et SDKs
    Réponses: 6
    Dernier message: 14/05/2004, 11h27

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo