Discussion :

[Dedelefonfon]

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

[ProgElecT]

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")