Discussion :

[imparator_42]

Suite à la discussion :

http://www.developpez.net/forums/sho...00#post2674200

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub ImportFileF2()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFile = FSO.OpenTextFile("C:\Documents and Settings\user\Bureau\Macro\Source.txt", ForReading)
Set DestFile = FSO.CreateTextFile("C:\Documents and Settings\user\Bureau\Macro\GeneratedTextFile.txt", ForWriting)
While Not SourceFile.AtEndOfStream
     DestFile.WriteLine SourceFile.Readline
     DestFile.WriteLine("")
Wend
Set DestFile = Nothing
Set SourceFile = Nothing
Set FSO = Nothing
End Sub

est ce que pour : SourceFile ....
on peut aussi mettre un lien internet?

[ced600]

Jamais essayé de passer un lien à FSO.

Mais rien ne t'empêches de mettre un lien internet à la place su chemin complet du fichier, et de regarder ce qu'il se passe

[supersnail]

Je penserais plutôt à l'objet AJAX XMLHttpRequest(si t'as IE 6 installé,ça marche)

[imparator_42]

jai changé la source par un lien internet :
ça me fait Runtime error '5': invalid procedure call or argument

donc ça ne marche pas en remplaçant la source...

et 'supersnail' tu panses faire comment?

[Invité]

Bonjour

Que veux-tu exactement faire ?

Starec

[imparator_42]

je voudrais télécharger nimporte quel type de fichier sous la forme préchoisie

Comme dans le code :
ex: je télécharge le fichier www.aaa.fr/a.html
et il enregistre dans un répertoire préchoisi : C:\windows\abc.txt ou autre extension...

mais je voudrais que ça soit directe...