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
    Ressources humaines
    Inscrit en
    septembre 2016
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : septembre 2016
    Messages : 4
    Points : 2
    Points
    2
    Par défaut Variable dans Workbooks.Open
    Bonjour à tous,

    Cela fait 2 jours que je me forme sur Vbs, je suis arrivé à faire pas mal de chose grâce au forum, mais cette fois, je bloque complètement. J'ai créé un script afin de lancer un fichier bat qui se trouve dans le même fichier DOSSIER que mon fichier Vbs. Il se lance sans problème, je voulais faire la même chose avec un fichier Excel, mais je n'y arrive pas. Le chemin d’accès sera différent d'un poste à un autre, j'ai donc besoin d'une variable avec comme valeur, le chemin du fichier Vbs + mon fichier xml.
    Pouvez-vous m'aider svp.

    Bien cordialement,

    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
    31
    32
    Option Explicit
    Dim WshShell
    Dim path
    Dim GetPath
     
    path = WScript.ScriptFullName
    GetPath = Left(path, InStrRev(path, "\"))
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.CurrentDirectory = GetPath
    WshShell.Run "dezip.bat"
    Set WshShell = Nothing
    '***************le code ci-dessus fonctionne parfaitement*******************
    on Error Resume Next
     
    ExempleMacroExcel
     
     
    Sub ExempleMacroExcel()
    Dim ApplicationExcel
    Dim ClasseurExcel
     
    Set ApplicationExcel = CreateObject("Excel.Application")
    Set ClasseurExcel = ApplicationExcel.Workbooks.Open("%GetPath%" & "BETA V1.xlsm") ' c'est juste un des nombreux test effectués, lorsque je le saisis en dur, ca fonctionne
     
    ApplicationExcel.Visible = True
     
    ApplicationExcel.Run "NouvellefeuilleAppel"
    Set ClasseurExcel = Nothing
    Set ApplicationExcel = Nothing
     
     
    End Sub

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 925
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 925
    Points : 11 210
    Points
    11 210
    Par défaut
    Salut

    Ta ligne 23
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set ClasseurExcel = ApplicationExcel.Workbooks.Open("%GetPath%" & "BETA V1.xlsm") ' c'est juste un des nombreux test effectués, lorsque je le saisis en dur, ca fonctionne
    doit devenir
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set ClasseurExcel = ApplicationExcel.Workbooks.Open(GetPath & "BETA V1.xlsm")
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

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

Discussions similaires

  1. [XL-365] Erreur dans workbooks.open
    Par salseropom dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 02/08/2018, 16h20
  2. window.open variables dans le lien
    Par arthur57 dans le forum Général JavaScript
    Réponses: 10
    Dernier message: 27/01/2015, 11h47
  3. [XL-2007] incorporer une fonction dans workbook .open
    Par patricktoulon dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 19/11/2009, 17h44
  4. Envoyer plusieurs variables dans le open
    Par Eva01 dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 13/05/2009, 12h18
  5. window.open avec des variables dans un lien hypertexte
    Par ledisciple dans le forum Général JavaScript
    Réponses: 16
    Dernier message: 09/04/2009, 12h41

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