Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction choosefile
ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 & "Type="
& Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction choosefile
ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 & "Type="
& Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction choosefile
ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 & "Type="
& Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction choosefile ne
fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 & "Type=" &
Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:mn.f5537d93e1ced818.55474@NOSPAMlaposte.net...
Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction choosefile ne
fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 & "Type=" &
Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction choosefile ne
fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 & "Type=" &
Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Lognoul Marc [MVP] avait énoncé :Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction choosefile
ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 &
"Type=" & Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
bonjour,
Sous vista SP2 aussi
J'ai:
Script: C:PROGtestfich.vbs
Ligne: 10
Caract: 1
Erreur: chemin d'accés introuvable
Code: 800A004C
Source: Erreur d'exécution Microsoft VBScript
et la ligne est égale a:
Set oFilein=oFs.OpenTextFile(fich_i)
et c'est depuis la Maj d'IE8 (mais pourquoi donc j'ai installé ça) je suis
très embêté.
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Lognoul Marc [MVP] avait énoncé :
Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:mn.f5537d93e1ced818.55474@NOSPAMlaposte.net...
Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction choosefile
ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 &
"Type=" & Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
bonjour,
Sous vista SP2 aussi
J'ai:
Script: C:PROGtestfich.vbs
Ligne: 10
Caract: 1
Erreur: chemin d'accés introuvable
Code: 800A004C
Source: Erreur d'exécution Microsoft VBScript
et la ligne est égale a:
Set oFilein=oFs.OpenTextFile(fich_i)
et c'est depuis la Maj d'IE8 (mais pourquoi donc j'ai installé ça) je suis
très embêté.
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Lognoul Marc [MVP] avait énoncé :Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction choosefile
ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 &
"Type=" & Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
bonjour,
Sous vista SP2 aussi
J'ai:
Script: C:PROGtestfich.vbs
Ligne: 10
Caract: 1
Erreur: chemin d'accés introuvable
Code: 800A004C
Source: Erreur d'exécution Microsoft VBScript
et la ligne est égale a:
Set oFilein=oFs.OpenTextFile(fich_i)
et c'est depuis la Maj d'IE8 (mais pourquoi donc j'ai installé ça) je suis
très embêté.
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
En effet, le path renvoyé commence toujours par "c:fakepath...", très
étrange!
Avez-vous testé avec le mode protégé désactivé?
Pourquoi passez-vous par un IE pour sélectionner un fichier?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Lognoul Marc [MVP] avait énoncé :Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction choosefile
ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 & "Type="
& Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
bonjour,
Sous vista SP2 aussi
J'ai:
Script: C:PROGtestfich.vbs
Ligne: 10
Caract: 1
Erreur: chemin d'accés introuvable
Code: 800A004C
Source: Erreur d'exécution Microsoft VBScript
et la ligne est égale a:
Set oFilein=oFs.OpenTextFile(fich_i)
et c'est depuis la Maj d'IE8 (mais pourquoi donc j'ai installé ça) je suis
très embêté.
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
En effet, le path renvoyé commence toujours par "c:fakepath...", très
étrange!
Avez-vous testé avec le mode protégé désactivé?
Pourquoi passez-vous par un IE pour sélectionner un fichier?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:mn.f9d27d9356e0e6e5.55474@NOSPAMlaposte.net...
Lognoul Marc [MVP] avait énoncé :
Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:mn.f5537d93e1ced818.55474@NOSPAMlaposte.net...
Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction choosefile
ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 & "Type="
& Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
bonjour,
Sous vista SP2 aussi
J'ai:
Script: C:PROGtestfich.vbs
Ligne: 10
Caract: 1
Erreur: chemin d'accés introuvable
Code: 800A004C
Source: Erreur d'exécution Microsoft VBScript
et la ligne est égale a:
Set oFilein=oFs.OpenTextFile(fich_i)
et c'est depuis la Maj d'IE8 (mais pourquoi donc j'ai installé ça) je suis
très embêté.
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
En effet, le path renvoyé commence toujours par "c:fakepath...", très
étrange!
Avez-vous testé avec le mode protégé désactivé?
Pourquoi passez-vous par un IE pour sélectionner un fichier?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Lognoul Marc [MVP] avait énoncé :Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction choosefile
ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 & "Type="
& Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
bonjour,
Sous vista SP2 aussi
J'ai:
Script: C:PROGtestfich.vbs
Ligne: 10
Caract: 1
Erreur: chemin d'accés introuvable
Code: 800A004C
Source: Erreur d'exécution Microsoft VBScript
et la ligne est égale a:
Set oFilein=oFs.OpenTextFile(fich_i)
et c'est depuis la Maj d'IE8 (mais pourquoi donc j'ai installé ça) je suis
très embêté.
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Lognoul Marc [MVP] a écrit :En effet, le path renvoyé commence toujours par "c:fakepath...", très
étrange!
Avez-vous testé avec le mode protégé désactivé?
Pourquoi passez-vous par un IE pour sélectionner un fichier?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Lognoul Marc [MVP] avait énoncé :Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction
choosefile ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 &
"Type=" & Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
bonjour,
Sous vista SP2 aussi
J'ai:
Script: C:PROGtestfich.vbs
Ligne: 10
Caract: 1
Erreur: chemin d'accés introuvable
Code: 800A004C
Source: Erreur d'exécution Microsoft VBScript
et la ligne est égale a:
Set oFilein=oFs.OpenTextFile(fich_i)
et c'est depuis la Maj d'IE8 (mais pourquoi donc j'ai installé ça) je
suis très embêté.
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Bonjour
Merci je ne suis pas encore fou alors ...
Comment désactiver le mode protégé avec IE8 ?
Je passe par IE pour sélectionner un fichier car j'ai un parc de PC
hétérogène et c'était le solution miraculeuse de w2k a w2k3.
Je n'aime pas trop le CommonDialog car il faut mettre des dll et les
enregistrer par un regsvr non ?
Cordialement
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Lognoul Marc [MVP] a écrit :
En effet, le path renvoyé commence toujours par "c:fakepath...", très
étrange!
Avez-vous testé avec le mode protégé désactivé?
Pourquoi passez-vous par un IE pour sélectionner un fichier?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:mn.f9d27d9356e0e6e5.55474@NOSPAMlaposte.net...
Lognoul Marc [MVP] avait énoncé :
Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:mn.f5537d93e1ced818.55474@NOSPAMlaposte.net...
Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction
choosefile ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 &
"Type=" & Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
bonjour,
Sous vista SP2 aussi
J'ai:
Script: C:PROGtestfich.vbs
Ligne: 10
Caract: 1
Erreur: chemin d'accés introuvable
Code: 800A004C
Source: Erreur d'exécution Microsoft VBScript
et la ligne est égale a:
Set oFilein=oFs.OpenTextFile(fich_i)
et c'est depuis la Maj d'IE8 (mais pourquoi donc j'ai installé ça) je
suis très embêté.
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Bonjour
Merci je ne suis pas encore fou alors ...
Comment désactiver le mode protégé avec IE8 ?
Je passe par IE pour sélectionner un fichier car j'ai un parc de PC
hétérogène et c'était le solution miraculeuse de w2k a w2k3.
Je n'aime pas trop le CommonDialog car il faut mettre des dll et les
enregistrer par un regsvr non ?
Cordialement
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Lognoul Marc [MVP] a écrit :En effet, le path renvoyé commence toujours par "c:fakepath...", très
étrange!
Avez-vous testé avec le mode protégé désactivé?
Pourquoi passez-vous par un IE pour sélectionner un fichier?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Lognoul Marc [MVP] avait énoncé :Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction
choosefile ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 &
"Type=" & Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
bonjour,
Sous vista SP2 aussi
J'ai:
Script: C:PROGtestfich.vbs
Ligne: 10
Caract: 1
Erreur: chemin d'accés introuvable
Code: 800A004C
Source: Erreur d'exécution Microsoft VBScript
et la ligne est égale a:
Set oFilein=oFs.OpenTextFile(fich_i)
et c'est depuis la Maj d'IE8 (mais pourquoi donc j'ai installé ça) je
suis très embêté.
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Bonjour
Merci je ne suis pas encore fou alors ...
Comment désactiver le mode protégé avec IE8 ?
Je passe par IE pour sélectionner un fichier car j'ai un parc de PC
hétérogène et c'était le solution miraculeuse de w2k a w2k3.
Je n'aime pas trop le CommonDialog car il faut mettre des dll et les
enregistrer par un regsvr non ?
Cordialement
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de
news:Bonjour
Bonjour,Merci je ne suis pas encore fou alors ...
Non, non ;-)
C'est une modification du DOM introduite avec HTML 5
filename :
On getting, it must return the string "C:fakepath" followed by the
filename of the first file in the list of selected files, if any, or the
empty string if the list is empty. On setting, it must throw an
INVALID_ACCESS_ERR exception.
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de
news:mn.faa67d93939e7606.33554@NOSPAMlaposte.net
Bonjour
Bonjour,
Merci je ne suis pas encore fou alors ...
Non, non ;-)
C'est une modification du DOM introduite avec HTML 5
filename :
On getting, it must return the string "C:fakepath" followed by the
filename of the first file in the list of selected files, if any, or the
empty string if the list is empty. On setting, it must throw an
INVALID_ACCESS_ERR exception.
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de
news:Bonjour
Bonjour,Merci je ne suis pas encore fou alors ...
Non, non ;-)
C'est une modification du DOM introduite avec HTML 5
filename :
On getting, it must return the string "C:fakepath" followed by the
filename of the first file in the list of selected files, if any, or the
empty string if the list is empty. On setting, it must throw an
INVALID_ACCESS_ERR exception.
Bonjour,
En effet comdlg n'est pas disponible automatiquement mais Le shell offre
presque la même fonction, eklle est juste un peu moins "riche". Exemple:
Const WINDOW_HANDLE = 0
Const BIF_BROWSEINCLUDEFILES = &H4000&
Set objShell = CreateObject("Shell.Application")
Set objFileOrFolder= objShell.BrowseForFolder(WINDOW_HANDLE, "Select a
File:", BIF_BROWSEINCLUDEFILES, "C: ")
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Lognoul Marc [MVP] a écrit :En effet, le path renvoyé commence toujours par "c:fakepath...", très
étrange!
Avez-vous testé avec le mode protégé désactivé?
Pourquoi passez-vous par un IE pour sélectionner un fichier?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Lognoul Marc [MVP] avait énoncé :Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction
choosefile ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 &
"Type=" & Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
bonjour,
Sous vista SP2 aussi
J'ai:
Script: C:PROGtestfich.vbs
Ligne: 10
Caract: 1
Erreur: chemin d'accés introuvable
Code: 800A004C
Source: Erreur d'exécution Microsoft VBScript
et la ligne est égale a:
Set oFilein=oFs.OpenTextFile(fich_i)
et c'est depuis la Maj d'IE8 (mais pourquoi donc j'ai installé ça) je
suis très embêté.
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Bonjour
Merci je ne suis pas encore fou alors ...
Comment désactiver le mode protégé avec IE8 ?
Je passe par IE pour sélectionner un fichier car j'ai un parc de PC
hétérogène et c'était le solution miraculeuse de w2k a w2k3.
Je n'aime pas trop le CommonDialog car il faut mettre des dll et les
enregistrer par un regsvr non ?
Cordialement
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Bonjour,
En effet comdlg n'est pas disponible automatiquement mais Le shell offre
presque la même fonction, eklle est juste un peu moins "riche". Exemple:
Const WINDOW_HANDLE = 0
Const BIF_BROWSEINCLUDEFILES = &H4000&
Set objShell = CreateObject("Shell.Application")
Set objFileOrFolder= objShell.BrowseForFolder(WINDOW_HANDLE, "Select a
File:", BIF_BROWSEINCLUDEFILES, "C: ")
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:mn.faa67d93939e7606.33554@NOSPAMlaposte.net...
Lognoul Marc [MVP] a écrit :
En effet, le path renvoyé commence toujours par "c:fakepath...", très
étrange!
Avez-vous testé avec le mode protégé désactivé?
Pourquoi passez-vous par un IE pour sélectionner un fichier?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:mn.f9d27d9356e0e6e5.55474@NOSPAMlaposte.net...
Lognoul Marc [MVP] avait énoncé :
Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:mn.f5537d93e1ced818.55474@NOSPAMlaposte.net...
Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction
choosefile ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 &
"Type=" & Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
bonjour,
Sous vista SP2 aussi
J'ai:
Script: C:PROGtestfich.vbs
Ligne: 10
Caract: 1
Erreur: chemin d'accés introuvable
Code: 800A004C
Source: Erreur d'exécution Microsoft VBScript
et la ligne est égale a:
Set oFilein=oFs.OpenTextFile(fich_i)
et c'est depuis la Maj d'IE8 (mais pourquoi donc j'ai installé ça) je
suis très embêté.
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Bonjour
Merci je ne suis pas encore fou alors ...
Comment désactiver le mode protégé avec IE8 ?
Je passe par IE pour sélectionner un fichier car j'ai un parc de PC
hétérogène et c'était le solution miraculeuse de w2k a w2k3.
Je n'aime pas trop le CommonDialog car il faut mettre des dll et les
enregistrer par un regsvr non ?
Cordialement
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Bonjour,
En effet comdlg n'est pas disponible automatiquement mais Le shell offre
presque la même fonction, eklle est juste un peu moins "riche". Exemple:
Const WINDOW_HANDLE = 0
Const BIF_BROWSEINCLUDEFILES = &H4000&
Set objShell = CreateObject("Shell.Application")
Set objFileOrFolder= objShell.BrowseForFolder(WINDOW_HANDLE, "Select a
File:", BIF_BROWSEINCLUDEFILES, "C: ")
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Lognoul Marc [MVP] a écrit :En effet, le path renvoyé commence toujours par "c:fakepath...", très
étrange!
Avez-vous testé avec le mode protégé désactivé?
Pourquoi passez-vous par un IE pour sélectionner un fichier?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Lognoul Marc [MVP] avait énoncé :Bonjour,
Sous Vista SP2 avec un utilisateur normal, cela fonctionne chez moi...
Quel est le message d'erreur?
--
Marc [MCSE, MCTS, MVP]
[Heureux celui qui a pu pénétrer les causes secrètes des choses]
[Blog: http://www.marc-antho-etc.net/blog/]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:Bonjour,
C'est la cata, j'ai installé IE8 et depuis ma petite fonction
choosefile ne fonctionne plus:
fich_i = ChooseFile()
'*******************************************************************************
Function ChooseFile()
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
ChooseFile = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 &
"Type=" & Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
ChooseFile = .value
End With
IE.Quit
Set IE = Nothing
End Function
'*******************************************************************************
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
bonjour,
Sous vista SP2 aussi
J'ai:
Script: C:PROGtestfich.vbs
Ligne: 10
Caract: 1
Erreur: chemin d'accés introuvable
Code: 800A004C
Source: Erreur d'exécution Microsoft VBScript
et la ligne est égale a:
Set oFilein=oFs.OpenTextFile(fich_i)
et c'est depuis la Maj d'IE8 (mais pourquoi donc j'ai installé ça) je
suis très embêté.
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Bonjour
Merci je ne suis pas encore fou alors ...
Comment désactiver le mode protégé avec IE8 ?
Je passe par IE pour sélectionner un fichier car j'ai un parc de PC
hétérogène et c'était le solution miraculeuse de w2k a w2k3.
Je n'aime pas trop le CommonDialog car il faut mettre des dll et les
enregistrer par un regsvr non ?
Cordialement
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3977 (20090331) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com