Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
776 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro VBA Excel pour écrire dans un fichier

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro VBA Excel pour écrire dans un fichier

n°2178100
Peuwi
Posté le 01-03-2013 à 10:32:47  profilanswer
 

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
mood
Publicité
Posté le 01-03-2013 à 10:32:47  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro VBA Excel pour écrire dans un fichier

 

Sujets relatifs
déplacement fichier sur lecteur réseauVBA excel
Macro pour colorier une plage de cellulesMacro Calcul de Matrice de Correlation
Je n'arrive pas à activer Visual Basic + Macros sous excelVBA: Problème Lecture/Ecriture en simultané sur Access
[VBA] fonction paramétré renvoyant le résultat d'une requête ACCESSRenommage de fichier avec le contenu de la 1ère ligne
Moulinette à partir d'un fichier CSV 
Plus de sujets relatifs à : Macro VBA Excel pour écrire dans un fichier


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR