Création d'un répertoire sous Sharepoint
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:
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 |