Bonjour à tous, le Forum,
J'utilise actuellement dans une macro le code suivant qui écrit dans le Fichier2 les lignes du Fichier1 :
Au final, le contenu de Fichier2 est le même que Fichier1.
Ce que je souhaite, c'est que dans Fichier2, la première ligne soit la dernière de Fichier1 et ainsi de suite, jusqu'à ce que la dernière ligne de Fichier2 corresponde à la première ligne de Fichier1.
Les recherches effectuées sur le forum et la toile ne m'ont pas permis d'adapter mon code.
Je fais alors appel à vos connaisances pour m'aider à aboutir.
Je vous remercie tous pas avance de l'aide que vous pourrez m'apporter pour cela.
Bonne journée et au plaisir de vous lire.
Scoobidoo
J'utilise actuellement dans une macro le code suivant qui écrit dans le Fichier2 les lignes du Fichier1 :
VB:
Set oFSO = New Scripting.FileSystemObject
Set Fichier1 = oFSO.GetFile(FichiersAOuvrir(i))
Nom = oFSO.GetBaseName(FichiersAOuvrir(i))
Set oF0 = oFSO.CreateTextFile(Nom & "-Epure-" & ".txt")
oF0.Close
Set oF2 = oFSO.GetFile(Nom & "-Epure-" & ".txt")
Set Fichier2 = oF2.OpenAsTextStream(ForAppending)
Set Fichier1 = oFSO.OpenTextFile(FichiersAOuvrir(i), 1)
While Not Fichier1.AtEndOfStream
StrLigne = Fichier1.ReadLine
Fichier2.WriteLine
Wend
Close Fichier1.Close
Close Fichier2.Close
Ce que je souhaite, c'est que dans Fichier2, la première ligne soit la dernière de Fichier1 et ainsi de suite, jusqu'à ce que la dernière ligne de Fichier2 corresponde à la première ligne de Fichier1.
Les recherches effectuées sur le forum et la toile ne m'ont pas permis d'adapter mon code.
Je fais alors appel à vos connaisances pour m'aider à aboutir.
Je vous remercie tous pas avance de l'aide que vous pourrez m'apporter pour cela.
Bonne journée et au plaisir de vous lire.
Scoobidoo