Opgelost code voor gebruik van meerdere persoonen

[jannesgk]

heb een exel sheet die met behulp van een vba code
bepaalde sheets vrij maakt en op je desktop zet hier werken meerdere personene in op verschillende pc's
nu moet het met de naam in de regel zie vb C:\Users\Henk\Desktop
kan dit ook zo dat hij dit bij iedereen niet meer op naam hoeft
ik zie het even niet mee

jannes

 

[snb]

Dit is een Nederlandstalig forum.

 

[edmoor]

Dat kan met:

Environ("Userprofile") & "\Desktop\"

 

[jannesgk]

edmoor
dank voor je snelle reactie ga het proberen

grt jannes

 

[jannesgk]

edmoor
heb de code aan gepast alleen het werkt nog niet goed dit was het oude code

ActiveWorkbook.BreakLink Name:= _
"G:\Backload _ Interfield Lijst.xlsm", Type:=xlExcelLinks
ActiveWorkbook.SaveAs Filename:="C:\Users\jannes.kuipers\OneDrive - Eni\Desktop\" & Format([c6], "yyyy-mm-dd") & "

en dit naar de aanpassing

ActiveWorkbook.BreakLink Name:= _
"G:\Backload _ Interfield Lijst.xlsm", Type:=xlExcelLinks
ActiveWorkbook.SaveAs Environ("USERPROFILE") & "\Desktop\" & " " & Format([c6], "yyyy-mm-dd")

maar dit geeft nu een fout nu bij de bovenste regel van de code voor het breken van de links het bestand staat op een server dit is het pad van de server
\\dhfile02\G17_OrgData

hopelijk kun je me helpen alvast bedankt voor zover

grt jannes

 

[edmoor]

Dus je krijgt een fout op dit?

ActiveWorkbook.BreakLink Name:= _
       "G:\Backload _ Interfield Lijst.xlsm", Type:=xlExcelLinks

Dt heeft niets te maken met de code die ik je gaf.

 

[jannesgk]

Klopt maar dit staat er voor om de linken te verwijderen en met de oude code werkte het nu vraag ik me af of dat pad ook veranderd moet worden

 

[edmoor]

Is het voor iedere gebruiker de G: schijf?
Wat gebeurt er als je dit gebruikt?

ActiveWorkbook.BreakLink Name:= _
       "\\dhfile02\G17_OrgData\Backload _ Interfield Lijst.xlsm", Type:=xlExcelLinks

 

[jannesgk]

ik ga het even proberen

 

[jannesgk]

edmoor

heb het gewijzigd nu geeft dieze fout melding inde regel ActiveWorkbook.SaveAs Environ("USERPROFILE") & "\Desktop\" & " " & Format([c6], "yyyy-mm-dd")
dit is de foutmelding die ik krijg

0

grt jannes

 

[edmoor]

En waar komt die 6E7B1100 vandaan?
Dat is geen datum.
En vanwaar deze spatie: "\Desktop\" & " "
Dat heeft geen enkele zin.
Wat staat er in cel C6?

 

[jannesgk]

Die 6e7b zou ik niet weten waar die weg komt die spatie zat nog in de oude code
In c6 staat de datum
Alleen het vreemde is dat het met de naam er in wel werkt inplaats van een usrerprofile

Grt Jannes

 

[edmoor]

Heel vreemd.
Kan je dat document hier plaatsen?

 

[jannesgk]

Zal morgen deze uploaden

 

[jannesgk]

edmoor

dit is het orginale bestand

grt jannes

 

[edmoor]

Kan ik niks verkeerds in ontdekken m.b.t. het probleem.
Maar test het eens met dit bestand:

 

[jannesgk]

Ga ik doen

Grt Jannes

 

[jannesgk]

Edmond

Heb het geprobeerd maar geeft weer probleem in ActiveWorkbook.BreakLink Name:= _<br> "G:\Backload _ Interfield Lijst.
Probeer nu met het adres g aanpassen
Laat je weten hoe dat gaat
Grt Jannes

 

[edmoor]

Wat doet dit daarin?
Dat hoort er niet.
_<br>

 

[jannesgk]

Klopt staat er ook niet in verkeerd gekopieerd

Grt jannes