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

  1. #1
    Candidat au Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    novembre 2019
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Industrie

    Informations forums :
    Inscription : novembre 2019
    Messages : 5
    Points : 2
    Points
    2
    Par défaut Ouvrir fichier Excel (protégé en écriture par mdp) via VBS
    Bonjour à tous,

    J'ai besoin de petit coup de main car cela fait un moment que je cherche sans trouver de solution.
    J'ai besoin de lancer l'actualisation d'une macro dans un fichier Excel .xlsb protégé par mot de passe en écriture.
    Mon script permet de l’ouvrir sans souci mais dès que j'ajoute l'argument Password ou WriteResPassword, je me retrouve avec une erreur :
    Ligne : 11
    Caract. : 136
    Erreur : ')' attendu
    Code : 800A03EE
    Source : Erreur de compliation Microsoft VBScript
    Ci-dessous mon fichier .vbs :
    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
    Option Explicit
    On Error Resume Next
    LancementMacro
     
    Sub LancementMacro() 
     
      Dim ApplicationExcel 
      Dim ClasseurExcel 
     
      Set ApplicationExcel = CreateObject("Excel.Application") 
      Set ClasseurExcel = ApplicationExcel.Workbooks.Open("\\chemin du fichier\fichier.xlsb", WriteResPassword:="mot de passe*")
     
      ApplicationExcel.Visible = True   'les actions seront visibles. Pour tout lancer en arrière-plan, remplacer True par False
      ApplicationExcel.Run "macro"
      ApplicationExcel.Quit 
     
      Set ClasseurExcel = Nothing 
      Set ApplicationExcel = Nothing 
     
    End Sub
    D'avance merci pour votre grande aide.

  2. #2
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    février 2006
    Messages
    1 226
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2006
    Messages : 1 226
    Points : 3 321
    Points
    3 321
    Par défaut
    bonjour,

    vbscript ne supporte pas les arguments nommés mais aussi les facultatifs à la différence du vba
    voir la syntaxe de la fonction open
    donc j'écrirais :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set ClasseurExcel  = ApplicationExcel.Workbooks.Open("\\chemin du fichier\fichier.xlsb",,,, "lemotdepasse",,,,,,,,,,)
    attention à bien respecter le nombre de virgules...
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  3. #3
    Candidat au Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    novembre 2019
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Industrie

    Informations forums :
    Inscription : novembre 2019
    Messages : 5
    Points : 2
    Points
    2
    Par défaut
    J'ai recopié votre ligne de correction et modifier le chemin, le nom du fichier et mot de passe (entre ""), malheureusement j'ai toujours la même erreur.
    Si vous avez une idée pour me sortir de cette galère, merci encore.
    Nom : Erreur_VBS.png
Affichages : 44
Taille : 20,5 Ko

  4. #4
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 284
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 284
    Points : 5 400
    Points
    5 400
    Par défaut
    Dans le code proposé, il faut supprimer toutes les virgules après "lemotdepasse"
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  5. #5
    Candidat au Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    novembre 2019
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Industrie

    Informations forums :
    Inscription : novembre 2019
    Messages : 5
    Points : 2
    Points
    2
    Par défaut
    ça marche, merci enfin !!!
    Tip, top, vous avez assuré !
    Pour info, dans mon exemple il faut 5 virgules avant le mot de passe (...,,,,, "*mot de passe*").
    Bonne journée.

  6. #6
    Candidat au Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    novembre 2019
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Industrie

    Informations forums :
    Inscription : novembre 2019
    Messages : 5
    Points : 2
    Points
    2
    Par défaut
    Une dernière petite question, lorsque j'ai 2 ou plusieurs macros à actualiser dans des fichiers protégés. Est-ce que le code suivant vous paraît juste car j'ai à nouveau une erreur :

    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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    Option Explicit
    On Error Resume Next
    LancementMacrosExcel
     
    Sub LancementMacrosExcel() 
     
      Dim ApplicationExcel 
      Dim ClasseurExcel 
     
      Set ApplicationExcel = CreateObject("Excel.Application") 
     
    'Ouverture du 1er fichier Excel + lancement de sa macro 
      Set ClasseurExcel = ApplicationExcel.Workbooks.Open("\\chemin_fichier_1\fichier_1.xlsb",,,,, "mot_de_pass*")
      ApplicationExcel.Visible = False
      ApplicationExcel.Run "macro"
      ClasseurExcel.Close  'Fermeture du 1er fichier
     
    'Ouverture du 2ème fichier Excel + lancement de sa macro 
      Set ClasseurExcel = ApplicationExcel.Workbooks.Open("\\chemin_fichier_2\fichier_2.xlsb",,,,, "mot_de_pass*")
      ApplicationExcel.Visible = False
      ApplicationExcel.Run "macro"
      ClasseurExcel.Close  'Fermeture du 2ème fichier
     
       'Fermeture d'Excel
      ApplicationExcel.Quit
     
      Set ClasseurExcel = Nothing 
      Set ApplicationExcel = Nothing 
     
    End Sub
    Merci encore pour votre aide !

  7. #7
    Candidat au Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    novembre 2019
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Industrie

    Informations forums :
    Inscription : novembre 2019
    Messages : 5
    Points : 2
    Points
    2
    Par défaut
    Bonjour à tous,

    J'ai besoin de votre aide une nouvelle fois, comment lancer plusieurs macros (depuis vbscript) dans plusieurs fichiers Excel protégés (comme dans mon exemple ci-dessus).

    Merci pour votre aide.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 07/11/2019, 20h17
  2. [XL-2007] ouvrir fichier excel 2007 protégé par mot de passe
    Par infoskikda dans le forum Excel
    Réponses: 2
    Dernier message: 24/04/2014, 15h53
  3. [AC-2002] Ouvrir fichier excel protégé par mot de passe depuis access
    Par lumpys dans le forum VBA Access
    Réponses: 3
    Dernier message: 18/03/2013, 13h57
  4. Ouvrir un fichier Excel Protégé par un password
    Par Hocinov3 dans le forum Langage
    Réponses: 1
    Dernier message: 10/04/2012, 18h21
  5. Ouvrir fichier Excel protégé par MDP
    Par Souri84 dans le forum Windows Forms
    Réponses: 2
    Dernier message: 15/12/2009, 09h54

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