Macro exporter page Web

[jojodanslalune]

Bonsoir,

VOici la macro que j'ai actuelllement créée:

Sub html()
'
' Exporter page Web
'
'
Jour = Format(Now(), "ddmmyyyy")
    Range("A1:M42").Select
    ChDir "C:\Users\Vincent\Documents\Site\L'Institut de l'Annonciation\profs\2\journal"
    ActiveWorkbook.SaveAs Filename:=Jour, _
    FileFormat:=xlHtml
    Sheets("Agenda").Select
    
End Sub

Vous remarquez que j'ai sélection des cellules A1 à M42. Je voudrais que l'exportation en page web ne fonctionne que pour cette sélection et non pas pour tout le fichier.

Pour l'instant ce code exporte la totalité du fichier. Quelqu'un voit-il ce que je dois modifier et comment?

 

[Staple1600]

Re : Macro exporter page Web

Bonsoir le forum


Il y a ici des exemples d'export html
https://www.excel-downloads.com/threads/envoyer-un-tableau-en-html.78072/

En espérant que cela puisse t'inspirer.



Staple

 

[jojodanslalune]

Re : Macro exporter page Web

Je dois dire que tout cela me dépasse un peu.

L'export en Html ne me pose pas de problème. La seule chose est d'arriver à cibler cet enregistrement sur la sélection. Je support que cela réside dans le "ActiveWorkbook.SaveAs" qui n'est sans doute pas la bonne formulation mais je débute dans le domaine et rame pas mal pour trouver la formule magique !

 

[Staple1600]

Re : Macro exporter page Web

Re

Avec ceci peut etre ( a tester)

Sub test()
Dim Chemin as string
Jour = Format(Now(), "ddmmyyyy")
Chemin ="C:\Users\Vincent\Documents\Site\L'Institut de l'Annonciation\profs\2\journal\"
With ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=Chemin & Jour & ".htm", _
Sheet:=ActiveSheet.Name, _
Source:="A1:M42", _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
End Sub

Bien que la page générée soit assez lourde en code html

edit: j'ai testé avec comme chemin "C:\Temp\"
et cela fonctionne
et seule la plage spécifiée est exportée

Reste le problème du code html généré

 

[jojodanslalune]

Re : Macro exporter page Web

Il me dit "erreur de compilation: Sub, Fonction ou property attendus" à partir de "chemin"

 

[jojodanslalune]

Re : Macro exporter page Web

J'ai trouvé ! Il manquait le "=" derrière "chemin".

Cela marche nickel ! Merci beaucoup !!!!!!!!!!!!!