probleme VBS Erreur compilation

Version imprimable

bonjour voila sa fait plusieurs jour que je cherche mon erreur mais en vain j ai chercher sur différent forum mais aucun ne résous mon problème

voici mon code

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
MtomReg = "C:\MTOM\"
TraitementFile = MtomReg & "Traitement\"
TempFile = MtomReg & "Temp\"
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.OpenTextFile(TempFile & "File.txt", ForReading)
ExcelFiles = f.ReadAll
Set f = fso.OpenTextFile(TempFile & "Mdp.txt", ForReading)
Mdp = f.ReadAll
f.Close
ExcelFile =  TraitementFile & ExcelFiles
 
 
wscript.echo "Registre génerale: " & MtomReg
wscript.echo "Fichier Temporaire: " & TempFile
wscript.echo "Fichier de Traitement: " & TraitementFile
wscript.echo "Fichier de lecture " & ExcelFiles
wscript.echo "Mot de passe du fichier " & Mdp
excelfiless = ExcelFiles
 
 
MsgBox  ShowCellExcel(8,2),,"B8" 
MsgBox  ShowCellExcel(8,3),,"C8"
MsgBox  ShowCellExcel(8,4),,"D8"
 
 
Function ShowCellExcel(Ligne,Colonne)
 
Dim objExcel, objClasseur, ExcelFile, strCell
 
Dim appExcel As Excel.Application
Dim wbExcel As Excel.Workbook 
Dim wsExcel As Excel.Worksheet
 
Set wbExcel = Application.Workbooks.Open("C:\MTOM\Traitement\Test.xlsx", Password ="max ")
 
Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
objExcel.Application.Visible = False
strCell = objExcel.Worksheets(1).Cells(Ligne,Colonne).Value
objExcel.Quit
Set objExcel = Nothing
Set objClasseur = Nothing
ShowCellExcel = strCell
End Function

j ai toujours la même erreur a : Dim appExcel As Excel.Application.

l objectif et de rentrer sur un excel sans avoir a demander le mots de passe
merci cdtl

27/01/2018, 14h43
ProgElecT

Salut, bienvenue sur DVP

Je suppose que le code fournit est un copier/coller de VB6 ou VBA, car en VBScript on ne type pas les variable.
Donc tu peux enlever tous les As quelqueChose.
27/01/2018, 15h07
Phone42

J ai enlever As Excel.Application
As Excel.Workbook
As Excel.Worksheet

erreur : Set wbExcel = Application.Workbooks.Open("C:\MTOM\Traitement\Test.xlsx", Password ="max ")

objet requis Application ses pour sa que j avais mis As Excel.Application

voila mon fichier de base

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
MtomReg = "C:\MTOM\"
TraitementFile = MtomReg & "Traitement\"
TempFile = MtomReg & "Temp\"
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.OpenTextFile(TempFile & "File.txt", ForReading)
ExcelFiles = f.ReadAll
Set f = fso.OpenTextFile(TempFile & "Mdp.txt", ForReading)
Mdp = f.ReadAll
f.Close
ExcelFile =  TraitementFile & ExcelFiles
 
 
wscript.echo "Registre génerale: " & MtomReg
wscript.echo "Fichier Temporaire: " & TempFile
wscript.echo "Fichier de Traitement: " & TraitementFile
wscript.echo "Fichier de lecture " & ExcelFiles
wscript.echo "Mot de passe du fichier " & Mdp
excelfiless = ExcelFiles
 
 
MsgBox  ShowCellExcel(8,2),,"B8" 
MsgBox  ShowCellExcel(8,3),,"C8"
MsgBox  ShowCellExcel(8,4),,"D8"
 
 
Function ShowCellExcel(Ligne,Colonne)
 
 
 
 
 
 
 
Dim objExcel, objClasseur, ExcelFile, strCell
 
Set objExcel = CreateObject("Excel.Application")
Set objClasseur = objExcel.WorkBooks.Open("C:\MTOM\Traitement\hamid42100.xlsx", Password ="max ")
 
 
objExcel.DisplayAlerts = False
objExcel.Application.Visible = False
 
strCell = objExcel.Worksheets(1).Cells(Ligne,Colonne).Value
objExcel.Quit
Set objExcel = Nothing
Set objClasseur = Nothing
ShowCellExcel = strCell
End Function

le problème ses que quand mes fenêtre s'ouvre sa me demande le mot de passe a chaque fenêtre
serais t il possible de rentrais le mot de passe a chaque fois en automatique sans que le fichier excel s'ouvre
merci

Re

Tu as répondu/apporté des informations, que je lirai après t'avoir mi ce

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function ShowCellExcel(Ligne,Colonne)
	Dim ExcelObject, SheetObject
 
	Set ExcelObject = CreateObject("Excel.Application")
	ExcelObject.Visible = False
	Set SheetObject = ExcelObject.Workbooks.Open("C:\MTOM\Traitement\Test.xlsx", Password ="max ")
 
	SheetObject.DisplayAlerts = False
	ShowCellExcel = SheetObject.Worksheets(1).Cells(Ligne,Colonne).Value
	SheetObject.Close False 'Ferme le classeur
	Set SheetObject = Nothing
	ExcelObject.Application.Quit
	Set ExcelObject = Nothing
End Function

27/01/2018, 17h18
Phone42

j ai toujours une erreur : SheetObject.DisplayAlerts = False
cet objet ne gère pas cette propriété ou cette méthode 'sheetObject.DisplayAlerts'
la ne comprend pas d' ou sa pourrais venir
merci
27/01/2018, 17h36
ProgElecT

RE

Je ne suis pas des plus fort en pilotage Excel.
Peut être en lisant dans la FAQ VB Script →Applications Externes tu pourras trouver ton bonheur.
27/01/2018, 19h18
Phone42

merci pour le lien
si vous avez des solutions je suis preneur
cdtl
28/01/2018, 12h52
tsuji

Citation:

Code:

Set SheetObject = ExcelObject.Workbooks.Open("C:\MTOM\Traitement\Test.xlsx", Password ="max ")

C'est incorrect.
1) vbs ne prend pas l'argument nommé comme en vba/vb; il prend aisément arguments positionnels uniquement;
2) même en vba/vb, la syntaxe pour un argument nommé n'est pas correcte non plus - mais ce n'est pas la question ici.

Voici la signature de la méthode Open qu'on peut trouver dans la documentation de MS...

Citation:

.Open( FileName , UpdateLinks , ReadOnly , Format , Password , WriteResPassword , IgnoreReadOnlyRecommended , Origin , Delimiter , Editable , Notify , Converter , AddToMru , Local , CorruptLoad )

Dans le cas où on n'a pas configuré un mot de passe pour modifier la feuille, on l'écrit comme ça:

Code:

Set SheetObject = ExcelObject.Workbooks.Open("C:\MTOM\Traitement\Test.xlsx",,,, "max ")

("max "avec un espace??? - je ne sais pas !)

Dans le cas où on a configuré un mot de passe pour modifier la feuille avec un mot de passe, pour instance "autrepwd", on l'écrit évidemment comme ça:

Code:

Set SheetObject = ExcelObject.Workbooks.Open("C:\MTOM\Traitement\Test.xlsx",,,, "max ", "autrpwd")

Voilà !
29/01/2018, 18h25
Phone42

re

ce n est pas un mots de passe pour modifier le contenue mais pour rentrer dans le classeur
cdtl