Macro VBA Excel pour écrire dans un fichier

Macro VBA Excel pour écrire dans un fichier - VB/VBA/VBS - Programmation

Marsh Posté le 01-03-2013 à 10:32:47    

Pas une question, mais une solution bien pratique :
écrire dans un fichier de nom colonne A, le contenu de la colonne B.
Ca peut servir, comme dans mon exemple, à générer d'un coup 200 pages web plus ou moins identiques.

Code :
  1. Sub Generator()
  2. '
  3. ' Generator Macro
  4. ' Génération des fichiers HTML
  5. '
  6. '
  7.     Dim Ligne As Integer
  8.     For Ligne = 2 To 1001
  9.         Dim Name
  10.         Name = Sheets("Generator" ).Range("A" & Ligne).Value
  11.         Dim FileName
  12.         FileName = ThisWorkbook.Path & "\htmlGenere\" & Name
  13.         Dim FileContent
  14.         FileContent = Sheets("Generator" ).Range("B" & Ligne).Value
  15.         If FileName <> "" Then
  16.             Dim fso, f
  17.             Set fso = CreateObject("Scripting.FileSystemObject" )
  18.             Set f = fso.OpenTextFile(FileName, 2, True)
  19.             f.write (FileContent)
  20.         End If
  21.     Next Ligne
  22. End Sub


Et comme mon ordi a encore planté dans la nuit, et que le fichier était enregistré en xlsx, j'ai eu le plaisir de la réécrire ce matin.


Message édité par Peuwi le 01-03-2013 à 10:35:27
Reply

Marsh Posté le 01-03-2013 à 10:32:47   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed