Macro mappen maken in sharepoint van tabladen + submaps van cel waarden

[ollievb]

Beste,

Ik zou graag van excel, met verschillende tabbladen, van deze tabbladen mappen aanmaken in sharepoint. ( als hoofdmappen )

Ook zou ik dan sub maps willen van waardes op die tablad en dat die in de juiste hoofdmap worden opgeslaan.

Zou iemand me hier mee kunnen helpen? mijn kennis van vba is maar beperkt.


groeten Olivier

 

[edmoor]

Als die hoofdmappen bereikbaar zijn met de Windows Verkenner is dat geen enkel probleem.
Laat dus het pad naar zo'n hoofdmap eens zien.

 

[ollievb]

Dank U voor de snelle hulp.

Ik heb een test excel gemaakt, waar ik op probeer, bijlage.

momenteel worden er mappen aangemaakt van de tabbladen maar op de locatie van het excel bestand.

maar nu zou ik van bv tap AA waarde C6 + E6, C7 + E7, enzo.. als map naam, een subfolder willen aanmaken in de juiste hoofdmap AA.
en indien mgl direct dat hij in G6 de hyperlink zet?

ik heb mss overdreven met te zeggen beperkte kennis, het is zeer pril.

groeten olivier

 

[edmoor]

Dat is nog geen atwoord op de vraag.
Waar staan de hoofdmappen?
Dus:
X:\Hoofdmap1\
Y:\Hoofdmap2\

enz.

 

[ollievb]

C:\Users\KDT303\Fluvius cvba\ORG Team Projecten en OV ZEDE - Future proof OV-netten

dit is via verkenner gesynchroniseerd van sharepoint

 

[ollievb]

hieronder wil ik dus die hoodmappen maken met de subfolders

 

[edmoor]

Zo dus:

Sub hoofdmap()
    hfd = "C:\Users\KDT303\Fluvius cvba\ORG Team Projecten en OV ZEDE - Future proof OV-netten\"
    For Each sht In ThisWorkbook.Sheets
        fldr = hfd & sht.Name
        If Dir(fldr, vbDirectory) = "" Then MkDir fldr
        For i = 6 To 20
            If sht.Cells(i, 3) <> "" Then
                dpr = fldr & "\" & sht.Cells(i, 3)
                If Dir(dpr, vbDirectory) = "" Then MkDir dpr
            End If
        Next i
    Next sht
End Sub

 

[ollievb]

Sorry voor het late antwoord, uit drukte had ik even geen tijd.

Ik heb dit vlug getest op de test excel. dit werkt perfect.

ik ga deze avond het uitproberen op het bestand waar het moet op werken, heel hard bedankt al. :thumb: