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 :
- Sub Generator()
- '
- ' Generator Macro
- ' Génération des fichiers HTML
- '
- '
- Dim Ligne As Integer
- For Ligne = 2 To 1001
- Dim Name
- Name = Sheets("Generator" ).Range("A" & Ligne).Value
- Dim FileName
- FileName = ThisWorkbook.Path & "\htmlGenere\" & Name
- Dim FileContent
- FileContent = Sheets("Generator" ).Range("B" & Ligne).Value
- If FileName <> "" Then
- Dim fso, f
- Set fso = CreateObject("Scripting.FileSystemObject" )
- Set f = fso.OpenTextFile(FileName, 2, True)
- f.write (FileContent)
- End If
- Next Ligne
- 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