Macro excel de sauvegarde [resolu]

Macro excel de sauvegarde [resolu] - VB/VBA/VBS - Programmation

Marsh Posté le 03-11-2005 à 11:11:58    

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
Reply

Marsh Posté le 03-11-2005 à 11:11:58   

Reply

Marsh Posté le 03-11-2005 à 12:28:56    

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.
Reply

Marsh Posté le 03-11-2005 à 13:17:53    

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

Reply

Marsh Posté le 03-11-2005 à 13:22:23    

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

Reply

Marsh Posté le 03-11-2005 à 13:52:49    

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.
Reply

Marsh Posté le 03-11-2005 à 14:44:48    

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
 

Reply

Marsh Posté le 03-11-2005 à 15:14:22    

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.
Reply

Marsh Posté le 03-11-2005 à 16:12:29    

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 !
 

Reply

Marsh Posté le 03-11-2005 à 16:25:40    

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...
 
:(

Reply

Marsh Posté le 03-11-2005 à 16:39:21    

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.
Reply

Sujets relatifs:

Leave a Replay

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