Pad in voettekst

[Chielio]

1 Goede middag helpmij-ers,

Waarschijnlijk is dit voor de meesten iets simpels, maar ik kan het gewoonweg niet vind.

Ik wil het pad in de voettekst van het excel sheetje hebben. ( office 2000 pakket )
In word is het te doen, maar in excel kom ik niet verder dan de bestandsnaam
( &[Bestand] )

wie o wie

 

[Valijn]

Ik heb het gecontroleerd in 2003, maar mogelijk is de 'code' ook in 2000 in te voeren (zie bijlage)

 

[andre86]

Alsjeblieft

Sub Create_Footer_FilePath()
Dim sh As Worksheet
Dim PathName As String

'PathName is the path and filename
PathName = ActiveWorkbook.Path

For Each sh In ActiveWorkbook.Sheets
With sh
'comment out the appostraphe to select your page setup
'currently set on center
'.PageSetup.RightFooter = PathName
.PageSetup.CenterFooter = PathName
'.PageSetup.LeftFooter = PathName
'.PageSetup.RightHeader = PathName
'.PageSetup.CenterHeader = PathName
'.PageSetup.LeftHeader = fullpath
End With
Next sh
End Sub

 

[Chielio]

Helaas pindakaas

Helaas niet, heb het al geprobeert maar dan krijg je:

(niet makkelijk te lezen)

 

[Wigi]

Vervang overal PathName door FullName

Wigi

 

[Chielio]

Alsjeblieft

Sub Create_Footer_FilePath()
Dim sh As Worksheet
Dim PathName As String

enz...

Ben echt een leek met macro's en dergelijke. Hoe pas ik dit toe ? ( stapje voor stapje )

 

[Chielio]

Mag ik u danken, ben eruit.

Maaarrr, als ik hemopsla onder een andere locatie, is deze zo aantepassen dat deze automatisch aangepast wordt ?

B.V. van C:/documenten naar D:/ Archief/documenten ?

 

[Relleboer]

meldt de vraag ook ff klaar

 

[Chielio]

meldt de vraag ook ff klaar

wees niet bang, doe ik als ik 100% tevreden ben. Er is nog een maaarrr

 

[Wigi]

Mag ik u danken, ben eruit.

Maaarrr, als ik hemopsla onder een andere locatie, is deze zo aantepassen dat deze automatisch aangepast wordt ?

B.V. van C:/documenten naar D:/ Archief/documenten ?

Je moet de macro met de naam Create_Footer_FilePath uitvoeren. Die creëert de juiste voetnoten, ongeacht waar het bestand opgeslagen is.

Wigi

 

[Chielio]

Je moet de macro met de naam Create_Footer_FilePath uitvoeren. Die creëert de juiste voetnoten, ongeacht waar het bestand opgeslagen is.

Wigi

Maar wat ik bedoel is het volgende:

In eerste instantie zal ik hem b.v. opslaan onder C:/mapA ( offerte fase ) waarna ik hem verplaats naar D:/MapB ( project ).

De vraag is nu, kan ik de macro zo aanpassen dat deze bij het verplaatsen van een bestand automatish ook het pad aanpast, of moet ik Macro -> macro uitvoeren steeds herhalen.

( niet dat ik nu ontevreden ben met het resultaat )

Bijvoorbaat dank.

 

[Demeter]

Plaats je code eens tussen:

Private Sub Workbook_Open()

End Sub

En plaats deze 'ThisWorkbook'.
Nu worden je voeten aangepast als je het document opent.

Groet,
Ferenc

 

[Wigi]

Plaats je code eens tussen:

Private Sub Workbook_Open()

End Sub

En plaats deze 'ThisWorkbook'.
Nu worden je voeten aangepast als je het document opent.

Groet,
Ferenc

Dat is idd de handigste oplossing. Zeker aangezien je je bestand toch niet kan verplaatsen terwijl het geopend is.

Wigi

 

[Chielio]

Plaats je code eens tussen:

Private Sub Workbook_Open()

End Sub

En plaats deze 'ThisWorkbook'.
Nu worden je voeten aangepast als je het document opent.

Groet,
Ferenc

Hmm ben echt een leek hoe bedoel je dat het worden moet, moet ik de eerste gegeven code tussen zetten ?
Zo iets

Private Sub Workbook_Open()

EERST GEGEVEN CODE

End Sub

 

[Wigi]

Doe Alt-F11.

Zoek je bestandsnaam inde Project Explorer, dubbelklik erop.

Dubbelklik op ThisWorkbook.

Boven het lege witte valk heb je 2 keuzelijsten. Klik eerst op de linkse, dan op de rechtse , zodat er staat:

Private Sub Workbook_Open()

End Sub

Plak de gegeven code ertussen.

Wigi

 

[Chielio]

Helemaal gweldig, 99% tevreden haha,

Is er ook een mogelijkheid om deze macro te exporteren, want ik zal deze dan gebruiken bij meerdere documenten, maar niet alle.

Komt er op neer dat ik dus zelf bepaal of deze macro zeg maar geimporteerd wordt.

hoop dat het een beetje duidelijk is

 

[Wigi]

Helemaal gweldig, 99% tevreden haha,

Is er ook een mogelijkheid om deze macro te exporteren, want ik zal deze dan gebruiken bij meerdere documenten, maar niet alle.

Komt er op neer dat ik dus zelf bepaal of deze macro zeg maar geimporteerd wordt.

hoop dat het een beetje duidelijk is

Kopiëren naar het juiste bestand, niet?

 

[arafy]

notepad of word

gewoon de macro kopiëren en plakken in notepad of word. als je hem nodig hebt, dit bestand openen en de code in excel plakken.

steven

 

[Chielio]

OKE,
ik dacht dat je dit kon exporteren en/of een knop van kon maken.

Maar mag ik jullie bedanken voor de inzet.
:thumb:

 

[Demeter]

Chielio,

Je kan ook in de Vb-editor je module exporteren.
Activeer je module en ga dan naar:
Bestand / bestand exporteren

in de omgekeerde volgorde kan het ook:
bestand / bestand importeren

Zo kan je heel makkelijk je gebruikte macro's bewaren

Ieder heeft zo zijn eigen manier

Groet,
Ferenc