Macro aanpassen

[Vriesacker]

Ik heb een bestand in excel met daarin verschillende sheets.


W1, W2 , W3 enz.


Er zit een marcroknop in mijn werkbalk die de gegevens kopieerd en opslaat als een webpagina “week” in mijn directory mijn website2

Ik zou dit graag veranderen dat hij telkens de naam van de sheet opslaat , zie voorbeeld W1 of W2 of W3 enz..


Sub Machuitweek()
'
' Machuitweek Macro
'

'

   Range("A1:G44").Select
    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "C:\Users\Prive\Documents\Mijn website2\Week.htm", ActiveSheet.Name, _
        "$A$1:$G$44", _
        xlHtmlStatic, "Pronostiek Machuit V1_18087", "")
        .Publish (True)
        .AutoRepublish = False
    End With
    ActiveWindow.SmallScroll Down:=-15
End Sub

 

[edmoor]

Probeer het eens zo:

Sub Machuitweek()
    '
    ' Machuitweek Macro
    '
    
    '
    Range("A1:G44").Select
    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "C:\Users\Prive\Documents\Mijn website2\" & ActiveSheet.Name & ".htm", _
        "$A$1:$G$44", _
        xlHtmlStatic, "Pronostiek Machuit V1_18087", "")
        .Publish (True)
        .AutoRepublish = False
    End With
    ActiveWindow.SmallScroll Down:=-15
End Sub

 

[snb]

hij kopieert.

 

[Vriesacker]

Krijg een foutmelding, zie hieronder

With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "C:\Users\Prive\Documents\Mijn website2" & ActiveSheet.Name & ".htm", _
        "$A$1:$G$44", _
        xlHtmlStatic, "Pronostiek Machuit V1_18087", "")

 

[Haije]

en wat is dan de foutmelding?

 

[edmoor]

Ik ken dat object niet maar ik denk dat 'ie fout 1004 geeft. Doe het eens zo:

Sub Machuitweek()
[COLOR="#008000"]    '
    ' Machuitweek Macro
    '
    
    '
    'Range("A1:G44").Select[/COLOR]
    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "C:\Users\Prive\Documents\Mijn website2\" & ActiveSheet.Name & ".htm", _
        ActiveSheet.Name, _
        "$A$1:$G$44", _
        xlHtmlStatic, _
        "Pronostiek Machuit V1_18087", "")
        
        .Publish (True)
        .AutoRepublish = False
    End With
    ActiveWindow.SmallScroll Down:=-15
End Sub

 

[snb]

@Vries

Gebruik svp code tags !

 

[Vriesacker]

opgelost dank u