Se connecter avec
S'enregistrer | Connectez-vous

Générer des fichiers .txt/.html à partir d'une tableau .xls

Dernière réponse : dans Programmation

SAlut tt le monde ! j'ai déjà cherché un moment sur ce forum mais j'ai pas trouvé de solution à mon problème...

Je dois me taper 300 signatures format HTML et non, je vais pas les faire une par une :sarcastic: 

Mon problème :

J'ai un fichier excel avec dans le champ A le nom du fichier .html à générer et dans le champ B le code du fichier correspondant.

Je souhaiterais une macro qui, pour chaque valeur trouvée dans le champ A va copier/coller le champ B vers un nouveau fichier ayant comme titre la valeur du champ A.

Visuellement :

A / B
pierre / <HTML>Mr Pierre dubois Orc lvl 2</HTML>
david / <HTML>Mr David Couiccou Troll lvl 5</HTML>

Je souhaite obtenir
- un fichier pierre.html avec la valeurs correspondant à Champ B dedans
- un fichier david.html avec la valeurs correspondant à Champ B dedans
etc.... avec autant de fichiers excel qu'il y a de valeurs dans la colonne A.

Je sens que c'est carrement possible et pas compliqué à coder, mais moi le VBA j'y connais rien, donc voilà

merci d'avance

Autres pages sur : generer fichiers txt html partir tableau xls

Lassé par la pub ? Créez un compte
Expert Programmation

Et non, nous ne faisons pas ton travail à ta place, c'est comme ça : http://www.presence-pc.com/forum/ppc/Programmation/quel... [:spamafote]

Spoiler
Si tu racontes partout que je t'ai filé une soluce comme ça, je nierais tout en bloc et je jetterais un sort sur ton Windows Vista pour qu'il plante, Ah Ah Ah !!!!!
  1. Dim ligne As Long
    

  2. Dim cellA As String
    

  3.  
  4. For ligne = 1 To 65535
    

  5.     cellA = Cells(ligne, 1).Text
    

  6.     If cellA = "" Then Exit For
    

  7.     Open cellA & ".html" For Output As #1
    

  8.     Print #1, Cells(ligne, 2).Text
    

  9.     Close #1
    

  10. Next

lol, moi cette soluce elle me plait pas (puis j'ai pas vista) AH la la :lol: 

Enfin ca doit fonctionner mais perso j'utilise les méthodes de Scripting.FileSystemObject.

Ca te permet de gérer des fichiers, en créer, vérifier leur existence, parcourir des répertoires etc.
Expert Programmation

Freeman23> +1

Stune bonne idée. Mais conviens-en, il faut installer MS Scripting Runtime, ou plus exactement le référencer, ce qui n'est pas fait par défaut.

Cette manière de faire est moderne et élégante. Elle a le défaut de ne pas être utilisable par défaut. En plus, ce n'est même pas du VB !!!!

Il me semble que c'est bien du VB...
Il n'y aucun referencement supplémentaire à faire.

Il suffit de chercher dans l'aide FileSystemObject et tu trouveras ceci.

  1. Set fs = CreateObject("Scripting.FileSystemObject")
    

  2. Set a = fs.CreateTextFile("c:\fichiertest.txt", True)
    

  3. a.WriteLine("Ceci est un test.")
    

  4. a.Close
Expert Programmation

:ouch:  Oh, t'es un vicelard, toi !
Tu te sers d'objets OLE !!!!!

Bah, ça marche, mais j'insiste, ce n'est pas du VB. J'ai même déjà utilisé ça en Delphi à l'époque.
(Tu peux aussi référencer MS Scripting Runtime et utiliser la bibliothèque Scripting sans avoir à créer des objets OLE.)

Super merci, j'ai bien avancé grace à ce code :hello: 

Je l'ai adapté un poil et j'ai des petits problèmes.

- "open" cré le fichier mais pas la chemin d'acces si celui-ci n'existe pas, ça renvoit un message d'erreur comme quoi le chemin est introuvable. Ma petite modification avait pour but d'enregistrer le fichier *.html dans le dossier personnel de l'utilisateur. Celà dit ce n'est pas bien grave je peux m'en sortir sans.

- Plus embêtant, Le contenu du fichier créé est des fois tronqué, il semblerai que c'est dans le cas où le code HTML contenu dans la cellule B depasse le millier de caractère (1024?). C'est le type "String" qui est limité à ce nb de charactère ? Il y a t'il un moyen de contourner ce problème ?

Voilà le code avec la petit modif que j'ai fait:

  1. Sub GenererUsers()
    

  2.  
  3. Dim ligne As Long
    

  4. Dim cellA, Chemin As String
    

  5.  
  6. Chemin = InputBox("Chemin pour le fichier de signature sign***.html", "Nom Chemin ?")
    

  7. For ligne = 2 To 65535
    

  8. cellA = Cells(ligne, 1).Text
    

  9. If cellA = "" Then Exit For
    

  10. Open Chemin & "\Prive\" & cellA & "\signature\sign" & cellA & ".html" For Output As #1
    

  11. Print #1, Cells(ligne, 2).Text
    

  12. Close #1
    

  13. Next
    

  14.  
  15. End Sub


En tous cas j'ai déjà gagné une semaine de copier/collé qui rend fou Aligato Gozaïmaska !
Expert Programmation

Dixit l'aide d'Excel:

Citation :
String, type de données


Il existe deux types de chaînes : les chaînes de longueur variable et les chaînes de longueur fixe.

  • Les chaînes de longueur variable peuvent contenir environ 2 milliards (2^31) de caractères.

  • Les chaînes de longueur fixe peuvent contenir de 1 à environ 64 Ko (2^16) de caractères.

    Note Une chaîne de longueur fixe déclarée comme Public ne peut pas être utilisée dans les modules de classe.

    Les codes de caractères de type String sont compris entre 0 et 255. Les 128 premiers caractères (0 à 127) du jeu de caractères correspondent aux lettres et symboles d'un clavier américain standard. Ces 128 caractères sont identiques à ceux du jeu de caractères ASCII. Les 128 caractères suivants (128 à 255) représentent des caractères spéciaux, comme les lettres de certains alphabets, les accents, les symboles monétaires et les fractions. Le [#0000ff]caractère de déclaration de type[#0000ff] String est le signe $.


  • :/  Le problème ne semble pas venir du format String.

    Pis
    Dim cellA, Chemin As String
    Et
    Dim cellA As String
    Dim Chemin As String
    C'est différent !!

    J'ai trouvé une solution à mon problème de longueurs (qui ne pouvait pas venir du format String vu qu'à aucun moment la chain de charactère très longue ne passait dans une variable avec un tel format). J'ai disivé le code HTML en 3 parties et je copie les 3 parties à la suite dans le fichier, ça marche comme ça. Ca donne :

    1. Sub GenererUsers()
      

    2.  
    3. Dim ligne As Long
      

    4. Dim cellA, Chemin As String
      

    5.  
    6. Chemin = InputBox("Veuillez entrer le lecteur où générer les fichiers *.html", "Générer sign*.html dans les dossiers V:\Signature")
      

    7. For ligne = 2 To 65535
      

    8. cellA = Cells(ligne, 1).Text
      

    9. If cellA = "" Then Exit For
      

    10. If Chemin = "" Then Exit For
      

    11. Open Chemin & "\Prive\" & cellA & "\signature\sign" & cellA & ".html" For Output As #1
      

    12. Print #1, Cells(ligne, 2).Text & Cells(ligne, 3).Text & Cells(ligne, 4).Text
      

    13. Close #1
      

    14. Next
      

    15.  
    16. End Sub


    C'est Print #1, Cells(ligne, x) qui ne semble pouvoir "printer" que 1024 charactère max.


    Citation :
    Pis

    Dim cellA, Chemin As String

    Et

    Dim cellA As String
    Dim Chemin As String

    C'est différent !!


    Mais encore ?


    Sinon merci encore

    >Zeb +1 :jap: 
    Exact Zeb d'ailleur je l'ai appris que recemment à mes dépends sur un dev.

    Pour se qui est des 1024 caratères j'ai déjà eu ce problème et il me semble que cela vient des cellules qui ne renvoie pas tout le texte. En fait sauf erreur, il me semble qu'elle peuvent stocker plus de 1024 caratères mais quand on demande la valeur c'est tronqué, enfin un truc dans le genre.
    Expert Programmation

    Après test, il semblerait que VBA n'accepte de renvoyer que 2^10-1 caractères, soit seulement 1023. Je n'ai pas encore trouvé trace de cette limite dans l'aide d'Excel.

    Si la chaîne de caractères dépasse cette limite :
  • .Text est tronqué,
  • .Formula plante lamentablement.


    Grilled: Bah, tu le savais, moi je viens de le découvrir ;) 

    EDIT: Comme quoi, ne pas confondre tableur et base de données :o 
    Lassé par la pub ? Créez un compte

    Créer un nouveau sujet