Discussion :

[eown]

Bonjour, comment mettre le contenu d'un fichier html a la suite d'un autre????

J'ai lu qu'il fallait lire le contenu des fichier et de les mettres dans une string mais c'a ma l'air super compliqué , et il me semblait avoir vu une fonction qui faisait la meme chose , si voussavez comment fair merciiii

[Theocourant]

Salut,

Ce n'est pas aussi compliqué que cela en a l'air

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Joindre2Fichiers
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f1,f2 ' f1 fichier dans lequel on va rajouter f2
    Dim txtf2 as String 'Pour récupérer tout le fichier 2
 
    Set fs = CreateObject("Scripting.FileSystemObject")
 
    Set f2 = fs.OpenTextFile("c:\f2.html", ForReading,TristateFalse)    
 
    Set f1 = fs.OpenTextFile("c:\f1.html", ForAppending,TristateFalse)
 
    txtf2=f2.ReadAll
 
    f1.Write(txtf2)
 
    f2.Close
 
    f1.Close
End Sub

Et voilà

+

Théo

[eown]

oh wé je vais essayer, merci, je sais pas pourquoi tous les codes que j'ai vu pour lire le contenu d'un fichier étaient enorme

[eown]

Merci, le code marche sans probleme, juste une rectification, j'ai du mettre ForAppending=8 et non =3

Sinon c vraiment cool merci

[Megaxel]

Alors il faut cliquer sur le bouton , en bas, à gauche.

[Theocourant]

Merci, le code marche sans probleme, juste une rectification, j'ai du mettre ForAppending=8 et non =3

Sinon c vraiment cool merci

J'ai récupéré le code de base dans MSDN



Théo