Bonjour,
J'ai une macro VBA qui fonctionne sous NT et 2000 mais pas sous XP. Le
problème est que je n'arrive pas à ouvrir un fichier texte voici une partie
du code
Const sRep As String = "C:\Temp\"
Global Const HostDat = "ViacarTextFile.txt"
Open HostDat For Input As 1
La fonction Open ne fonctionne pas sosu XP. Quelqu'un pourrait-il m'aider
merci d'avance
DIP
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Geo
Bonjour DIP
Bonjour, J'ai une macro VBA qui fonctionne sous NT et 2000 mais pas sous XP. Le problème est que je n'arrive pas à ouvrir un fichier texte voici une partie du code
Const sRep As String = "C:Temp" Global Const HostDat = "ViacarTextFile.txt" Open HostDat For Input As 1
La fonction Open ne fonctionne pas sosu XP.
sans doute parce que tu n'as pas mis le chemin, essaie Open sRep & HostDat For Input As 1
--
A+
Bonjour DIP
Bonjour,
J'ai une macro VBA qui fonctionne sous NT et 2000 mais pas sous XP. Le
problème est que je n'arrive pas à ouvrir un fichier texte voici une
partie du code
Const sRep As String = "C:Temp"
Global Const HostDat = "ViacarTextFile.txt"
Open HostDat For Input As 1
La fonction Open ne fonctionne pas sosu XP.
sans doute parce que tu n'as pas mis le chemin,
essaie
Open sRep & HostDat For Input As 1
Bonjour, J'ai une macro VBA qui fonctionne sous NT et 2000 mais pas sous XP. Le problème est que je n'arrive pas à ouvrir un fichier texte voici une partie du code
Const sRep As String = "C:Temp" Global Const HostDat = "ViacarTextFile.txt" Open HostDat For Input As 1
La fonction Open ne fonctionne pas sosu XP.
sans doute parce que tu n'as pas mis le chemin, essaie Open sRep & HostDat For Input As 1
--
A+
Jean-Guy Marcil
DIP was telling us: DIP nous racontait que :
Bonjour, J'ai une macro VBA qui fonctionne sous NT et 2000 mais pas sous XP. Le problème est que je n'arrive pas à ouvrir un fichier texte voici une partie du code
Const sRep As String = "C:Temp" Global Const HostDat = "ViacarTextFile.txt" Open HostDat For Input As 1
La fonction Open ne fonctionne pas sosu XP. Quelqu'un pourrait-il m'aider merci d'avance
Oui, elle fonctionne bien sur mon poste. Pourquoi déclares-tu un chemin, mais tu ne l'utilises pas pour ouvrir le fichier? Pourquoi un est global, mais pas l'autre? Aussi, ce serait bien que tu nous donnes plus de détails:
La fonction Open ne fonctionne pas sosu XP. ??? Comment, ne fonctionne pas? Que ce passe-t-il quand tu essaies?
Essaie ce code: '_______________________________________ Const sRep As String = "C:Temp" Const HostDat = sRep & "ViacarTextFile.txt" '_______________________________________ Sub test()
Dim MyText As String Dim MyFile As String
Open HostDat For Input As 1 While EOF(1) = 0 Line Input #1, MyText MyFile = MyFile & MyText & Chr(13) Wend Close #1
ActiveDocument.Range.Text = MyFile End Sub '_______________________________________
-- Salut! _______________________________________ Jean-Guy Marcil - Word MVP
Word MVP site: http://www.word.mvps.org
DIP was telling us:
DIP nous racontait que :
Bonjour,
J'ai une macro VBA qui fonctionne sous NT et 2000 mais pas sous XP. Le
problème est que je n'arrive pas à ouvrir un fichier texte voici une
partie du code
Const sRep As String = "C:Temp"
Global Const HostDat = "ViacarTextFile.txt"
Open HostDat For Input As 1
La fonction Open ne fonctionne pas sosu XP. Quelqu'un pourrait-il
m'aider merci d'avance
Oui, elle fonctionne bien sur mon poste.
Pourquoi déclares-tu un chemin, mais tu ne l'utilises pas pour ouvrir le
fichier? Pourquoi un est global, mais pas l'autre?
Aussi, ce serait bien que tu nous donnes plus de détails:
La fonction Open ne fonctionne pas sosu XP.
??? Comment, ne fonctionne pas? Que ce passe-t-il quand tu essaies?
Essaie ce code:
'_______________________________________
Const sRep As String = "C:Temp"
Const HostDat = sRep & "ViacarTextFile.txt"
'_______________________________________
Sub test()
Dim MyText As String
Dim MyFile As String
Open HostDat For Input As 1
While EOF(1) = 0
Line Input #1, MyText
MyFile = MyFile & MyText & Chr(13)
Wend
Close #1
ActiveDocument.Range.Text = MyFile
End Sub
'_______________________________________
--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org
Bonjour, J'ai une macro VBA qui fonctionne sous NT et 2000 mais pas sous XP. Le problème est que je n'arrive pas à ouvrir un fichier texte voici une partie du code
Const sRep As String = "C:Temp" Global Const HostDat = "ViacarTextFile.txt" Open HostDat For Input As 1
La fonction Open ne fonctionne pas sosu XP. Quelqu'un pourrait-il m'aider merci d'avance
Oui, elle fonctionne bien sur mon poste. Pourquoi déclares-tu un chemin, mais tu ne l'utilises pas pour ouvrir le fichier? Pourquoi un est global, mais pas l'autre? Aussi, ce serait bien que tu nous donnes plus de détails:
La fonction Open ne fonctionne pas sosu XP. ??? Comment, ne fonctionne pas? Que ce passe-t-il quand tu essaies?
Essaie ce code: '_______________________________________ Const sRep As String = "C:Temp" Const HostDat = sRep & "ViacarTextFile.txt" '_______________________________________ Sub test()
Dim MyText As String Dim MyFile As String
Open HostDat For Input As 1 While EOF(1) = 0 Line Input #1, MyText MyFile = MyFile & MyText & Chr(13) Wend Close #1
ActiveDocument.Range.Text = MyFile End Sub '_______________________________________
-- Salut! _______________________________________ Jean-Guy Marcil - Word MVP
