Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Dim strFichier
Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Dim strFichier
Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Dim strFichier
"Fred" a écrit dans le message de
news:%Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Dim strFichier
strFichier = "c:test.txt"
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFichier) = True Then
MsgBox "le fichier existe, on peut l'ouvrir"
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
blah, blah..
MonFic.Close
Set MonFic = Nothing
Else
MsgBox "le fichier n'existe pas"
End If
Set oFSO = Nothing
"Fred" <poiuytreza@lavirvee.fr> a écrit dans le message de
news:%23FZoPEcXIHA.3940@TK2MSFTNGP05.phx.gbl...
Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Dim strFichier
strFichier = "c:test.txt"
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFichier) = True Then
MsgBox "le fichier existe, on peut l'ouvrir"
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
blah, blah..
MonFic.Close
Set MonFic = Nothing
Else
MsgBox "le fichier n'existe pas"
End If
Set oFSO = Nothing
"Fred" a écrit dans le message de
news:%Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Dim strFichier
strFichier = "c:test.txt"
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFichier) = True Then
MsgBox "le fichier existe, on peut l'ouvrir"
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
blah, blah..
MonFic.Close
Set MonFic = Nothing
Else
MsgBox "le fichier n'existe pas"
End If
Set oFSO = Nothing
"Fred" a écrit dans le message de
news:%Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Dim strFichier
strFichier = "c:test.txt"
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFichier) = True Then
MsgBox "le fichier existe, on peut l'ouvrir"
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
blah, blah..
MonFic.Close
Set MonFic = Nothing
Else
MsgBox "le fichier n'existe pas"
End If
Set oFSO = Nothing
"Fred" <poiuytreza@lavirvee.fr> a écrit dans le message de
news:%23FZoPEcXIHA.3940@TK2MSFTNGP05.phx.gbl...
Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Dim strFichier
strFichier = "c:test.txt"
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFichier) = True Then
MsgBox "le fichier existe, on peut l'ouvrir"
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
blah, blah..
MonFic.Close
Set MonFic = Nothing
Else
MsgBox "le fichier n'existe pas"
End If
Set oFSO = Nothing
"Fred" a écrit dans le message de
news:%Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Dim strFichier
strFichier = "c:test.txt"
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFichier) = True Then
MsgBox "le fichier existe, on peut l'ouvrir"
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
blah, blah..
MonFic.Close
Set MonFic = Nothing
Else
MsgBox "le fichier n'existe pas"
End If
Set oFSO = Nothing
A nouveau moi!
Merci, cela fonctionne, mais...
Je rencontre les deux problèmes suivants:
1 - j'exécute ce script au sein d'un classeur Excel et souhaiterais
récupérer cette variable depuis le contenu d'une cellule:
Dim strFic As Range
Set strFichier = Range("A1")
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFichier) = True Then
etc...
Mais ça ne fonctionne pas, je n'arrive pas à récupérer ma variable...
2- Pour mon info, si j'exécute ce script en enregistrant un fichier txt et
lui positionnant l'extension .vbs, je vois passer une fenêtre dos très
rapidement mais rien d'autre...
Je me demande pourquoi....
Merci encore,
FRED.
"jbongran" a écrit dans le message de
news:4797b8ea$0$13704$"Fred" a écrit dans le message de
news:%Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Dim strFichier
strFichier = "c:test.txt"
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFichier) = True Then
MsgBox "le fichier existe, on peut l'ouvrir"
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
blah, blah..
MonFic.Close
Set MonFic = Nothing
Else
MsgBox "le fichier n'existe pas"
End If
Set oFSO = Nothing
A nouveau moi!
Merci, cela fonctionne, mais...
Je rencontre les deux problèmes suivants:
1 - j'exécute ce script au sein d'un classeur Excel et souhaiterais
récupérer cette variable depuis le contenu d'une cellule:
Dim strFic As Range
Set strFichier = Range("A1")
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFichier) = True Then
etc...
Mais ça ne fonctionne pas, je n'arrive pas à récupérer ma variable...
2- Pour mon info, si j'exécute ce script en enregistrant un fichier txt et
lui positionnant l'extension .vbs, je vois passer une fenêtre dos très
rapidement mais rien d'autre...
Je me demande pourquoi....
Merci encore,
FRED.
"jbongran" <jbongran@free.fr> a écrit dans le message de
news:4797b8ea$0$13704$426a74cc@news.free.fr...
"Fred" <poiuytreza@lavirvee.fr> a écrit dans le message de
news:%23FZoPEcXIHA.3940@TK2MSFTNGP05.phx.gbl...
Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Dim strFichier
strFichier = "c:test.txt"
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFichier) = True Then
MsgBox "le fichier existe, on peut l'ouvrir"
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
blah, blah..
MonFic.Close
Set MonFic = Nothing
Else
MsgBox "le fichier n'existe pas"
End If
Set oFSO = Nothing
A nouveau moi!
Merci, cela fonctionne, mais...
Je rencontre les deux problèmes suivants:
1 - j'exécute ce script au sein d'un classeur Excel et souhaiterais
récupérer cette variable depuis le contenu d'une cellule:
Dim strFic As Range
Set strFichier = Range("A1")
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFichier) = True Then
etc...
Mais ça ne fonctionne pas, je n'arrive pas à récupérer ma variable...
2- Pour mon info, si j'exécute ce script en enregistrant un fichier txt et
lui positionnant l'extension .vbs, je vois passer une fenêtre dos très
rapidement mais rien d'autre...
Je me demande pourquoi....
Merci encore,
FRED.
"jbongran" a écrit dans le message de
news:4797b8ea$0$13704$"Fred" a écrit dans le message de
news:%Bonjour,
Débutant en VBS, j'exécute le script ci dessous:
' LECTURE COMPLETE DU FICHIER
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists("c:test.txt") = True Then
MsgBox "le fichier existe"
Else
MsgBox "le fichier n'existe pas"
End If
Je souhaite tester l'existence du fichier, mais à l'aide d'une variable.
J'ai essayé de faire :
If oFSO.FileExists(MonFIC) = True Then ...
Mais ça ne marche pas; pourriez-vous m'indiquer comment récupérer le nom
du fichier dans une variable afin de faire mon test ?
Merci.
FRED.
Dim strFichier
strFichier = "c:test.txt"
'TEST DE L'EXISTENCE DU FICHIER
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFichier) = True Then
MsgBox "le fichier existe, on peut l'ouvrir"
Set MonFic = Fsys.OpenTextFile("c:test.txt", 1)
blah, blah..
MonFic.Close
Set MonFic = Nothing
Else
MsgBox "le fichier n'existe pas"
End If
Set oFSO = Nothing
Juste un détail : dans un range Excel, le contenu est normalement
fourni par la propriété .value :
Range("A1").value
Juste un détail : dans un range Excel, le contenu est normalement
fourni par la propriété .value :
Range("A1").value
Juste un détail : dans un range Excel, le contenu est normalement
fourni par la propriété .value :
Range("A1").value
la propriété par défaut
la propriété par défaut
la propriété par défaut
Bonjour,
Notre ami Méta-MCI (MVP) tapota :Juste un détail : dans un range Excel, le contenu est normalement
fourni par la propriété .value :
Range("A1").value
C'est vrai mais value est la propriété par défaut
ça devrait marcher aussi ainsi
même si je désaprouve ce type de chose...
HB
Bonjour,
Notre ami Méta-MCI (MVP) tapota :
Juste un détail : dans un range Excel, le contenu est normalement
fourni par la propriété .value :
Range("A1").value
C'est vrai mais value est la propriété par défaut
ça devrait marcher aussi ainsi
même si je désaprouve ce type de chose...
HB
Bonjour,
Notre ami Méta-MCI (MVP) tapota :Juste un détail : dans un range Excel, le contenu est normalement
fourni par la propriété .value :
Range("A1").value
C'est vrai mais value est la propriété par défaut
ça devrait marcher aussi ainsi
même si je désaprouve ce type de chose...
HB