Discussion :

[Phone42]

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 :

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

[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.

[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

[Phone42]

voila mon fichier de base

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

[ProgElecT]

Re

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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