[E-03] Remplacer le contenu d'un fichier

Mytå_Qc · 08/10/2008, 02h57

Salut le forum

Je cherche mais, je n'ai pas trouver

Comment ouvrir un fichier avec extension .abc , le vider et inscrire un
nouveau texte à l'intérieur.

Dans le style

Code :

WEB
1
http://Le_lien
 
Selection=EntirePage
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False

Sinon,une possibilité de juste modifier la ligne http://Le_lien

Merci
Mytå_Qc

Pierre Fauconnier · 08/10/2008, 08h38

Bonjour

On dirait que ça ressemble un peu à un fichier INI.

Tu pourrais peut-être t'inspirer de cette entrée dans la faq.

Sinon, ça va être une histoire plus compliquée.

Mytå_Qc · 09/10/2008, 01h22

Salut le forum

C'est bon, j'ai trouvé ma réponse, merci quand même Pierre.

Code :

'Creer Fichier Pour La Requete
If Dir(Repertoire & "\hr_6.iqy") = "hr_6.iqy" Then Kill (Repertoire & "\hr_6.iqy")
 
Open Repertoire & "\hr_6.iqy" For Append As #1
 
Print #1, "WEB"
Print #1, "1"
Print #1, "http://fr.finance.yahoo.com/q/pr?s=" & Sheets("Feuille1").Cells(J, 3)
Print #1, ""
Print #1, "Selection = EntirePage"
Print #1, "Formatting = None"
Print #1, "PreFormattedTextToColumns = True"
Print #1, "ConsecutiveDelimitersAsOne = True"
Print #1, "SingleBlockTextImport = False"
Print #1, "DisableDateRecognition = False"
Close #1

Mytå_Qc

08/10/2008, 02h57	#1 (permalink)
Mytå_Qc Nouveau membre du Club Date d'inscription: mai 2007 Messages: 55	[E-03] Remplacer le contenu d'un fichier Salut le forum Je cherche mais, je n'ai pas trouver Comment ouvrir un fichier avec extension .abc , le vider et inscrire un nouveau texte à l'intérieur. Dans le style Code : WEB 1 http://Le_lien Selection=EntirePage Formatting=None PreFormattedTextToColumns=True ConsecutiveDelimitersAsOne=True SingleBlockTextImport=False DisableDateRecognition=False Sinon,une possibilité de juste modifier la ligne http://Le_lien Merci Mytå_Qc

08/10/2008, 08h38	#2 (permalink)
Pierre Fauconnier Rédacteur/Modérateur Date d'inscription: novembre 2003 Localisation: Theux (Belgique) Âge: 41 Messages: 3 092	Bonjour On dirait que ça ressemble un peu à un fichier INI. Tu pourrais peut-être t'inspirer de cette entrée dans la faq. Sinon, ça va être une histoire plus compliquée. __________________ Pierre Fauconnier -------------------- "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire) Pensez au tag Mon blog sur DVP - Mes petits papiers sur DVP Je ne peux en aucun cas être tenu pour responsable des conséquences de l'utilisation des codes que je fournis dans le cadre des réponses apportées sur les forums, même s'il s'avérait que ces codes sont erronés ou amènent à des dysfonctionnements, de manière manifeste ou non.

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Excel
[E-03] Remplacer le contenu d'un fichier

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email