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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro excel de sauvegarde [resolu]

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro excel de sauvegarde [resolu]

n°1237254
hervix
Posté le 03-11-2005 à 11:11:58  profilanswer
 

bonjour,
 
je suis à la recherche d'une macro qui pourrait me permettre de sauvegarder des feuilles excels en page html en grandes quantités. J'ai besoin en fait de transformer environ 800 feuilles excels régulièrement après mise a jour de la feuille en fichier pouvant etre lu par internet explorer.
 
Si quelqu'un savait comment faire, ce serait vraiment cool !
 
merci de vos réponses
 
:)


Message édité par hervix le 07-11-2005 à 20:34:25
mood
Publicité
Posté le 03-11-2005 à 11:11:58  profilanswer
 

n°1237376
Vobiscum
Vénérez moi !
Posté le 03-11-2005 à 12:28:56  profilanswer
 

Les feuilles sont réparties sur combien de workbooks ? Combien de Worksheets par workbook ?


---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
n°1237418
hervix
Posté le 03-11-2005 à 13:17:53  profilanswer
 

j'ai a chaque fois 1 feuille par classeur. J'ai fait après un petit programme en flash qui me permet de retrouver la feuille au format .htm

n°1237421
hervix
Posté le 03-11-2005 à 13:22:23  profilanswer
 

en fait, c'est simplment pour m'éviter de faire la manipulation enregistrer sous (.htm) plus de 800 fois... :)

Message cité 1 fois
n°1237449
Vobiscum
Vénérez moi !
Posté le 03-11-2005 à 13:52:49  profilanswer
 

hervix a écrit :

en fait, c'est simplment pour m'éviter de faire la manipulation enregistrer sous (.htm) plus de 800 fois... :)


 
Peux-tu aussi générer une liste des workbooks ? Car alors tu peux charger cette liste avec une macro, puis parcourir la liste en ouvrant le workbook correspondant et en le sauvant sour format htm ... (ais-je bien compris ce que tu veux ...)


---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
n°1237564
hervix
Posté le 03-11-2005 à 14:44:48  profilanswer
 

je réexplique pour que tu comprennes mieux mon probleme.  
 
Je recois un fichier excel contenant le prix de centaines de références.  
 
A partir de ce fichier que l'on m'envoie, j'ai creé des workbooks pour chaque référence qui comprend le prix, la désignation et qui va se mettre a jour tout seul quand je change le fichier que l'on m'envoit.
 
Pour que les vendeurs ne puissent pas modifier le prix, je veux transformer chaque fiche en fichier html
 
Je ne sais pas comment générer une liste des workbooks. La suite me parait etre tout a fait ce que jeux, charger la liste avec une macro et les sauvegarder sous format .htm
 

Message cité 1 fois
n°1237605
Vobiscum
Vénérez moi !
Posté le 03-11-2005 à 15:14:22  profilanswer
 

hervix a écrit :

je réexplique pour que tu comprennes mieux mon probleme.  
 
Je recois un fichier excel contenant le prix de centaines de références.  
 
A partir de ce fichier que l'on m'envoie, j'ai creé des workbooks pour chaque référence qui comprend le prix, la désignation et qui va se mettre a jour tout seul quand je change le fichier que l'on m'envoit.
 
Pour que les vendeurs ne puissent pas modifier le prix, je veux transformer chaque fiche en fichier html
 
Je ne sais pas comment générer une liste des workbooks. La suite me parait etre tout a fait ce que jeux, charger la liste avec une macro et les sauvegarder sous format .htm


 
Peut-être un début:
 

Code :
  1. Sub SaveFilesInHTML()
  2. Dim i As Integer
  3.     Application.EnableEvents = False
  4.     Application.DisplayAlerts = False
  5.     Application.ScreenUpdating = False
  6.     Set fs = Application.FileSearch
  7.     With fs
  8.         .LookIn = "<Directory>"
  9.         .Filename = "*.xls"
  10.         .Execute
  11.         For i = 1 To .FoundFiles.Count
  12.             MsgBox .FoundFiles(i)
  13.             On Error GoTo erroropen
  14.             Workbooks.Open .FoundFiles(i)
  15.             ActiveWorkbook.SaveAs FileFormat:=xlHtml
  16.             ActiveWorkbook.Close
  17. erroropen:
  18.         Next i
  19.         Application.EnableEvents = True
  20.         Application.DisplayAlerts = True
  21.         Application.ScreenUpdating = True
  22.         If .FoundFiles.Count = 0 Then
  23.             MsgBox "Aucun fichier n'a été trouvé."
  24.         End If
  25.         End With
  26. End Sub


 
Remplace le <Directory> par le chemin complet du directory où se trouvent les workbooks excels.
Tous les .xls de ce directory seront sauvegardés en .html (attention, celà génère parfois des sous-directorys)


---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
n°1237731
hervix
Posté le 03-11-2005 à 16:12:29  profilanswer
 

n'ayant pas assez de maitrise des macros, te serait-il possible de m'envoyer un exemple sur mon mail?
 
hervixx@gmail.com
 
merci d'avance !
 

Message cité 1 fois
n°1237745
hervix
Posté le 03-11-2005 à 16:25:40  profilanswer
 

pour le moment, il me semble avoir correctement créé la macro. quand je l'éxécute, il ne se passe rien !  
 
Il doit y avoir quelque chose que je ne fait pas correctement...
 
:(

n°1237768
Vobiscum
Vénérez moi !
Posté le 03-11-2005 à 16:39:21  profilanswer
 

hervix a écrit :

n'ayant pas assez de maitrise des macros, te serait-il possible de m'envoyer un exemple sur mon mail?
 
hervixx@gmail.com
 
merci d'avance !


 
D'accord, mais ce soir ...


---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.

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

  Macro excel de sauvegarde [resolu]

 

Sujets relatifs
Coment écrire dans une case d'un tableau [Résolu ][Excel VBA] Tracer des lignes sur un UserForm
Macro pour excel[Résolu] unhandled exception class System.SecurityE
fichier non accessible pr un visiteur, mais oui pr le serveur [resolu]supprimer contour image cliquable [RESOLU]
[Résolu][VBA Excel] pb de copie[RESOLU]appel js / Erreur 445
Plus de sujets relatifs à : Macro excel de sauvegarde [resolu]

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.049 secondes

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