Discussion :

[LeojC]

Bonjour,

A partir d'une macro excel, je n'arrive pas à créer un répertoire dans une bibliothèque SharePoint.
J'ouvre le fichier excel de sharepoint et le but est de créer un répertoire dans la bibliothèque pour enregistrer le même fichier sous un autre nom Horodaté dans celui-ci.
La syntaxe VBA Mkdir et l'enregistrement du fichier ne fonctionnent pas.
Y a-t-il une solution ?

Voici une partie de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
'Recherche de la dernière ligne
    Dim DerLig2 As Long
    With Sheets("Données")
        With .Range("A:A")
            'Trouve la dernière ligne occupée
            DerLig2 = .Cells.Find(What:="*", _
                     LookIn:=xlFormulas, _
                    SearchOrder:=xlByRows, _
             SearchDirection:=xlPrevious).Row
        End With
    End With
 
'Concatenation
    Dim Cellule As Range
    Dim Resultat As String
 
     'selection des valeurs
    Range("A1:A" & DerLig2).Select
    'on boucle dans toutes les cellules
    For Each Cellule In Selection
       'on concatene avec un ;
       Resultat = Resultat & Cellule.Value & "_"
    Next
    'si le resultat n'est pas vide on enlève le dernier ;
    If Resultat <> "" Then Resultat = Left(Resultat, Len(Resultat) - 1)
    'et on place le résultat en cellule F7
    Range("A" & DerLig2 + 1) = Resultat
 
    Range("A1").Select
 
    Dim Rep As String
    Dim CreRep As String
 
    CreRep = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & "_" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
    Rep = ActiveWorkbook.Path & "/" & CreRep
 
    MkDir Rep
 
    Dim NomFich As String
        NomFich = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & "_" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".xls"
        ActiveWorkbook.SaveCopyAs Rep & "/" & NomFich

[kiki29]

Salut,hors du contexte SharePoint ( je ne l'utilise pas ) cela semble fonctionner, hormis les / au lieu de \ qui ne semble pas par ailleurs poser de problème.
Perso pour la création d'un dossier j'utilise ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Option Explicit
 
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
 
' Pour valeur retournée dans Rep
' Voir http://msdn.microsoft.com/en-us/library/bb762131(VS.85).aspx
' et   http://msdn.microsoft.com/en-us/library/ms681381(VS.85).aspx
Private Sub CreationDossier(sDossier As String)
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Sub
 
Sub Tst()
Dim sDossier As String
    sDossier = "G:\Essai1\Essai2\Essai3\Essai4\Essai5"
    CreationDossier sDossier
End Sub

Il y a peut-être lieu de placer un ChDrive à l'endroit idoine, ici par exemple avant sDossier : ChDrive "G"

Sinon il reste http://www.google.fr/#hl=fr&biw=1035...d690c946d91576

[LeojC]

Bonsoir kiki29 et merci pour ta réactivité
J'ai essayé ta proposition mais mon répertoire ne se crée pas. Effectivement, sur mon disque local, mon code fonctionne bien mais là, dans la bibliothèque SharePoint, que cela soit avec ton code ou le mien, pas de création. Je me demande si des objet seraient à declarer dans "Outil, Références" de ma macro. A creuser.
Pour Info :
SharePoint est une bibliothèque où nous consultons tous nos fichiers (doc, xls, ppt ...)
Les liens pour consulter sont de ce format :
http://http://shp.itn.NomduGroupe/si...1/répertoire2/

[LeojC]

Est-ce que ce cas n'a jamais été presenté ? Je pense ne pas être le seul dans cette impasse.
La commande mkdir n'est peut être pas la syntaxe à utiliser pour une bibliothèque Sharepoint ou peut-être y a-t-il un objet à déclarer dans références de la macro excel ?
Pour accéder à SharePoint, voici mon lien :
http://shp.itn.grp/Répertoire1/Répertoire2
Mon code VBA devra créer un répertoire sous cette arborescence.

[nonoxp]

Salut,

Pour accéder à un répertoire sharepoint via ton explorateur, windows se base sur webdav. Les commandes standard du filesystem comme mkdir ne servent à rien si elles ne sont pas comprises par le serveur. Je n'ai pas la solution, mais je suis intéressé si tu trouves quelque chose d'intéressant pour arriver à tes fins. A mon avis ça commence par là :

http://www.developpez.net/forums/d55...ss/webdav-vba/

http://social.msdn.microsoft.com/For...4-acaa82954584

[guiguiv59]

Bonjour,

Je suis actuellement confronté à la même problématique et je ne trouve pas de solution.
J'ai bien trouvé cette fonction : "SharedWorkspaceFolders.CreateNew" mais ça ne semble pas fonctionner sur office 2010 (celui que j'ai).
Avez vous trouvé une solution ?

Merci d'avance.

[bapt_91]

Bonjour,

Je me permet de relancer le sujet car je suis confronté au même problème et datant de 2013 peut-être que de nouvelles solutions existent pour la création de dossier dans une bibliothèque de document Sharepoint 2013 depuis une macro VBA (pour ma part sous Access 2010).

Merci.

[SolalOnepiece]

Bonjour,

Je me permet de relancer la discussion quelques années plus tard ne trouvant pas de réponse à mon problème sur google et autres forums d'aide Excel.

Mon problème est le suivant : je souhaiterais créer un code VBA Excel me permettant une fois positionné sur la cellule donnée d'activer cette macro qui créerai automatiquement un dossier du nom de la cellule sur mon sharepoint en ligne (site de type https:// ) ?

si quelqu'un peut éclairer ma lanterne cela serait génialissime !.


CDT.